| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1890 |
CLOUD |
LENA = 0 |
|
./pkg/fizhi/fizhi_moist.F |
1897 |
CLOUD |
LENA = LENA + 1 |
|
./pkg/fizhi/fizhi_moist.F |
1898 |
CLOUD |
I1(LENA) = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1899 |
CLOUD |
I2(LENA) = I |
|
./pkg/fizhi/fizhi_moist.F |
1900 |
CLOUD |
TX1(LENA) = WFN(I) |
|
./pkg/fizhi/fizhi_moist.F |
1901 |
CLOUD |
TX2(LENA) = QS1(IA(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1902 |
CLOUD |
TX6(LENA) = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
1906 |
CLOUD |
LENB = LENA |
|
./pkg/fizhi/fizhi_moist.F |
1950 |
CLOUD |
LENA1 = LENA + 1 |
|
./pkg/fizhi/fizhi_moist.F |
1952 |
CLOUD |
DO 510 I=1,LENA |
|
./pkg/fizhi/fizhi_moist.F |
2046 |
CLOUD |
IF (LENA .GT. 0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2047 |
CLOUD |
DO 810 I=1,LENA |