Symbol Description Uses
VDPSIMC 12



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1599 TRBFLX
      _RL VDPSIMC(irun),VDPSIHC(irun)
./pkg/fizhi/fizhi_turb.F 2029 TRBFLX
     3   VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 2780 SFCFLX
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 2850 SFCFLX
      _RL VDPSIMC(irun),VDPSIHC(irun)
./pkg/fizhi/fizhi_turb.F 2939 SFCFLX
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 3011 SFCFLX
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 3071 SFCFLX
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 4653 LINADJ
     5 VZCOEF2,VZCOEF1,VTEMPLIN,VDPSIMC,VDPSIHC)
./pkg/fizhi/fizhi_turb.F 4713 LINADJ
      _RL VDPSIMC(irun),VDPSIHC(irun)
./pkg/fizhi/fizhi_turb.F 4932 LINADJ
        VDPSIMC(I) = -0.9 - VDPSIM(I) * VAPSIM(I)
./pkg/fizhi/fizhi_turb.F 4934 LINADJ
        IF ( VDPSIMC(I).GT.0.  ) THEN
./pkg/fizhi/fizhi_turb.F 4945 LINADJ
        IF(VINT1(I).EQ.1) VDZETA1(I) = VDPSIMC(I) / VDXPSIM(I)