File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
125 |
MOISTIO |
_RL rhfrac(istrip), rhmin, pup, ppbl, rhcrit(istrip,lm) |
./pkg/fizhi/fizhi_moist.F |
2381 |
RNEVP |
_RL rhcrit(irun,nlay) |
./pkg/fizhi/fizhi_moist.F |
2544 |
RNEVP |
rainmax(i) = rhcrit(i,L)*evp9(i,L) + |
./pkg/fizhi/fizhi_moist.F |
2545 |
RNEVP |
. ql(i,L)*(rhcrit(i,L)-1.)/temp3(i,L) |
./pkg/fizhi/fizhi_moist.F |
2551 |
RNEVP |
if( rhcrit(i,L).eq.1.0 ) then |
./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 |
2555 |
RNEVP |
1 (1.0-rhcrit(i,L)) ) |
./pkg/fizhi/fizhi_moist.F |
2626 |
SRCLOUDS |
_RL rhcrit,rh,dum |
./pkg/fizhi/fizhi_moist.F |
2656 |
SRCLOUDS |
rhcrit = rhc(i,L) - offset |
./pkg/fizhi/fizhi_moist.F |
2657 |
SRCLOUDS |
ratio = alpha*(rh-rhcrit)/offset |
./pkg/fizhi/fizhi_moist.F |
504 |
MOISTIO |
rhcrit(i,L) = 1. |
./pkg/fizhi/fizhi_moist.F |
509 |
MOISTIO |
rhcrit(i,L) = rhmin |
./pkg/fizhi/fizhi_moist.F |
512 |
MOISTIO |
rhcrit(i,L) = rhmin + (1.-rhmin)/(19.) * |
./pkg/fizhi/fizhi_moist.F |
656 |
MOISTIO |
. CLSBTH,TMSTP,one,cp,grav,alhl,gamfac,cldlz,rhcrit,offset,alpha) |
./pkg/fizhi/fizhi_moist.F |
701 |
MOISTIO |
. rhcrit,offset,alpha) |