Symbol Description Uses
SlopeY isopycnal slope in y direction 74


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_psi_b.F 117 GMREDI_CALC_PSI_B 
         SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(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 162 GMREDI_CALC_PSI_B 
         GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 64 GMREDI_CALC_PSI_B 
      _RL SlopeY(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_psi_b.F 99 GMREDI_CALC_PSI_B 
         SlopeY(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 299 GMREDI_CALC_TENSOR 
         SlopeY(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 420 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 433 GMREDI_CALC_TENSOR 
         SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 450 GMREDI_CALC_TENSOR 
          Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 686 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 74 GMREDI_CALC_TENSOR 
      _RL SlopeY(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_tensor.F 884 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 962 GMREDI_CALC_TENSOR 
     &     )*SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 986 GMREDI_CALC_TENSOR 
     &                 )*SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_k3d.F 1105 GMREDI_K3D 
        CALL DIAGNOSTICS_FILL(SlopeY, 'GM_Sy   ',0,Nr,0,1,1,myThid)
./pkg/gmredi/gmredi_k3d.F 141 GMREDI_K3D 
      _RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/gmredi/gmredi_k3d.F 346 GMREDI_K3D 
         SlopeY(i,j,k)=zeroRL
./pkg/gmredi/gmredi_k3d.F 628 GMREDI_K3D 
        SlopeY(i,j,1) = zeroRL
./pkg/gmredi/gmredi_k3d.F 638 GMREDI_K3D 
           SlopeY(i,j,k) = zeroRL
./pkg/gmredi/gmredi_k3d.F 655 GMREDI_K3D 
           SlopeY(i,j,k)=-maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)*slope
./pkg/gmredi/gmredi_k3d.F 671 GMREDI_K3D 
           tfluxY(i,j,k) = -fCoriV(i,j)*SlopeY(i,j,k)
./pkg/gmredi/gmredi_k3d.F 691 GMREDI_K3D 
         tfluxY(i,j,k)=-fCoriV(i,j)*(SlopeY(i,j,k)-SlopeY(i,j,k+1))
./pkg/gmredi/gmredi_k3d.F 748 GMREDI_K3D 
     &                  *SlopeY(i,j,kk)/hsurf
./pkg/gmredi/gmredi_k3d.F 751 GMREDI_K3D 
     &                  *( SlopeY(i,j,kk)-SlopeY(i,j,kk+1) )/hsurf
./pkg/gmredi/gmredi_slope_limit.F 10 GMREDI_SLOPE_LIMIT 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_slope_limit.F 199 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 203 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 216 GMREDI_SLOPE_LIMIT 
     &                 +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F 239 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 251 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = dSigmaDy(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F 256 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 361 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SlopeY(i,j)*Smod*taperFctLoc
./pkg/gmredi/gmredi_slope_limit.F 373 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SlopeY(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F 415 GMREDI_SLOPE_LIMIT 
             SlopeY(i,j)=-dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F 474 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 476 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 481 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 496 GMREDI_SLOPE_LIMIT 
     &                   +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F 600 GMREDI_SLOPE_LIMIT 
     &              +SlopeY(i,j)*SlopeY(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 603 GMREDI_SLOPE_LIMIT 
        SlopeY(i,j)=SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_limit.F 606 GMREDI_SLOPE_LIMIT 
     &                   +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F 79 GMREDI_SLOPE_LIMIT 
      _RL SlopeY     (1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_slope_psi.F 149 GMREDI_SLOPE_PSI 
     &     ABS(SlopeY(i,j))*GM_rMaxSlope)
./pkg/gmredi/gmredi_slope_psi.F 167 GMREDI_SLOPE_PSI 
          SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j)
./pkg/gmredi/gmredi_slope_psi.F 238 GMREDI_SLOPE_PSI 
          SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j)
./pkg/gmredi/gmredi_slope_psi.F 248 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F 249 GMREDI_SLOPE_PSI 
             SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 276 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 297 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F 298 GMREDI_SLOPE_PSI 
     &           ABS(SlopeY(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F 300 GMREDI_SLOPE_PSI 
     &           ( SlopeY(i,j)*SlopeY(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F 315 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 346 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 394 GMREDI_SLOPE_PSI 
       slopeTmpSpec=ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 396 GMREDI_SLOPE_PSI 
        SlopeY(i,j)=5.*SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F 398 GMREDI_SLOPE_PSI 
        SlopeY(i,j)=5.*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_psi.F 45 GMREDI_SLOPE_PSI 
      _RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_slope_psi.F 9 GMREDI_SLOPE_PSI 
     U             SlopeX, SlopeY,