Symbol Description Uses
LENA 13


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