File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
1148 |
RAS |
*, PRH(lng,K), PRI(lng,K) |
./pkg/fizhi/fizhi_moist.F |
1240 |
RAS |
*, ALF, BET, GAM, PRH, PRI, HOI, ETA |
./pkg/fizhi/fizhi_moist.F |
1444 |
CLOUD |
*, ALF, BET, GAM, PRH, PRI, HOL, ETA |
./pkg/fizhi/fizhi_moist.F |
1583 |
CLOUD |
_RL ALF(lng,K), BET(lng,K), GAM(lng,K), PRH(lng,K), PRI(lng,K) |
./pkg/fizhi/fizhi_moist.F |
1645 |
CLOUD |
PRI(I,L) = (CP/CMB2PA) / (PRS(I,L+1) - PRS(I,L)) |
./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 |
1946 |
CLOUD |
* * PRI(II,L) + HOL(I,L) |
./pkg/fizhi/fizhi_moist.F |
1948 |
CLOUD |
* * PRI(II,L-1) |
./pkg/fizhi/fizhi_moist.F |
1967 |
CLOUD |
TX1(I) = TX1(I) + (TX5(I)-TX3(I)+QOL(II,IC)*ALHL)*(PRI(II,IC)/CP) |
./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 |
2012 |
CLOUD |
GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP |
./pkg/fizhi/fizhi_moist.F |
2053 |
CLOUD |
TEM = PRI(II,IC1) / PRI(II,IC) |
./pkg/fizhi/fizhi_moist.F |
2146 |
CLOUD |
TEM = half*TX5(I) * PRI(II,K) |
./pkg/fizhi/fizhi_moist.F |
2156 |
CLOUD |
TEM = half*TX5(I) * PRI(II,L) |
./pkg/fizhi/fizhi_moist.F |
2169 |
CLOUD |
TEM = half*TX5(I) * PRI(II,IC) |