Symbol Description Uses
VDPSIH 18



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1418 TRBFLX
      _RL VDPSIH(irun),VZH(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 2389 SFCFLX
      _RL VDPSIH(irun),VZH(irun),VXX0(irun),VYY0(irun)
./pkg/fizhi/fizhi_turb.F 2483 SFCFLX
     5  VDZ0,VDPSIM,VDPSIH,
./pkg/fizhi/fizhi_turb.F 2500 SFCFLX
         VPSIHG(I) = VPSIM(I) + VDPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 2555 SFCFLX
     5  VDZ0,VDPSIM,VDPSIH,
./pkg/fizhi/fizhi_turb.F 2615 SFCFLX
     5  VDZ0,VDPSIM,VDPSIH,
./pkg/fizhi/fizhi_turb.F 2656 SFCFLX
         VPSIHG(I) = VPSIH(I) + VDPSIH(I) + VPSIG(I)
./pkg/fizhi/fizhi_turb.F 4085 LINADJ
     2 VDZETA,VDZ0,VDPSIM,VDPSIH,INTRIB,
./pkg/fizhi/fizhi_turb.F 4136 LINADJ
      _RL VDPSIH(IRUN)
./pkg/fizhi/fizhi_turb.F 4340 LINADJ
         VDPSIH(I) = VDPSIM(I)
./pkg/fizhi/fizhi_turb.F 4348 LINADJ
        VDPSIH(I) = VDY(I) * VDZETA(I)
./pkg/fizhi/fizhi_turb.F 4352 LINADJ
          VDPSIH(I) = VDPSIH(I) - VY0(I) * VDZ0(I)
./pkg/fizhi/fizhi_turb.F 4363 LINADJ
        VDPSIHC(I) = -0.9 *  VPSIH(I) - VDPSIH(I)
./pkg/fizhi/fizhi_turb.F 4385 LINADJ
         VDPSIH(I) = VDPSIH(I) + VTEMPLIN(I) * VDZETA1(I)