| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1207 |
RAS |
_RL HST(lng,K), QOL(lng,K), GMH(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1301 |
RAS |
*, HST, QOL, GMH |
|
./pkg/fizhi/fizhi_moist.F |
1505 |
CLOUD |
*, HST, QOL, GMH |
|
./pkg/fizhi/fizhi_moist.F |
1644 |
CLOUD |
_RL HOL(LENC,K), ETA(LENC,K), HST(LENC,K), QOL(LENC,K) |
|
./pkg/fizhi/fizhi_moist.F |
1745 |
CLOUD |
HST(I,L) = TEM1 + QS1(I) * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1763 |
CLOUD |
HST(I,IC) = TEM1 + QS1(I) * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1770 |
CLOUD |
TX2(I) = HOL(I,K) - HST(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1779 |
CLOUD |
TX1(I) = TX1(I) + (HST(I,IC) - HOL(I,L)) * (ETA(I,L) - ETA(I,L+1)) |
|
./pkg/fizhi/fizhi_moist.F |
1797 |
CLOUD |
IF (TX2(I) .LE. 0.0 .AND. (HOL(I,K) .GT. HST(I,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
1813 |
CLOUD |
HST(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1836 |
CLOUD |
IF (HST(II,IC1) .LT. HST(II,IC)) THEN |
|
./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 |
1861 |
CLOUD |
* * HST(II,IC) * ETA(I,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
1882 |
CLOUD |
TEM1 = (TEM1 + ETA(I,L) * PCU(I)) * HST(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1926 |
CLOUD |
HST(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1954 |
CLOUD |
TX8(I) = HST(II,IC) - HOL(II,IC) |