Symbol Description Uses
SlopeY isopycnal slope in Y direction 67


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_psi_b.F 103 GMREDI_CALC_PSI_B 
         SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F 113 GMREDI_CALC_PSI_B 
     U             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_psi_b.F 145 GMREDI_CALC_PSI_B 
         GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 50 GMREDI_CALC_PSI_B 
      _RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_calc_psi_b.F 85 GMREDI_CALC_PSI_B 
         SlopeY(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 246 GMREDI_CALC_TENSOR 
         SlopeY(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 382 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 395 GMREDI_CALC_TENSOR 
         SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 412 GMREDI_CALC_TENSOR 
          Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 597 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 68 GMREDI_CALC_TENSOR 
      _RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_calc_tensor.F 782 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 851 GMREDI_CALC_TENSOR 
     &     )*SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 871 GMREDI_CALC_TENSOR 
     &                 )*SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_slope_limit.F 10 GMREDI_SLOPE_LIMIT 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_slope_limit.F 182 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 184 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 189 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 202 GMREDI_SLOPE_LIMIT 
     &              +SlopeY(i,j)*SlopeY(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 205 GMREDI_SLOPE_LIMIT 
        SlopeY(i,j)=SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_limit.F 208 GMREDI_SLOPE_LIMIT 
     &                   +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F 266 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 270 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 283 GMREDI_SLOPE_LIMIT 
     &                 +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F 306 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 318 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = dSigmaDy(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F 323 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 428 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SlopeY(i,j)*Smod*taperFctLoc
./pkg/gmredi/gmredi_slope_limit.F 440 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SlopeY(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F 482 GMREDI_SLOPE_LIMIT 
             SlopeY(i,j)=-dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F 541 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 543 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 548 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 563 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 151 GMREDI_SLOPE_PSI 
     &     ABS(SlopeY(i,j))*GM_rMaxSlope)
./pkg/gmredi/gmredi_slope_psi.F 169 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 247 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F 248 GMREDI_SLOPE_PSI 
             SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 274 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 295 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F 296 GMREDI_SLOPE_PSI 
     &           ABS(SlopeY(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F 298 GMREDI_SLOPE_PSI 
     &           ( SlopeY(i,j)*SlopeY(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F 313 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 344 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 412 GMREDI_SLOPE_PSI 
          SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j)
./pkg/gmredi/gmredi_slope_psi.F 435 GMREDI_SLOPE_PSI 
       slopeTmpSpec=ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 437 GMREDI_SLOPE_PSI 
        SlopeY(i,j)=5.*SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F 439 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,