| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1447 |
CLOUD |
*, WFN, AKM, QS1, CLF, UHT, WLQ |
|
./pkg/fizhi/fizhi_moist.F |
1588 |
CLOUD |
_RL ALM(LENC), WFN(LENC), AKM(LENC), QS1(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1934 |
CLOUD |
AKM(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1950 |
CLOUD |
AKM(I) = AKM(I) - HOL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1977 |
CLOUD |
AKM(I) = AKM(I) - ETA(I,IC1) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1989 |
CLOUD |
AKM(I) = AKM(I) + GAM(II,KM1)*(PRJ(II,K)-PRH(II,KM1)) |
|
./pkg/fizhi/fizhi_moist.F |
2036 |
CLOUD |
AKM(I) = AKM(I) + TX1(I) * |
|
./pkg/fizhi/fizhi_moist.F |
2073 |
CLOUD |
IF (AKM(I) .LT. ZERO .AND. WLQ(I) .GE. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2074 |
CLOUD |
WFN(I) = - TX6(I) * WFN(I) * RASALF / AKM(I) |