| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1178 |
RAS |
*, UOI, ntracedim, ntracer, POI, QOI, PRS, PRJ, rnd, ncrnd |
|
./pkg/fizhi/fizhi_moist.F |
1195 |
RAS |
_RL QOI(lng,K), PRS(lng,K+1), PRJ(lng,K+1) |
|
./pkg/fizhi/fizhi_moist.F |
1298 |
RAS |
*, POI, QOI, UOI, ntracedim, Ntracer, PRS, PRJ |
|
./pkg/fizhi/fizhi_moist.F |
1502 |
CLOUD |
*, POI, QOI, UOI, ntracedim, Ntracer, PRS, PRJ |
|
./pkg/fizhi/fizhi_moist.F |
1639 |
CLOUD |
_RL POI(lng,K),QOI(lng,K),PRS(lng,K+1),PRJ(lng,K+1) |
|
./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 |
1728 |
CLOUD |
TX1(I) = PRJ(I,K+1) * POI(I,K) |
|
./pkg/fizhi/fizhi_moist.F |
1734 |
CLOUD |
TX2(I) = (PRJ(I,K+1) - PRJ(I,K)) * POI(I,K) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1743 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,L+1) * POI(I,L) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1747 |
CLOUD |
TX1(I) = (PRJ(I,L+1) - PRJ(I,L)) * POI(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1761 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,IC1) * POI(I,IC) * CP |
|
./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 |
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 |
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 |
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))) |