Symbol Description Uses
rkSign 56


File Line number Procedure Code
./pkg/mom_fluxform/mom_fluxform.F 383 MOM_FLUXFORM 
     &      +(fVerU(i,j,kDown) - fVerU(i,j,kUp))*rkSign*rVelDudrFac
./pkg/mom_fluxform/mom_fluxform.F 465 MOM_FLUXFORM 
     &      +( fVrDw(i,j)  - fVrUp(i,j) )*rkSign*ArDudrFac
./pkg/mom_fluxform/mom_fluxform.F 586 MOM_FLUXFORM 
     &      +(fVerV(i,j,kDown) - fVerV(i,j,kUp))*rkSign*rVelDvdrFac
./pkg/mom_fluxform/mom_fluxform.F 667 MOM_FLUXFORM 
     &      +( fVrDw(i,j)   - fVrUp(i,j) )*rkSign*ArDvdrFac
./model/src/tracers_iigw_correction.F 76 TRACERS_IIGW_CORRECTION 
       IF ( k.GT.1 ) dTr_k = (tRef(k) - tRef(k-1))*rkSign
./model/src/tracers_iigw_correction.F 77 TRACERS_IIGW_CORRECTION 
       dTrp1 = (tRef(kp1) - tRef(k))*rkSign
./model/src/tracers_iigw_correction.F 92 TRACERS_IIGW_CORRECTION 
       IF ( k.GT.1 ) dTr_k = (sRef(k) - sRef(k-1))*rkSign
./model/src/tracers_iigw_correction.F 93 TRACERS_IIGW_CORRECTION 
       dTrp1 = (sRef(kp1) - sRef(k))*rkSign
./model/src/grad_sigma.F 96 GRAD_SIGMA 
     &                *recip_drC(k)*rkSign
./model/src/calc_ivdc.F 52 CALC_IVDC 
     &        (rhokm1(i,j)-rhokp1(i,j))*rkSign*gravitySign.GT.0. ) THEN
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 109 GAD_FLUXLIMIT_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./model/src/ini_parms.F 1165 INI_PARMS 
      rkSign       = -1. _d 0
./model/src/convective_adjustment.F 95 CONVECTIVE_ADJUSTMENT 
         IF ( rkSign*gravitySign .GT. 0. ) THEN
./model/src/calc_gw.F 291 CALC_GW 
     &                     -wVel(i,j, k ,bi,bj) )*rkSign
./model/src/calc_gw.F 302 CALC_GW 
     &           + ( flx_Dn(i,j)-flxDisUp(i,j) )*rkSign
./model/src/calc_gw.F 379 CALC_GW 
     &           + ( flx_Dn(i,j)-flxAdvUp(i,j) )*rkSign
./model/src/config_summary.F 530 CONFIG_SUMMARY 
      CALL WRITE_0D_R8( rkSign, INDEX_NONE,'rkSign =',
./model/src/impldiff.F 246 IMPLDIFF 
     &            * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign
./model/src/impldiff.F 255 IMPLDIFF 
     &            * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign
./model/src/impldiff.F 266 IMPLDIFF 
     &            * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign
./model/src/ini_vertical_grid.F 56 INI_VERTICAL_GRID 
        rC(1)  = rF(1) + rkSign*delRc(1)
./model/src/ini_vertical_grid.F 63 INI_VERTICAL_GRID 
        rC(K)    = rC(K-1) + rkSign*drC(K)
./model/src/ini_vertical_grid.F 64 INI_VERTICAL_GRID 
        rF(K)    = rF(K-1) + rkSign*drF(K-1)
./model/src/ini_vertical_grid.F 67 INI_VERTICAL_GRID 
        rF(Nr+1) = rF(Nr) + rkSign*drF(Nr)
./model/src/ini_vertical_grid.F 89 INI_VERTICAL_GRID 
       rF(K+1) = rF(K) + rkSign*delR(K)
./model/src/ini_vertical_grid.F 92 INI_VERTICAL_GRID 
      rC(1)       = rf(1) + rkSign*delR(1) * 0.5 _d 0
./model/src/ini_vertical_grid.F 95 INI_VERTICAL_GRID 
       rC(K)      = rC(K-1) + rkSign*drC(K)
./model/src/convective_weights.F 61 CONVECTIVE_WEIGHTS 
     &  .AND. (rhokm1(i,j)-rhok(i,j))*rkSign*gravitySign .GT. 0.
./model/src/convective_adjustment_ini.F 100 CONVECTIVE_ADJUSTMENT_INI 
         IF ( rkSign*gravitySign .GT. 0. ) THEN
./pkg/mom_common/mom_v_implicit_r.F 143 MOM_V_IMPLICIT_R 
     &                           *recip_rAs(i,j,bi,bj)*rkSign
./pkg/mom_common/mom_v_implicit_r.F 164 MOM_V_IMPLICIT_R 
     &                           *recip_rAs(i,j,bi,bj)*rkSign
./pkg/mom_common/mom_v_implicit_r.F 217 MOM_V_IMPLICIT_R 
     &            * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj))*rkSign
