Symbol Description Uses
SlopeX isopycnal slope in X direction 67


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_psi_b.F 113 GMREDI_CALC_PSI_B 
     U             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_psi_b.F 128 GMREDI_CALC_PSI_B 
          GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 49 GMREDI_CALC_PSI_B 
      _RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_calc_psi_b.F 84 GMREDI_CALC_PSI_B 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 95 GMREDI_CALC_PSI_B 
         SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) )
./pkg/gmredi/gmredi_calc_tensor.F 245 GMREDI_CALC_TENSOR 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 382 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 394 GMREDI_CALC_TENSOR 
         SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 411 GMREDI_CALC_TENSOR 
          Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 597 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_calc_tensor.F 663 GMREDI_CALC_TENSOR 
     &     )*SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 67 GMREDI_CALC_TENSOR 
      _RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_calc_tensor.F 683 GMREDI_CALC_TENSOR 
     &                 )*SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 782 GMREDI_CALC_TENSOR 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_slope_limit.F 10 GMREDI_SLOPE_LIMIT 
     O             SlopeX, SlopeY,
./pkg/gmredi/gmredi_slope_limit.F 177 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 179 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 188 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 201 GMREDI_SLOPE_LIMIT 
        slopeTmpSpec=sqrt( SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 204 GMREDI_SLOPE_LIMIT 
        SlopeX(i,j)=SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_limit.F 207 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 265 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 269 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 282 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j)=SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 305 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 317 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = dSigmaDx(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F 322 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 427 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SlopeX(i,j)*Smod*taperFctLoc
./pkg/gmredi/gmredi_slope_limit.F 439 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SlopeX(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F 480 GMREDI_SLOPE_LIMIT 
             SlopeX(i,j)=-dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F 536 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 538 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 547 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 562 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 116 GMREDI_SLOPE_PSI 
     &     ABS(SlopeX(i,j))*GM_rMaxSlope)
./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 215 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F 216 GMREDI_SLOPE_PSI 
             SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 266 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 287 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F 288 GMREDI_SLOPE_PSI 
     &           ABS(SlopeX(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F 290 GMREDI_SLOPE_PSI 
     &           ( SlopeX(i,j)*SlopeX(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F 307 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 324 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 391 GMREDI_SLOPE_PSI 
          SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F 424 GMREDI_SLOPE_PSI 
       slopeTmpSpec=ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 426 GMREDI_SLOPE_PSI 
        SlopeX(i,j)=5.*SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F 428 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,