| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1149 |
RAS |
_RL HST(lng,K), QOL(lng,K), GMH(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1241 |
RAS |
*, HST, QOL, GMH |
|
./pkg/fizhi/fizhi_moist.F |
1445 |
CLOUD |
*, HST, QOL, GMH |
|
./pkg/fizhi/fizhi_moist.F |
1584 |
CLOUD |
_RL HOL(LENC,K), ETA(LENC,K), HST(LENC,K), QOL(LENC,K) |
|
./pkg/fizhi/fizhi_moist.F |
1685 |
CLOUD |
HST(I,L) = TEM1 + QS1(I) * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1703 |
CLOUD |
HST(I,IC) = TEM1 + QS1(I) * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1710 |
CLOUD |
TX2(I) = HOL(I,K) - HST(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1719 |
CLOUD |
TX1(I) = TX1(I) + (HST(I,IC) - HOL(I,L)) * (ETA(I,L) - ETA(I,L+1)) |
|
./pkg/fizhi/fizhi_moist.F |
1737 |
CLOUD |
IF (TX2(I) .LE. 0.0 .AND. (HOL(I,K) .GT. HST(I,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
1748 |
CLOUD |
HST(I,1) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1770 |
CLOUD |
IF (HST(II,IC1) .LT. HST(II,IC)) THEN |
|
./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 |
1795 |
CLOUD |
* * HST(II,IC) * ETA(I,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
1816 |
CLOUD |
TEM1 = (TEM1 + ETA(I,L) * PCU(I)) * HST(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1855 |
CLOUD |
HST(I,1) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1882 |
CLOUD |
TX8(I) = HST(II,IC) - HOL(II,IC) |