| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1447 |
CLOUD |
*, WFN, AKM, QS1, CLF, UHT, WLQ |
|
./pkg/fizhi/fizhi_moist.F |
1589 |
CLOUD |
_RL WLQ(LENC), CLF(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1899 |
CLOUD |
WLQ(I) = QOL(II,K) - QS1(I) * ETA(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1913 |
CLOUD |
WLQ(I) = WLQ(I) + TEM * QOL(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1960 |
CLOUD |
TX2(I) = (ONE - TX1(I)) * WLQ(I) |
|
./pkg/fizhi/fizhi_moist.F |
1961 |
CLOUD |
WLQ(I) = TX1(I) * WLQ(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 |
2089 |
CLOUD |
PCU(II) = WLQ(I) * WFN(I) * ONEBG |