Symbol Description Uses
LP1 11



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1806 TRBFLX
      LP1 = L + 1
./pkg/fizhi/fizhi_turb.F 1808 TRBFLX
      VKZE(I,L) = VKZE(I,LP1) + TEMP(I,LP1)
./pkg/fizhi/fizhi_turb.F 1822 TRBFLX
       LP1 = L + 1
./pkg/fizhi/fizhi_turb.F 1824 TRBFLX
       FAC1 = DPSTR(I,L) / ( DPSTR(I,L) + DPSTR(I,LP1) )
./pkg/fizhi/fizhi_turb.F 1826 TRBFLX
       RHODZ2(I,L) = FAC1 * THV(I,LP1)
./pkg/fizhi/fizhi_turb.F 3928 TRBLEN
      LP1 = LMIN1 + 1
./pkg/fizhi/fizhi_turb.F 3985 TRBLEN
              LP1 = L+1
./pkg/fizhi/fizhi_turb.F 3987 TRBLEN
      IF( INT1(I,LP1).EQ.1 ) THEN
./pkg/fizhi/fizhi_turb.F 3989 TRBLEN
      XL0(I,L) = XL0(I,LP1)
./pkg/fizhi/fizhi_turb.F 3991 TRBLEN
      XL0(I,L) = XL0(I,L) + XL0(I,LP1)