| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1621 |
CLOUD |
KM1 = K - 1 |
|
./pkg/fizhi/fizhi_moist.F |
1677 |
CLOUD |
IF (IC .LT. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1678 |
CLOUD |
DO 3703 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1717 |
CLOUD |
DO 160 L=IC,KM1 |
|
./pkg/fizhi/fizhi_moist.F |
1781 |
CLOUD |
DO 260 L=KM1,IC,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1804 |
CLOUD |
IF (IC1 .LE. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1806 |
CLOUD |
DO 380 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1909 |
CLOUD |
DO 635 L=KM1,IC,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1917 |
CLOUD |
DO L=KM1,IC,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1931 |
CLOUD |
TEM = (POI(II,KM1) - POI(II,K)) / (PRH(II,K) - PRH(II,KM1)) |
|
./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 |
1938 |
CLOUD |
IF (IC1 .LE. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1939 |
CLOUD |
DO 750 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
1986 |
CLOUD |
TX3(I) = QOL(II,KM1) - QOL(II,K) |
|
./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 |
1994 |
CLOUD |
IF (IC1 .LE. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1995 |
CLOUD |
DO 840 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
2018 |
CLOUD |
IF (IC1 .LE. KM1) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2022 |
CLOUD |
DO 3725 L=KM1,IC1,-1 |
|
./pkg/fizhi/fizhi_moist.F |
2147 |
CLOUD |
TX1(I) = ( UOI(II,KM1+nltop-1,nt) - UOI(II,K+nltop-1,nt)) |
|
./pkg/fizhi/fizhi_moist.F |
2153 |
CLOUD |
DO 1020 L=KM1,IC1,-1 |