| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1120 |
RAS |
*, UOI, ntracedim, ntracer, POI, QOI, PRS, PRJ, rnd, ncrnd |
|
./pkg/fizhi/fizhi_moist.F |
1137 |
RAS |
_RL QOI(lng,K), PRS(lng,K+1), PRJ(lng,K+1) |
|
./pkg/fizhi/fizhi_moist.F |
1238 |
RAS |
*, POI, QOI, UOI, ntracedim, Ntracer, PRS, PRJ |
|
./pkg/fizhi/fizhi_moist.F |
1442 |
CLOUD |
*, POI, QOI, UOI, ntracedim, Ntracer, PRS, PRJ |
|
./pkg/fizhi/fizhi_moist.F |
1579 |
CLOUD |
_RL POI(lng,K),QOI(lng,K),PRS(lng,K+1),PRJ(lng,K+1) |
|
./pkg/fizhi/fizhi_moist.F |
1631 |
CLOUD |
PRH(I,L) = (PRJ(I,L+1)*PRS(I,L+1) - PRJ(I,L)*PRS(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1668 |
CLOUD |
TX1(I) = PRJ(I,K+1) * POI(I,K) |
|
./pkg/fizhi/fizhi_moist.F |
1674 |
CLOUD |
TX2(I) = (PRJ(I,K+1) - PRJ(I,K)) * POI(I,K) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1683 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,L+1) * POI(I,L) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1687 |
CLOUD |
TX1(I) = (PRJ(I,L+1) - PRJ(I,L)) * POI(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1701 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,IC1) * POI(I,IC) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1705 |
CLOUD |
TX3(I ) = (PRJ(I,IC1) - PRH(I,IC)) * POI(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1794 |
CLOUD |
WFN(I) = - GAM(II,IC) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1811 |
CLOUD |
PCU(I) = PRJ(II,L+1) - PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1815 |
CLOUD |
PCU(I) = PRH(II,L) - PRJ(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1828 |
CLOUD |
WFN(I) = WFN(I) + TX1(I) * GAM(II,IC)*(PRJ(II,IC1)-PRH(II,IC)) |
|
./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 |
1947 |
CLOUD |
HOL(I,L-1) = TEM * (PRH(II,L)-PRJ(II,L)) * PRH(II,L-1) |
|
./pkg/fizhi/fizhi_moist.F |
1951 |
CLOUD |
* * (ETA(I,L) * (PRH(II,L)-PRJ(II,L)) + |
|
./pkg/fizhi/fizhi_moist.F |
1952 |
CLOUD |
* ETA(I,L+1) * (PRJ(II,L+1)-PRH(II,L))) / PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1977 |
CLOUD |
AKM(I) = AKM(I) - ETA(I,IC1) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1989 |
CLOUD |
AKM(I) = AKM(I) + GAM(II,KM1)*(PRJ(II,K)-PRH(II,KM1)) |
|
./pkg/fizhi/fizhi_moist.F |
2026 |
CLOUD |
TX2(I) = GAM(II,L-1) * (PRJ(II,L) - PRH(II,L-1)) |
|
./pkg/fizhi/fizhi_moist.F |
2037 |
CLOUD |
* (TX2(I) + GAM(II,L)*(PRH(II,L)-PRJ(II,L))) |