Symbol Description Uses
SlopeX isopycnal slope in x direction 74


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_psi_b.F 109 GMREDI_CALC_PSI_B 
         SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F 127 GMREDI_CALC_PSI_B 
     U             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_psi_b.F 144 GMREDI_CALC_PSI_B 
          GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 63 GMREDI_CALC_PSI_B 
      _RL SlopeX(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_psi_b.F 98 GMREDI_CALC_PSI_B 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 298 GMREDI_CALC_TENSOR 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 420 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 432 GMREDI_CALC_TENSOR 
         SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 449 GMREDI_CALC_TENSOR 
          Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 686 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 73 GMREDI_CALC_TENSOR 
      _RL SlopeX(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_tensor.F 761 GMREDI_CALC_TENSOR 
     &     )*SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 785 GMREDI_CALC_TENSOR 
     &                 )*SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 884 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_k3d.F 1104 GMREDI_K3D 
        CALL DIAGNOSTICS_FILL(SlopeX, 'GM_Sx   ',0,Nr,0,1,1,myThid)
./pkg/gmredi/gmredi_k3d.F 140 GMREDI_K3D 
      _RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/gmredi/gmredi_k3d.F 345 GMREDI_K3D 
         SlopeX(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F 627 GMREDI_K3D 
        SlopeX(i,j,1) = zeroRL
./pkg/gmredi/gmredi_k3d.F 637 GMREDI_K3D 
           SlopeX(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F 647 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 668 GMREDI_K3D 
           tfluxX(i,j,k) = -fCoriU(i,j)*SlopeX(i,j,k)
./pkg/gmredi/gmredi_k3d.F 686 GMREDI_K3D 
         tfluxX(i,j,k)=-fCoriU(i,j)*(SlopeX(i,j,k)-SlopeX(i,j,k+1))
./pkg/gmredi/gmredi_k3d.F 729 GMREDI_K3D 
     &                  *SlopeX(i,j,kk)/hsurf
./pkg/gmredi/gmredi_k3d.F 732 GMREDI_K3D 
     &                  *( SlopeX(i,j,kk)-SlopeX(i,j,kk+1) )/hsurf
./pkg/gmredi/gmredi_slope_limit.F 10 GMREDI_SLOPE_LIMIT 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_slope_limit.F 198 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 202 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 215 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j)=SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 238 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 250 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = dSigmaDx(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F 255 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 360 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SlopeX(i,j)*Smod*taperFctLoc
./pkg/gmredi/gmredi_slope_limit.F 372 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SlopeX(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F 413 GMREDI_SLOPE_LIMIT 
             SlopeX(i,j)=-dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F 469 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 471 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 480 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 495 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 599 GMREDI_SLOPE_LIMIT 
        slopeTmpSpec=sqrt( SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 602 GMREDI_SLOPE_LIMIT 
        SlopeX(i,j)=SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_limit.F 605 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 78 GMREDI_SLOPE_LIMIT 
      _RL SlopeX     (1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_slope_psi.F 114 GMREDI_SLOPE_PSI 
     &     ABS(SlopeX(i,j))*GM_rMaxSlope)
./pkg/gmredi/gmredi_slope_psi.F 132 GMREDI_SLOPE_PSI 
          SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F 204 GMREDI_SLOPE_PSI 
          SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F 214 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F 215 GMREDI_SLOPE_PSI 
             SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 268 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 289 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F 290 GMREDI_SLOPE_PSI 
     &           ABS(SlopeX(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F 292 GMREDI_SLOPE_PSI 
     &           ( SlopeX(i,j)*SlopeX(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F 309 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 326 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 383 GMREDI_SLOPE_PSI 
       slopeTmpSpec=ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 385 GMREDI_SLOPE_PSI 
        SlopeX(i,j)=5.*SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F 387 GMREDI_SLOPE_PSI 
        SlopeX(i,j)=5.*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_psi.F 44 GMREDI_SLOPE_PSI 
      _RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_slope_psi.F 9 GMREDI_SLOPE_PSI 
     U             SlopeX, SlopeY,