| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1152 |
RAS |
*, TX6(lng), TX7(lng), TX8(lng), TX9(lng) |
|
./pkg/fizhi/fizhi_moist.F |
1242 |
RAS |
*, TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, TX9 |
|
./pkg/fizhi/fizhi_moist.F |
1446 |
CLOUD |
*, TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, ALM |
|
./pkg/fizhi/fizhi_moist.F |
1587 |
CLOUD |
_RL TX5(LENC), TX6(LENC), TX7(LENC), TX8(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1771 |
CLOUD |
TX6(I) = (HST(II,IC1)-HOL(II,K))/(HST(II,IC1)-HST(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1773 |
CLOUD |
TX6(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1775 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC1)+PRS(II,IC1+1)) * (1.0-TX6(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1776 |
CLOUD |
* + TX2(I) * TX6(I) |
|
./pkg/fizhi/fizhi_moist.F |
1836 |
CLOUD |
TX6(LENA) = 1.0 |
|
./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 |
1849 |
CLOUD |
TX4(LENB) = TX6(I) |
|
./pkg/fizhi/fizhi_moist.F |
1886 |
CLOUD |
TX6(I) = TX4(I) |
|
./pkg/fizhi/fizhi_moist.F |
1887 |
CLOUD |
TEM = TX6(I) * (HOL(II,IC)-HOL(II,IC1)) + HOL(II,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
1890 |
CLOUD |
TEM1 = TX6(I) * (QOL(II,IC)-QOL(II,IC1)) + QOL(II,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
2045 |
CLOUD |
* + 0.5*(PRS(II,IC+2) - PRS(II,IC)) * (ONE-TX6(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2051 |
CLOUD |
TX6(I) = ONE - (TX2(I) - TX1(I)) / (TX5(I) - TX1(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2060 |
CLOUD |
TX6(I) = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
2062 |
CLOUD |
TX6(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
2074 |
CLOUD |
WFN(I) = - TX6(I) * WFN(I) * RASALF / AKM(I) |
|
./pkg/fizhi/fizhi_moist.F |
2168 |
CLOUD |
IF (TX6(I) .GE. 1.0) THEN |