| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1210 |
RAS |
*, TX6(lng), TX7(lng), TX8(lng), TX9(lng) |
|
./pkg/fizhi/fizhi_moist.F |
1302 |
RAS |
*, TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, TX9 |
|
./pkg/fizhi/fizhi_moist.F |
1506 |
CLOUD |
*, TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, ALM |
|
./pkg/fizhi/fizhi_moist.F |
1647 |
CLOUD |
_RL TX5(LENC), TX6(LENC), TX7(LENC), TX8(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1837 |
CLOUD |
TX6(I) = (HST(II,IC1)-HOL(II,K))/(HST(II,IC1)-HST(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1839 |
CLOUD |
TX6(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1841 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC1)+PRS(II,IC1+1)) * (1.0-TX6(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1842 |
CLOUD |
* + TX2(I) * TX6(I) |
|
./pkg/fizhi/fizhi_moist.F |
1902 |
CLOUD |
TX6(LENA) = 1.0 |
|
./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 |
1915 |
CLOUD |
TX4(LENB) = TX6(I) |
|
./pkg/fizhi/fizhi_moist.F |
1958 |
CLOUD |
TX6(I) = TX4(I) |
|
./pkg/fizhi/fizhi_moist.F |
1959 |
CLOUD |
TEM = TX6(I) * (HOL(II,IC)-HOL(II,IC1)) + HOL(II,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
1962 |
CLOUD |
TEM1 = TX6(I) * (QOL(II,IC)-QOL(II,IC1)) + QOL(II,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
2117 |
CLOUD |
* + 0.5*(PRS(II,IC+2) - PRS(II,IC)) * (ONE-TX6(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2123 |
CLOUD |
TX6(I) = ONE - (TX2(I) - TX1(I)) / (TX5(I) - TX1(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2132 |
CLOUD |
TX6(I) = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
2134 |
CLOUD |
TX6(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
2146 |
CLOUD |
WFN(I) = - TX6(I) * WFN(I) * RASALF / AKM(I) |
|
./pkg/fizhi/fizhi_moist.F |
2240 |
CLOUD |
IF (TX6(I) .GE. 1.0) THEN |