| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1206 |
RAS |
*, PRH(lng,K), PRI(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1300 |
RAS |
*, ALF, BET, GAM, PRH, PRI, HOI, ETA |
|
./pkg/fizhi/fizhi_moist.F |
1504 |
CLOUD |
*, ALF, BET, GAM, PRH, PRI, HOL, ETA |
|
./pkg/fizhi/fizhi_moist.F |
1643 |
CLOUD |
_RL ALF(lng,K), BET(lng,K), GAM(lng,K), PRH(lng,K), PRI(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1691 |
CLOUD |
PRH(I,L) = (PRJ(I,L+1)*PRS(I,L+1) - PRJ(I,L)*PRS(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1698 |
CLOUD |
TX5(I) = POI(I,L) * PRH(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1703 |
CLOUD |
BET(I,L) = TX4(I) * PRH(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1704 |
CLOUD |
GAM(I,L) = 1.0 / ((1.0 + TX4(I)*ALBCP) * PRH(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1765 |
CLOUD |
TX3(I ) = (PRJ(I,IC1) - PRH(I,IC)) * POI(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1860 |
CLOUD |
WFN(I) = - GAM(II,IC) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1877 |
CLOUD |
PCU(I) = PRJ(II,L+1) - PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1881 |
CLOUD |
PCU(I) = PRH(II,L) - PRJ(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1894 |
CLOUD |
WFN(I) = WFN(I) + TX1(I) * GAM(II,IC)*(PRJ(II,IC1)-PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
2003 |
CLOUD |
TEM = (POI(II,KM1) - POI(II,K)) / (PRH(II,K) - PRH(II,KM1)) |
|
./pkg/fizhi/fizhi_moist.F |
2004 |
CLOUD |
HOL(I,K) = TEM * (PRJ(II,K)-PRH(II,KM1))*PRH(II,K)*PRI(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
2005 |
CLOUD |
HOL(I,KM1) = TEM * (PRH(II,K)-PRJ(II,K))*PRH(II,KM1)*PRI(II,KM1) |
|
./pkg/fizhi/fizhi_moist.F |
2015 |
CLOUD |
* / (PRH(II,L) - PRH(II,L-1)) |
|
./pkg/fizhi/fizhi_moist.F |
2017 |
CLOUD |
HOL(I,L) = TEM * (PRJ(II,L)-PRH(II,L-1)) * PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
2019 |
CLOUD |
HOL(I,L-1) = TEM * (PRH(II,L)-PRJ(II,L)) * PRH(II,L-1) |
|
./pkg/fizhi/fizhi_moist.F |
2023 |
CLOUD |
* * (ETA(I,L) * (PRH(II,L)-PRJ(II,L)) + |
|
./pkg/fizhi/fizhi_moist.F |
2024 |
CLOUD |
* ETA(I,L+1) * (PRJ(II,L+1)-PRH(II,L))) / PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
2049 |
CLOUD |
AKM(I) = AKM(I) - ETA(I,IC1) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
2050 |
CLOUD |
* * TX1(I) / PRH(II,IC) |
|
./pkg/fizhi/fizhi_moist.F |
2061 |
CLOUD |
AKM(I) = AKM(I) + GAM(II,KM1)*(PRJ(II,K)-PRH(II,KM1)) |
|
./pkg/fizhi/fizhi_moist.F |
2098 |
CLOUD |
TX2(I) = GAM(II,L-1) * (PRJ(II,L) - PRH(II,L-1)) |
|
./pkg/fizhi/fizhi_moist.F |
2109 |
CLOUD |
* (TX2(I) + GAM(II,L)*(PRH(II,L)-PRJ(II,L))) |
|
./pkg/fizhi/fizhi_moist.F |
2198 |
CLOUD |
TCU(II,L) = TEM1 / PRH(II,L) |