Lines Matching refs:PetscScalar
81 PetscScalar Ts, Ta; /* surface and air temperature */
82 PetscScalar u, v; /* wind speed */
83 PetscScalar p; /* density */
89 PetscScalar csoil; /* heat constant for layer */
90 PetscScalar dzlay; /* thickness of top soil layer */
91 PetscScalar emma; /* emission parameter */
92 PetscScalar wind; /* wind speed */
93 PetscScalar dewtemp; /* dew point temperature (moisture in air) */
94 PetscScalar pressure1; /* sea level pressure */
95 PetscScalar airtemp; /* temperature of air near boundary layer inversion */
96 PetscScalar Ts; /* temperature at the surface */
97 PetscScalar fract; /* fraction of sky covered by clouds */
98 PetscScalar Tc; /* temperature at base of lowest cloud layer */
99 PetscScalar lat; /* Latitude in degrees */
100 PetscScalar init; /* initialization scenario */
101 PetscScalar deep_grnd_temp; /* temperature of ground under top soil surface layer */
113 PetscScalar Ts; /* surface temperature */
114 PetscScalar Td; /* dewpoint temperature */
115 PetscScalar Tc; /* temperature of cloud base */
116 PetscScalar fr; /* fraction of sky covered by clouds */
117 PetscScalar wnd; /* wind speed */
118 PetscScalar Ta; /* air temperature */
119 PetscScalar pwt; /* precipitable water */
120 PetscScalar wndDir; /* wind direction */
121 PetscScalar lat; /* latitude */
123 PetscScalar init;
127 extern PetscScalar emission(PetscScalar); /* sets emission/absorption co…
128 extern PetscScalar calc_q(PetscScalar); /* calculates specific humidit…
129 extern PetscScalar mph2mpers(PetscScalar); /* converts miles per hour to …
130 extern PetscScalar Lconst(PetscScalar); /* calculates latent heat cons…
131 extern PetscScalar fahr_to_cel(PetscScalar); /* converts Fahrenheit to Cels…
132 extern PetscScalar cel_to_fahr(PetscScalar); /* converts Celsius to Fahrenh…
133 extern PetscScalar calcmixingr(PetscScalar, PetscScalar); /* calculates mixing ratio */
134 extern PetscScalar cloud(PetscScalar); /* cloud radiative parameteriz…
139 extern PetscErrorCode calcfluxs(PetscScalar, PetscScalar, PetscScalar, PetscScalar, PetscScalar, Pe…
140 extern PetscErrorCode calcfluxa(PetscScalar, PetscScalar, PetscScalar, PetscScalar *); …
141 extern PetscErrorCode sensibleflux(PetscScalar, PetscScalar, PetscScalar, PetscScalar *); …
142 extern PetscErrorCode potential_temperature(PetscScalar, PetscScalar, PetscScalar, PetscScalar, Pet…
143 extern PetscErrorCode latentflux(PetscScalar, PetscScalar, PetscScalar, PetscScalar, PetscScalar *)…
144 extern PetscErrorCode calc_gflux(PetscScalar, PetscScalar, PetscScalar *); …
150 PetscScalar rh; /* relative humidity */ in main()
151 PetscScalar x; /* memory variable for relative humidity calculation */ in main()
152 PetscScalar deep_grnd_temp; /* temperature of ground under top soil surface layer */ in main()
153 PetscScalar emma; /* absorption-emission constant for air */ in main()
154 PetscScalar pressure1 = 101300; /* surface pressure */ in main()
155 PetscScalar mixratio; /* mixing ratio */ in main()
156 PetscScalar airtemp; /* temperature of air near boundary layer inversion */ in main()
157 PetscScalar dewtemp; /* dew point temperature */ in main()
158 PetscScalar sfctemp; /* temperature at surface */ in main()
159 PetscScalar pwat; /* total column precipitable water */ in main()
160 PetscScalar cloudTemp; /* temperature at base of cloud */ in main()
348 …ErrorCode calcfluxs(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar emma, PetscScalar fract,… in calcfluxs()
355 PetscErrorCode calcfluxa(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar emma, PetscScalar *f… in calcfluxa()
357 PetscScalar emm = 0.001; in calcfluxa()
363 PetscErrorCode sensibleflux(PetscScalar sfctemp, PetscScalar airtemp, PetscScalar wind, PetscScalar… in sensibleflux()
365 PetscScalar density = 1; /* air density */ in sensibleflux()
366 PetscScalar Cp = 1005; /* heat capacity for dry air */ in sensibleflux()
367 PetscScalar wndmix; /* temperature change from wind mixing: wind*Ch */ in sensibleflux()
375 PetscErrorCode latentflux(PetscScalar sfctemp, PetscScalar dewtemp, PetscScalar wind, PetscScalar p… in latentflux()
377 PetscScalar density = 1; /* density of dry air */ in latentflux()
378 PetscScalar q; /* actual specific humitity */ in latentflux()
379 PetscScalar qs; /* saturation specific humidity */ in latentflux()
380 PetscScalar wndmix; /* temperature change from wind mixing: wind*Ch */ in latentflux()
381 PetscScalar beta = .4; /* moisture availability */ in latentflux()
382 PetscScalar mr; /* mixing ratio */ in latentflux()
383 PetscScalar lhcnst; /* latent heat of vaporization constant = 2501000 J/kg at 0c */ in latentflux()
400 …rCode potential_temperature(PetscScalar temp, PetscScalar pressure1, PetscScalar pressure2, PetscS… in potential_temperature()
402 PetscScalar kdry; /* poisson constant for dry atmosphere */ in potential_temperature()
403 PetscScalar pavg; /* average atmospheric pressure */ in potential_temperature()
418 extern PetscScalar calcmixingr(PetscScalar dtemp, PetscScalar pressure1) in calcmixingr()
420 PetscScalar e; /* vapor pressure */ in calcmixingr()
421 PetscScalar mixratio; /* mixing ratio */ in calcmixingr()
431 extern PetscScalar calc_q(PetscScalar rv) in calc_q()
433 PetscScalar specific_humidity; /* define specific humidity variable */ in calc_q()
438 PetscErrorCode calc_gflux(PetscScalar sfctemp, PetscScalar deep_grnd_temp, PetscScalar *Gflux) in calc_gflux()
440 PetscScalar k; /* thermal conductivity parameter */ in calc_gflux()
441 PetscScalar n = 0.38; /* value of soil porosity */ in calc_gflux()
442 PetscScalar dz = 1; /* depth of layer between soil surface and deep soil layer */ in calc_gflux()
443 PetscScalar unit_soil_weight = 2700; /* unit soil weight in kg/m^3 */ in calc_gflux()
450 extern PetscScalar emission(PetscScalar pwat) in emission()
452 PetscScalar emma; in emission()
458 extern PetscScalar cloud(PetscScalar fract) in cloud()
460 PetscScalar emma = 0; in cloud()
471 extern PetscScalar Lconst(PetscScalar sfctemp) in Lconst()
473 PetscScalar Lheat; in Lconst()
478 extern PetscScalar mph2mpers(PetscScalar wind) in mph2mpers()
483 extern PetscScalar fahr_to_cel(PetscScalar temp) in fahr_to_cel()
488 extern PetscScalar cel_to_fahr(PetscScalar temp) in cel_to_fahr()
613 PetscScalar csoil = user->csoil; /* heat constant for layer */ in RhsFunc()
614 …PetscScalar dzlay = user->dzlay; /* thickness of top soil layer */ in RhsFunc()
615 PetscScalar emma = user->emma; /* emission parameter */ in RhsFunc()
616 PetscScalar wind = user->wind; /* wind speed */ in RhsFunc()
617 …PetscScalar dewtemp = user->dewtemp; /* dew point temperature (moistu… in RhsFunc()
618 PetscScalar pressure1 = user->pressure1; /* sea level pressure */ in RhsFunc()
619 …PetscScalar airtemp = user->airtemp; /* temperature of air near bound… in RhsFunc()
620 …PetscScalar fract = user->fract; /* fraction of the sky covered b… in RhsFunc()
621 …PetscScalar Tc = user->Tc; /* temperature at base of lowest… in RhsFunc()
622 PetscScalar lat = user->lat; /* latitude */ in RhsFunc()
623 …PetscScalar Cp = 1005.7; /* specific heat of air at const… in RhsFunc()
624 PetscScalar Rd = 287.058; /* gas constant for dry air */ in RhsFunc()
625 PetscScalar diffconst = 1000; /* diffusion coefficient */ in RhsFunc()
626 PetscScalar f = 2 * 0.0000727 * PetscSinScalar(lat); /* coriolis force */ in RhsFunc()
627 …PetscScalar deep_grnd_temp = user->deep_grnd_temp; /* temp in lowest ground layer */ in RhsFunc()
628 PetscScalar Ts, u, v, p; in RhsFunc()
629 PetscScalar u_abs, u_plus, u_minus, v_abs, v_plus, v_minus; in RhsFunc()
631 PetscScalar sfctemp1, fsfc1, Ra; in RhsFunc()
632 PetscScalar sheat; /* sensible heat flux */ in RhsFunc()
633 PetscScalar latentheat; /* latent heat flux */ in RhsFunc()
634 PetscScalar groundflux; /* flux from conduction of deep ground layer in contact with top soil */ in RhsFunc()
729 const PetscScalar *array; in Monitor()