| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1180 |
RAS |
*, cp,grav,rkappa,alhl,rhfrac,rasmax ) |
|
./pkg/fizhi/fizhi_moist.F |
1199 |
RAS |
_RL cp,grav,rkappa,alhl,rhfrac(lng),rasmax |
|
./pkg/fizhi/fizhi_moist.F |
125 |
MOISTIO |
_RL rhfrac(istrip), rhmin, pup, ppbl, rhcrit(istrip,lm) |
|
./pkg/fizhi/fizhi_moist.F |
1304 |
RAS |
*, IA1,IA2,IA3,rhfrac) |
|
./pkg/fizhi/fizhi_moist.F |
1316 |
RAS |
tx1(i) = rhfrac(i)*rknob * cmass(i,ib) / tx1(i) |
|
./pkg/fizhi/fizhi_moist.F |
1325 |
RAS |
cmass(i,L) = rhfrac(i)*cmass(i,L) * dt |
|
./pkg/fizhi/fizhi_moist.F |
1342 |
RAS |
POI(I,L) = POI(I,L) + TCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1343 |
RAS |
QOI(I,L) = QOI(I,L) + QCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1349 |
RAS |
UOI(I,L+nltop-1,NT)=UOI(I,L+nltop-1,NT)+UCU(I,L,NT)*DT*rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1354 |
RAS |
rains(I,ib) = rains(I,ib) + PCU(I)*dt * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1365 |
RAS |
temp = TCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1508 |
CLOUD |
*, IA, I1, I2,rhfrac) |
|
./pkg/fizhi/fizhi_moist.F |
1652 |
CLOUD |
_RL rhfrac(lng) |
|
./pkg/fizhi/fizhi_moist.F |
1787 |
CLOUD |
. .AND. rhfrac(i).ne.0.0 ) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1798 |
CLOUD |
. .AND. rhfrac(i).ne.0.0 ) THEN |
|
./pkg/fizhi/fizhi_moist.F |
484 |
MOISTIO |
rhfrac(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
486 |
MOISTIO |
rhfrac(i) = 1. |
|
./pkg/fizhi/fizhi_moist.F |
488 |
MOISTIO |
rhfrac(i) = (rh-0.85)*10. |
|
./pkg/fizhi/fizhi_moist.F |
536 |
MOISTIO |
8, cp,grav,rkappa,alhl,rhfrac(num),rasmax ) |