Symbol Description Uses
QTENVD 20



File Line number Procedure Code
./pkg/aim/phy_vdifsc.F 189 VDIFSC
           QTENVD(J,NLEVxy(J,myThid)) =
./pkg/aim/phy_vdifsc.F 191 VDIFSC
           QTENVD(J,NL1(J))  = RNL1(J)*QTENVD(J,NLEVxy(J,myThid))
./pkg/aim/phy_vdifsc.F 198 VDIFSC
          QTENVD(J,NLEVxy(J,myThid)) = 
./pkg/aim/phy_vdifsc.F 200 VDIFSC
          QTENVD(J,NL1(J))  = RNL1(J)*QTENVD(J,NLEVxy(J,myThid))
./pkg/aim/phy_vdifsc.F 54 VDIFSC
     &     TTENVD(NGP,NLEV), QTENVD(NGP,NLEV)
./pkg/aim/phy_vdifsc.F 8 VDIFSC
     &                   UTENVD,VTENVD,TTENVD,QTENVD,
./pkg/aim/phy_vdifsc.F 95 VDIFSC
          QTENVD(J,K) = 0.
./pkg/aim_v23/phy_vdifsc.F 110 VDIFSC
          QTENVD(J,K) = 0.
./pkg/aim_v23/phy_vdifsc.F 150 VDIFSC
            QTENVD(J,NL1)  = FLUXQ*RSIG(NL1)
./pkg/aim_v23/phy_vdifsc.F 151 VDIFSC
            QTENVD(J,Ktmp) =-FLUXQ*RSIG(Ktmp)
./pkg/aim_v23/phy_vdifsc.F 158 VDIFSC
          QTENVD(J,NL1)  = FLUXQ*RSIG(NL1)
./pkg/aim_v23/phy_vdifsc.F 159 VDIFSC
          QTENVD(J,Ktmp) =-FLUXQ*RSIG(Ktmp)
./pkg/aim_v23/phy_vdifsc.F 179 VDIFSC
            QTENVD(J,K)  = QTENVD(J,K)  +FLUXQ*RSIG(K)
./pkg/aim_v23/phy_vdifsc.F 180 VDIFSC
            QTENVD(J,K+1)= QTENVD(J,K+1)-FLUXQ*RSIG(K+1)
./pkg/aim_v23/phy_vdifsc.F 60 VDIFSC
      _RL  TTENVD(NGP,NLEV), QTENVD(NGP,NLEV)
./pkg/aim_v23/phy_vdifsc.F 7 VDIFSC
     O                   TTENVD,QTENVD,