Symbol Description Uses
VPSIH 34



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1570 TRBFLX
      _RL VPSIH(irun),VZETAL(irun)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1899 TRBFLX
     5   VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2389 SFCFLX
     8      VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2456 SFCFLX
      _RL VPSIH(irun),VZETAL(irun),VZ0L(irun),VPSIH2(irun),VH0(irun)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2617 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2652 SFCFLX
     1    VPSIH,IRUN,VXX,VXX0,VYY,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2662 SFCFLX
        VPSIHG(I) = VPSIH(I) + VPSIG(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2677 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2721 SFCFLX
         VPSIHG(I) = VPSIH(I) + VDPSIH(I) + VPSIG(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3097 PSI
      SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3123 PSI
      _RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN),
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3158 PSI
       VPSIH(I) = 0.
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3263 PSI
       VPSIH(I) = PSI2(indx)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3390 PSI
       VPSIH(I) = PSI2(indx)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4108 LINADJ
     1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4160 LINADJ
      _RL VPSIH(IRUN),VPSIG(IRUN),VX(IRUN)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4392 LINADJ
        VDPSIHC(I) = -0.9 *  VPSIH(I) - VDPSIH(I)
./pkg/fizhi/fizhi_turb.F 1530 TRBFLX
      _RL VPSIH(irun),VZETAL(irun)
./pkg/fizhi/fizhi_turb.F 1859 TRBFLX
     5   VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,
./pkg/fizhi/fizhi_turb.F 2350 SFCFLX
     8      VDPSIH,VZH,VXX0,VYY0,VAPSIHG,VRIB1,VWS1,VPSIH,VZETAL,
./pkg/fizhi/fizhi_turb.F 2417 SFCFLX
      _RL VPSIH(irun),VZETAL(irun),VZ0L(irun),VPSIH2(irun),VH0(irun)
./pkg/fizhi/fizhi_turb.F 2578 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./pkg/fizhi/fizhi_turb.F 2613 SFCFLX
     1    VPSIH,IRUN,VXX,VXX0,VYY,
./pkg/fizhi/fizhi_turb.F 2623 SFCFLX
        VPSIHG(I) = VPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 2638 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./pkg/fizhi/fizhi_turb.F 2682 SFCFLX
         VPSIHG(I) = VPSIH(I) + VDPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 3058 PSI
      SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG)
./pkg/fizhi/fizhi_turb.F 3084 PSI
      _RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN),
./pkg/fizhi/fizhi_turb.F 3119 PSI
       VPSIH(I) = 0.
./pkg/fizhi/fizhi_turb.F 3224 PSI
       VPSIH(I) = PSI2(indx)
./pkg/fizhi/fizhi_turb.F 3351 PSI
       VPSIH(I) = PSI2(indx)
./pkg/fizhi/fizhi_turb.F 4069 LINADJ
     1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN,
./pkg/fizhi/fizhi_turb.F 4121 LINADJ
      _RL VPSIH(IRUN),VPSIG(IRUN),VX(IRUN)
./pkg/fizhi/fizhi_turb.F 4353 LINADJ
        VDPSIHC(I) = -0.9 *  VPSIH(I) - VDPSIH(I)