Symbol Description Uses
VDPSIH 18



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1588 TRBFLX
      _RL VDPSIH(irun),VZH(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 2841 SFCFLX
      _RL VDPSIH(irun),VZH(irun),VXX0(irun),VYY0(irun)
./pkg/fizhi/fizhi_turb.F 2935 SFCFLX
     5  VDZ0,VDPSIM,VDPSIH,
./pkg/fizhi/fizhi_turb.F 2952 SFCFLX
         VPSIHG(I) = VPSIM(I) + VDPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 3007 SFCFLX
     5  VDZ0,VDPSIM,VDPSIH,
./pkg/fizhi/fizhi_turb.F 3067 SFCFLX
     5  VDZ0,VDPSIM,VDPSIH,
./pkg/fizhi/fizhi_turb.F 3108 SFCFLX
         VPSIHG(I) = VPSIH(I) + VDPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 4650 LINADJ
     2 VDZETA,VDZ0,VDPSIM,VDPSIH,INTRIB,
./pkg/fizhi/fizhi_turb.F 4705 LINADJ
      _RL VDPSIH(IRUN)
./pkg/fizhi/fizhi_turb.F 4910 LINADJ
         VDPSIH(I) = VDPSIM(I)
./pkg/fizhi/fizhi_turb.F 4918 LINADJ
        VDPSIH(I) = VDY(I) * VDZETA(I)
./pkg/fizhi/fizhi_turb.F 4922 LINADJ
          VDPSIH(I) = VDPSIH(I) - VY0(I) * VDZ0(I)
./pkg/fizhi/fizhi_turb.F 4933 LINADJ
        VDPSIHC(I) = -0.9 *  VPSIH(I) - VDPSIH(I)
./pkg/fizhi/fizhi_turb.F 4955 LINADJ
         VDPSIH(I) = VDPSIH(I) + VTEMPLIN(I) * VDZETA1(I)