| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
204 |
EXF_BULKFORMULAE |
_RL rh ! = Ch / sqrt(Cd) [-] |
|
./pkg/exf/exf_bulkformulae.F |
462 |
EXF_BULKFORMULAE |
rh = rhn/(exf_one + rhn*(ztln-psixh)/karman) |
|
./pkg/exf/exf_bulkformulae.F |
467 |
EXF_BULKFORMULAE |
tstar(i,j) = rh*deltap(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
2402 |
RNEVP |
_RL fracwat,fracice, tice,rh,fact,dum |
|
./pkg/fizhi/fizhi_moist.F |
2548 |
RNEVP |
call QSAT( tl(i,L),pl(i,L),rh,dum,.false.) |
|
./pkg/fizhi/fizhi_moist.F |
2549 |
RNEVP |
rh = ql(i,L)/rh |
|
./pkg/fizhi/fizhi_moist.F |
2554 |
RNEVP |
fact = min( 1.0 _d 0, alpha + (1.0-alpha)*( rh-rhcrit(i,L)) / |
|
./pkg/fizhi/fizhi_moist.F |
2626 |
SRCLOUDS |
_RL rhcrit,rh,dum |
|
./pkg/fizhi/fizhi_moist.F |
2654 |
SRCLOUDS |
rh = q(i,L)/qs(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2657 |
SRCLOUDS |
ratio = alpha*(rh-rhcrit)/offset |
|
./pkg/fizhi/fizhi_moist.F |
47 |
MOISTIO |
_RL fracqq, rh, dum |
|
./pkg/fizhi/fizhi_moist.F |
482 |
MOISTIO |
rh = SHL(I,NSUBCL) / tmp2(i,3) |
|
./pkg/fizhi/fizhi_moist.F |
483 |
MOISTIO |
if (rh .le. 0.85) then |
|
./pkg/fizhi/fizhi_moist.F |
485 |
MOISTIO |
else if (rh .ge. 0.95) then |
|
./pkg/fizhi/fizhi_moist.F |
488 |
MOISTIO |
rhfrac(i) = (rh-0.85)*10. |
|
./pkg/thsice/thsice_get_exf.F |
105 |
THSICE_GET_EXF |
_RL rh (1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! = Ch / sqrt(Cd) [-] |
|
./pkg/thsice/thsice_get_exf.F |
194 |
THSICE_GET_EXF |
rh(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
417 |
THSICE_GET_EXF |
rh(i,j)= rhn/( exf_one + rhn*(ztln-psixh)/karman ) |
|
./pkg/thsice/thsice_get_exf.F |
423 |
THSICE_GET_EXF |
tstar(i,j) = rh(i,j)*deltap(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
449 |
THSICE_GET_EXF |
dfshdT = -atmcp*tau*rh(i,j) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
182 |
BULKF_FORMULA_LANL |
rh = rhn/(1. _d 0 + rhn*(aln-psixh)/xkar) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
183 |
BULKF_FORMULA_LANL |
re = rh |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
187 |
BULKF_FORMULA_LANL |
tstar = rh*deltap |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
192 |
BULKF_FORMULA_LANL |
csha = rhoa*cpair*us*rh*rd |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
88 |
BULKF_FORMULA_LANL |
_RL rh ! = Ch / sqrt(Cd) [-] |
|
./pkg/bulk_force/bulkf_formula_lay.F |
217 |
BULKF_FORMULA_LAY |
rh = rhn/(1. _d 0 + rhn*(ztln-psixh)/xkar) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
223 |
BULKF_FORMULA_LAY |
tstar = rh*delth |
|
./pkg/bulk_force/bulkf_formula_lay.F |
229 |
BULKF_FORMULA_LAY |
csha = cpAir*tau*rh |
|
./pkg/bulk_force/bulkf_formula_lay.F |
97 |
BULKF_FORMULA_LAY |
_RL rh ! = Ch / sqrt(Cd) [-] |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
181 |
CHEAPAML_LANL_FLUX |
rh = rhn/(1. _d 0 + rhn*(aln-psixh)/xkar) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
182 |
CHEAPAML_LANL_FLUX |
re = rh |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
186 |
CHEAPAML_LANL_FLUX |
tstar = rh*deltap |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
190 |
CHEAPAML_LANL_FLUX |
csha = rhoa*cpair*usm*rh*rd |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
69 |
CHEAPAML_LANL_FLUX |
_RL rd,re,rh,tta,ttas,toa,ttt |