| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1507 |
CLOUD |
*, WFN, AKM, QS1, CLF, UHT, WLQ |
|
./pkg/fizhi/fizhi_moist.F |
1648 |
CLOUD |
_RL ALM(LENC), WFN(LENC), AKM(LENC), QS1(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
2006 |
CLOUD |
AKM(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2022 |
CLOUD |
AKM(I) = AKM(I) - HOL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2049 |
CLOUD |
AKM(I) = AKM(I) - ETA(I,IC1) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
2061 |
CLOUD |
AKM(I) = AKM(I) + GAM(II,KM1)*(PRJ(II,K)-PRH(II,KM1)) |
|
./pkg/fizhi/fizhi_moist.F |
2108 |
CLOUD |
AKM(I) = AKM(I) + TX1(I) * |
|
./pkg/fizhi/fizhi_moist.F |
2145 |
CLOUD |
IF (AKM(I) .LT. ZERO .AND. WLQ(I) .GE. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2146 |
CLOUD |
WFN(I) = - TX6(I) * WFN(I) * RASALF / AKM(I) |