Symbol Description Uses
SlopeX isopycnal slope in x direction 74


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_psi_b.F 100 GMREDI_CALC_PSI_B 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 111 GMREDI_CALC_PSI_B 
         SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F 129 GMREDI_CALC_PSI_B 
     U             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_psi_b.F 147 GMREDI_CALC_PSI_B 
          GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 66 GMREDI_CALC_PSI_B 
      _RL SlopeX(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_tensor.F 300 GMREDI_CALC_TENSOR 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 423 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 435 GMREDI_CALC_TENSOR 
         SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 452 GMREDI_CALC_TENSOR 
          Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 702 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 76 GMREDI_CALC_TENSOR 
      _RL SlopeX(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_tensor.F 789 GMREDI_CALC_TENSOR 
     &     )*SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 818 GMREDI_CALC_TENSOR 
     &                 )*SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 917 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_k3d.F 1112 GMREDI_K3D 
        CALL DIAGNOSTICS_FILL(SlopeX, 'GM_Sx   ',0,Nr,2,bi,bj,myThid)
./pkg/gmredi/gmredi_k3d.F 141 GMREDI_K3D 
      _RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/gmredi/gmredi_k3d.F 328 GMREDI_K3D 
         SlopeX(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F 638 GMREDI_K3D 
        SlopeX(i,j,1) = zeroRL
./pkg/gmredi/gmredi_k3d.F 648 GMREDI_K3D 
           SlopeX(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F 658 GMREDI_K3D 
           SlopeX(i,j,k)=-maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)*slope
./pkg/gmredi/gmredi_k3d.F 679 GMREDI_K3D 
           tfluxX(i,j,k) = -fCoriU(i,j)*SlopeX(i,j,k)
./pkg/gmredi/gmredi_k3d.F 697 GMREDI_K3D 
         tfluxX(i,j,k)=-fCoriU(i,j)*(SlopeX(i,j,k)-SlopeX(i,j,k+1))
./pkg/gmredi/gmredi_k3d.F 738 GMREDI_K3D 
     &                  *SlopeX(i,j,kk)/hsurf
./pkg/gmredi/gmredi_k3d.F 741 GMREDI_K3D 
     &                  *( SlopeX(i,j,kk)-SlopeX(i,j,kk+1) )/hsurf
./pkg/gmredi/gmredi_slope_limit.F 13 GMREDI_SLOPE_LIMIT 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_slope_limit.F 200 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 204 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 217 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j)=SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 240 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 252 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = dSigmaDx(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F 257 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 362 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SlopeX(i,j)*Smod*taperFctLoc
./pkg/gmredi/gmredi_slope_limit.F 374 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SlopeX(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F 415 GMREDI_SLOPE_LIMIT 
             SlopeX(i,j)=-dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F 471 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 473 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 482 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 497 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 600 GMREDI_SLOPE_LIMIT 
          slopeSqTmp=SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 605 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=SlopeX(i,j)*slopeMax/slopeTmp
./pkg/gmredi/gmredi_slope_limit.F 608 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 81 GMREDI_SLOPE_LIMIT 
      _RL SlopeX     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_slope_psi.F 116 GMREDI_SLOPE_PSI 
     &     ABS(SlopeX(i,j))*GM_rMaxSlope)
./pkg/gmredi/gmredi_slope_psi.F 12 GMREDI_SLOPE_PSI 
     U             SlopeX, SlopeY,
./pkg/gmredi/gmredi_slope_psi.F 134 GMREDI_SLOPE_PSI 
          SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F 206 GMREDI_SLOPE_PSI 
          SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F 216 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F 217 GMREDI_SLOPE_PSI 
             SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 270 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 291 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F 292 GMREDI_SLOPE_PSI 
     &           ABS(SlopeX(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F 294 GMREDI_SLOPE_PSI 
     &           ( SlopeX(i,j)*SlopeX(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F 311 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 328 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 384 GMREDI_SLOPE_PSI 
       slopeTmpSpec=ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 386 GMREDI_SLOPE_PSI 
        SlopeX(i,j)=5.*SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F 388 GMREDI_SLOPE_PSI 
        SlopeX(i,j)=5.*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_psi.F 47 GMREDI_SLOPE_PSI 
      _RL SlopeX(1-OLx:sNx+OLx,1-OLy:sNy+OLy)