| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1213 |
RAS |
*, WFN(lng) |
|
./pkg/fizhi/fizhi_moist.F |
1303 |
RAS |
*, WFN, TX11, TX12, TX13, TX14, TX15 |
|
./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 |
1834 |
CLOUD |
WFN(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1860 |
CLOUD |
WFN(I) = - GAM(II,IC) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1885 |
CLOUD |
WFN(I) = WFN(I) + (TX1(I) - TEM1) * GAM(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1894 |
CLOUD |
WFN(I) = WFN(I) + TX1(I) * GAM(II,IC)*(PRJ(II,IC1)-PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1896 |
CLOUD |
IF (WFN(I) .GT. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1900 |
CLOUD |
TX1(LENA) = WFN(I) |
|
./pkg/fizhi/fizhi_moist.F |
1908 |
CLOUD |
WFN(I) = WFN(I) - TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
1909 |
CLOUD |
IF (WFN(I) .GT. 0.0 .AND. TX6(I) .GT. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1913 |
CLOUD |
TX1(LENB) = WFN(I) |
|
./pkg/fizhi/fizhi_moist.F |
1938 |
CLOUD |
WFN(I) = TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2146 |
CLOUD |
WFN(I) = - TX6(I) * WFN(I) * RASALF / AKM(I) |
|
./pkg/fizhi/fizhi_moist.F |
2148 |
CLOUD |
WFN(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2151 |
CLOUD |
WFN(I) = MIN(WFN(I), TEM) |
|
./pkg/fizhi/fizhi_moist.F |
2161 |
CLOUD |
PCU(II) = WLQ(I) * WFN(I) * ONEBG |
|
./pkg/fizhi/fizhi_moist.F |
2165 |
CLOUD |
TX4(I) = WFN(I) * (1.0/ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
2166 |
CLOUD |
TX5(I) = WFN(I) * ONEBCP |
|
./pkg/fizhi/fizhi_moist.F |
2175 |
CLOUD |
CMASS(II,L) = ETA(I,L+1) * WFN(I) * ONEBG |
|
./pkg/fizhi/fizhi_moist.F |
2177 |
CLOUD |
CMASS(II,L) = WFN(I) * ONEBG |