Symbol Description Uses
LP1 11



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1595 TRBFLX
      LP1 = L + 1
./pkg/fizhi/fizhi_turb.F 1597 TRBFLX
      VKZE(I,L) = VKZE(I,LP1) + TEMP(I,LP1)
./pkg/fizhi/fizhi_turb.F 1608 TRBFLX
       LP1 = L + 1
./pkg/fizhi/fizhi_turb.F 1610 TRBFLX
       FAC1 = DPSTR(I,L) / ( DPSTR(I,L) + DPSTR(I,LP1) )
./pkg/fizhi/fizhi_turb.F 1612 TRBFLX
       RHODZ2(I,L) = FAC1 * THV(I,LP1)
./pkg/fizhi/fizhi_turb.F 3462 TRBLEN
      LP1 = LMIN1 + 1
./pkg/fizhi/fizhi_turb.F 3508 TRBLEN
              LP1 = L+1
./pkg/fizhi/fizhi_turb.F 3510 TRBLEN
      IF( INT1(I,LP1).EQ.1 ) THEN
./pkg/fizhi/fizhi_turb.F 3512 TRBLEN
      XL0(I,L) = XL0(I,LP1)
./pkg/fizhi/fizhi_turb.F 3514 TRBLEN
      XL0(I,L) = XL0(I,L) + XL0(I,LP1)