| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1444 |
CLOUD |
*, ALF, BET, GAM, PRH, PRI, HOL, ETA |
|
./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 |
1672 |
CLOUD |
HOL(I,K) = TX1(I)*CP + QOL(I,K)*ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1684 |
CLOUD |
HOL(I,L) = TEM1 + QOL(I,L )* ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1697 |
CLOUD |
HOL(I,IC) = TX2(I) |
|
./pkg/fizhi/fizhi_moist.F |
1702 |
CLOUD |
HOL(I,IC) = TEM1 + QOL(I,IC) * 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 |
1771 |
CLOUD |
TX6(I) = (HST(II,IC1)-HOL(II,K))/(HST(II,IC1)-HST(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1801 |
CLOUD |
TX1(I) = HOL(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
1809 |
CLOUD |
TEM = TX1(I) + (ETA(I,L) - ETA(I,L+1)) * HOL(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1882 |
CLOUD |
TX8(I) = HST(II,IC) - HOL(II,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1887 |
CLOUD |
TEM = TX6(I) * (HOL(II,IC)-HOL(II,IC1)) + HOL(II,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
1888 |
CLOUD |
TX8(I) = HOL(II,K) - TEM |
|
./pkg/fizhi/fizhi_moist.F |
1893 |
CLOUD |
TX3(I) = HOL(II,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1900 |
CLOUD |
TX7(I) = HOL(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
1932 |
CLOUD |
HOL(I,K) = TEM * (PRJ(II,K)-PRH(II,KM1))*PRH(II,K)*PRI(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
1933 |
CLOUD |
HOL(I,KM1) = TEM * (PRH(II,K)-PRJ(II,K))*PRH(II,KM1)*PRI(II,KM1) |
|
./pkg/fizhi/fizhi_moist.F |
1945 |
CLOUD |
HOL(I,L) = TEM * (PRJ(II,L)-PRH(II,L-1)) * PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1946 |
CLOUD |
* * PRI(II,L) + HOL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1947 |
CLOUD |
HOL(I,L-1) = TEM * (PRH(II,L)-PRJ(II,L)) * PRH(II,L-1) |
|
./pkg/fizhi/fizhi_moist.F |
1950 |
CLOUD |
AKM(I) = AKM(I) - HOL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1963 |
CLOUD |
TX1(I) = HOL(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1971 |
CLOUD |
HOL(I,IC) = TX1(I) - TX2(I) * ALBCP * PRI(I1(I),IC) |
|
./pkg/fizhi/fizhi_moist.F |
1987 |
CLOUD |
GMH(I,K) = HOL(I,K) + TX3(I) * PRI(II,K) * (ALBCP) |
|
./pkg/fizhi/fizhi_moist.F |
2002 |
CLOUD |
GMH(I,L) = HOL(I,L) + TX2(I) * PRI(II,L) * (ALBCP*HALF) |
|
./pkg/fizhi/fizhi_moist.F |
2054 |
CLOUD |
HOL(I,IC1) = HOL(I,IC1) + HOL(I,IC) * TEM |
|
./pkg/fizhi/fizhi_moist.F |
2055 |
CLOUD |
HOL(I,IC) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2123 |
CLOUD |
TEM = (GMH(I,L) - HOL(I,L)) * TX4(I) |
|
./pkg/fizhi/fizhi_moist.F |
2124 |
CLOUD |
TEM1 = HOL(I,L) * TX5(I) |