./pkg/mom_common/mom_u_implicit_r.F 143 MOM_U_IMPLICIT_R 
     &                           *recip_rAw(i,j,bi,bj)*rkSign
./pkg/mom_common/mom_u_implicit_r.F 164 MOM_U_IMPLICIT_R 
     &                           *recip_rAw(i,j,bi,bj)*rkSign
./pkg/mom_common/mom_u_implicit_r.F 217 MOM_U_IMPLICIT_R 
     &            * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj))*rkSign
./pkg/mom_common/mom_v_rviscflux.F 64 MOM_V_RVISCFLUX 
     &      )*rkSign*recip_drC(k)
./pkg/mom_common/mom_u_rviscflux.F 64 MOM_U_RVISCFLUX 
     &       )*rkSign*recip_drC(k)
./model/inc/GRID.h 381 NO PROCEDURE 
     &  gravitySign, rkSign, globalArea,
./model/inc/GRID.h 404 NO PROCEDURE 
      _RL rkSign
./pkg/mom_vecinv/mom_vi_u_vertshear.F 103 MOM_VI_U_VERTSHEAR 
        uZp=(mask_Kp1*uFld(I,J,Kp1,bi,bj)-uFld(I,J,K,bi,bj))*rkSign
./pkg/mom_vecinv/mom_vi_u_vertshear.F 96 MOM_VI_U_VERTSHEAR 
        uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign
./pkg/mom_vecinv/mom_vi_v_vertshear.F 103 MOM_VI_V_VERTSHEAR 
        vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign
./pkg/mom_vecinv/mom_vi_v_vertshear.F 96 MOM_VI_V_VERTSHEAR 
        vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign
./pkg/mom_vecinv/mom_vecinv.F 348 MOM_VECINV 
     &   )*rkSign
./pkg/mom_vecinv/mom_vecinv.F 413 MOM_VECINV 
     &   )*rkSign
./pkg/generic_advdiff/gad_diff_r.F 66 GAD_DIFF_R 
     &     *(Tracer(i,j,k,bi,bj)-Tracer(i,j,km1,bi,bj))*rkSign
./pkg/generic_advdiff/gad_advection.F 806 GAD_ADVECTION 
     &      )*rkSign
./pkg/generic_advdiff/gad_implicit_r.F 211 GAD_IMPLICIT_R 
     &       *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 88 GAD_DST2U1_ADV_R 
         wAbs = ABS(rTrans(i,j))*rkSign
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 109 GAD_FLUXLIMIT_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_c2_impl_r.F 63 GAD_C2_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_calc_rhs.F 152 GAD_CALC_RHS 
      rAdvFac = rkSign*advFac
./pkg/generic_advdiff/gad_calc_rhs.F 574 GAD_CALC_RHS 
     &     +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 79 GAD_DST2U1_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_u3c4_impl_r.F 93 GAD_U3C4_IMPL_R 
           rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 142 GAD_DST3FL_IMPL_R 
           rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign