Symbol Description Uses
VDPSIHC 12



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1429 TRBFLX
      _RL VDPSIMC(irun),VDPSIHC(irun)
./pkg/fizhi/fizhi_turb.F 1777 TRBFLX
     3   VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 2331 SFCFLX
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 2398 SFCFLX
      _RL VDPSIMC(irun),VDPSIHC(irun)
./pkg/fizhi/fizhi_turb.F 2487 SFCFLX
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 2559 SFCFLX
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 2619 SFCFLX
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 4088 LINADJ
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 4144 LINADJ
      _RL VDPSIMC(irun),VDPSIHC(irun)
./pkg/fizhi/fizhi_turb.F 4363 LINADJ
        VDPSIHC(I) = -0.9 *  VPSIH(I) - VDPSIH(I)
./pkg/fizhi/fizhi_turb.F 4369 LINADJ
        IF ( VDPSIHC(I).GT.0.  ) THEN
./pkg/fizhi/fizhi_turb.F 4379 LINADJ
             VDZETA2(I) =  VDPSIHC(I) / VTEMPLIN(I)