Symbol Description Uses
VPSIH 17



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1421 TRBFLX
      _RL VPSIH(irun),VZETAL(irun)
./pkg/fizhi/fizhi_turb.F 1773 TRBFLX
     5   VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,
./pkg/fizhi/fizhi_turb.F 2327 SFCFLX
     8      VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL,
./pkg/fizhi/fizhi_turb.F 2391 SFCFLX
      _RL VPSIH(irun),VZETAL(irun),VZ0L(irun),VPSIH2(irun),VH0(irun)
./pkg/fizhi/fizhi_turb.F 2552 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./pkg/fizhi/fizhi_turb.F 2587 SFCFLX
     1    VPSIH,IRUN,VXX,VXX0,VYY,
./pkg/fizhi/fizhi_turb.F 2597 SFCFLX
        VPSIHG(I) = VPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 2612 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./pkg/fizhi/fizhi_turb.F 2656 SFCFLX
         VPSIHG(I) = VPSIH(I) + VDPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 3035 PSI
      SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG)
./pkg/fizhi/fizhi_turb.F 3058 PSI
      _RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN),
./pkg/fizhi/fizhi_turb.F 3093 PSI
       VPSIH(I) = 0.
./pkg/fizhi/fizhi_turb.F 3198 PSI
       VPSIH(I) = PSI2(indx)
./pkg/fizhi/fizhi_turb.F 3325 PSI
       VPSIH(I) = PSI2(indx)
./pkg/fizhi/fizhi_turb.F 4084 LINADJ
     1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN,
./pkg/fizhi/fizhi_turb.F 4132 LINADJ
      _RL VPSIH(IRUN),VPSIG(IRUN),VX(IRUN)
./pkg/fizhi/fizhi_turb.F 4363 LINADJ
        VDPSIHC(I) = -0.9 *  VPSIH(I) - VDPSIH(I)