| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1824 |
CLOUD |
LENA = 0 |
|
./pkg/fizhi/fizhi_moist.F |
1831 |
CLOUD |
LENA = LENA + 1 |
|
./pkg/fizhi/fizhi_moist.F |
1832 |
CLOUD |
I1(LENA) = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1833 |
CLOUD |
I2(LENA) = I |
|
./pkg/fizhi/fizhi_moist.F |
1834 |
CLOUD |
TX1(LENA) = WFN(I) |
|
./pkg/fizhi/fizhi_moist.F |
1835 |
CLOUD |
TX2(LENA) = QS1(IA(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1836 |
CLOUD |
TX6(LENA) = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
1840 |
CLOUD |
LENB = LENA |
|
./pkg/fizhi/fizhi_moist.F |
1878 |
CLOUD |
LENA1 = LENA + 1 |
|
./pkg/fizhi/fizhi_moist.F |
1880 |
CLOUD |
DO 510 I=1,LENA |
|
./pkg/fizhi/fizhi_moist.F |
1974 |
CLOUD |
IF (LENA .GT. 0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1975 |
CLOUD |
DO 810 I=1,LENA |