| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1251 |
RAS |
KM1 = K - 1 |
|
./pkg/fizhi/fizhi_moist.F |
1258 |
RAS |
KPRV = KM1 |
|
./pkg/fizhi/fizhi_moist.F |
1260 |
RAS |
KCR = MIN(KM1,nlayr-2) |
|
./pkg/fizhi/fizhi_moist.F |
1261 |
RAS |
KFX = KM1 - KCR |
|
./pkg/fizhi/fizhi_moist.F |
1681 |
CLOUD |
KM1 = K - 1 |
|
./pkg/fizhi/fizhi_moist.F |
1737 |
CLOUD |
IF (IC .LT. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1738 |
CLOUD |
DO 3703 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1777 |
CLOUD |
DO 160 L=IC,KM1 |
|
./pkg/fizhi/fizhi_moist.F |
1847 |
CLOUD |
DO 260 L=KM1,IC,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1870 |
CLOUD |
IF (IC1 .LE. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1872 |
CLOUD |
DO 380 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1981 |
CLOUD |
DO 635 L=KM1,IC,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1989 |
CLOUD |
DO L=KM1,IC,-1 |
|
./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 |
2010 |
CLOUD |
IF (IC1 .LE. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2011 |
CLOUD |
DO 750 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
2058 |
CLOUD |
TX3(I) = QOL(II,KM1) - QOL(II,K) |
|
./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 |
2066 |
CLOUD |
IF (IC1 .LE. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2067 |
CLOUD |
DO 840 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
2090 |
CLOUD |
IF (IC1 .LE. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2094 |
CLOUD |
DO 3725 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
2219 |
CLOUD |
TX1(I) = ( UOI(II,KM1+nltop-1,nt) - UOI(II,K+nltop-1,nt)) |
|
./pkg/fizhi/fizhi_moist.F |
2225 |
CLOUD |
DO 1020 L=KM1,IC1,-1 |