Symbol Description Uses
LENA 13


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