Symbol Description Uses
VPSIH 17



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1591 TRBFLX
      _RL VPSIH(irun),VZETAL(irun)
./pkg/fizhi/fizhi_turb.F 2025 TRBFLX
     5   VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,
./pkg/fizhi/fizhi_turb.F 2776 SFCFLX
     8      VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL,
./pkg/fizhi/fizhi_turb.F 2843 SFCFLX
      _RL VPSIH(irun),VZETAL(irun),VZ0L(irun),VPSIH2(irun),VH0(irun)
./pkg/fizhi/fizhi_turb.F 3004 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./pkg/fizhi/fizhi_turb.F 3039 SFCFLX
     1    VPSIH,IRUN,VXX,VXX0,VYY,
./pkg/fizhi/fizhi_turb.F 3049 SFCFLX
        VPSIHG(I) = VPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 3064 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./pkg/fizhi/fizhi_turb.F 3108 SFCFLX
         VPSIHG(I) = VPSIH(I) + VDPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 3484 PSI
      SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG)
./pkg/fizhi/fizhi_turb.F 3510 PSI
      _RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN),
./pkg/fizhi/fizhi_turb.F 3545 PSI
       VPSIH(I) = 0.
./pkg/fizhi/fizhi_turb.F 3650 PSI
       VPSIH(I) = PSI2(indx)
./pkg/fizhi/fizhi_turb.F 3777 PSI
       VPSIH(I) = PSI2(indx)
./pkg/fizhi/fizhi_turb.F 4649 LINADJ
     1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN,
./pkg/fizhi/fizhi_turb.F 4701 LINADJ
      _RL VPSIH(IRUN),VPSIG(IRUN),VX(IRUN)
./pkg/fizhi/fizhi_turb.F 4933 LINADJ
        VDPSIHC(I) = -0.9 *  VPSIH(I) - VDPSIH(I)