Symbol Description Uses
LEN1 11


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1722 CLOUD 
      LEN1 = 0
./pkg/fizhi/fizhi_moist.F 1728 CLOUD 
         LEN1      = LEN1 + 1
./pkg/fizhi/fizhi_moist.F 1729 CLOUD 
         IA(LEN1)  = I
./pkg/fizhi/fizhi_moist.F 1730 CLOUD 
         ALM(LEN1) = TX2(I) / TX1(I)
./pkg/fizhi/fizhi_moist.F 1734 CLOUD 
      LEN2 = LEN1
./pkg/fizhi/fizhi_moist.F 1756 CLOUD 
      LEN11 = LEN1 + 1
./pkg/fizhi/fizhi_moist.F 1791 CLOUD 
      IF (LEN1 .GT. 0) THEN
./pkg/fizhi/fizhi_moist.F 1792 CLOUD 
         DO 270 I=1,LEN1
./pkg/fizhi/fizhi_moist.F 1825 CLOUD 
      IF (LEN1 .GT. 0) THEN
./pkg/fizhi/fizhi_moist.F 1826 CLOUD 
         DO 512 I=1,LEN1