| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1155 |
RAS |
*, WFN(lng) |
|
./pkg/fizhi/fizhi_moist.F |
1243 |
RAS |
*, WFN, TX11, TX12, TX13, TX14, TX15 |
|
./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 |
1768 |
CLOUD |
WFN(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1794 |
CLOUD |
WFN(I) = - GAM(II,IC) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1819 |
CLOUD |
WFN(I) = WFN(I) + (TX1(I) - TEM1) * GAM(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1828 |
CLOUD |
WFN(I) = WFN(I) + TX1(I) * GAM(II,IC)*(PRJ(II,IC1)-PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1830 |
CLOUD |
IF (WFN(I) .GT. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1834 |
CLOUD |
TX1(LENA) = WFN(I) |
|
./pkg/fizhi/fizhi_moist.F |
1842 |
CLOUD |
WFN(I) = WFN(I) - TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
1843 |
CLOUD |
IF (WFN(I) .GT. 0.0 .AND. TX6(I) .GT. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1847 |
CLOUD |
TX1(LENB) = WFN(I) |
|
./pkg/fizhi/fizhi_moist.F |
1866 |
CLOUD |
WFN(I) = TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2074 |
CLOUD |
WFN(I) = - TX6(I) * WFN(I) * RASALF / AKM(I) |
|
./pkg/fizhi/fizhi_moist.F |
2076 |
CLOUD |
WFN(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2079 |
CLOUD |
WFN(I) = MIN(WFN(I), TEM) |
|
./pkg/fizhi/fizhi_moist.F |
2089 |
CLOUD |
PCU(II) = WLQ(I) * WFN(I) * ONEBG |
|
./pkg/fizhi/fizhi_moist.F |
2093 |
CLOUD |
TX4(I) = WFN(I) * (1.0/ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
2094 |
CLOUD |
TX5(I) = WFN(I) * ONEBCP |
|
./pkg/fizhi/fizhi_moist.F |
2103 |
CLOUD |
CMASS(II,L) = ETA(I,L+1) * WFN(I) * ONEBG |
|
./pkg/fizhi/fizhi_moist.F |
2105 |
CLOUD |
CMASS(II,L) = WFN(I) * ONEBG |