Symbol Description Uses
LP1 32


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3483 TRBLEN 
      LP1 = LMIN1 + 1
./pkg/fizhi/fizhi_turb.F 3487 TRBLEN 
      IF( INT1(I,LMIN1).EQ.1 .OR. INT1(I,LP1).EQ.1 ) INT2(I,LMIN1) = 1
./pkg/fizhi/fizhi_turb.F 3489 TRBLEN 
     .     XL0(I,LMIN1) = (0.5+DZITRP(I,LMIN1)) * DZ3(I,LP1)
./pkg/fizhi/fizhi_turb.F 3497 TRBLEN 
      XL0(I,LP1) = XL0(I,LP1) + ( (0.5-DZITRP(I,LMIN1)) * DZ3(I,LP1) )
./pkg/fizhi/fizhi_turb.F 3525 TRBLEN 
              LP1 = L+1
./pkg/fizhi/fizhi_turb.F 3527 TRBLEN 
      IF( INT1(I,LP1).EQ.1 ) THEN
./pkg/fizhi/fizhi_turb.F 3529 TRBLEN 
      XL0(I,L) = XL0(I,LP1)
./pkg/fizhi/fizhi_turb.F 3531 TRBLEN 
      XL0(I,L) = XL0(I,L) + XL0(I,LP1)