Symbol Description Uses
recip_drC Reciprocal of drC 79


File Line number Procedure Code
./pkg/generic_advdiff/gad_diff_r.F 65 GAD_DIFF_R 
     &            *recip_drC(k)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 77 GAD_DST2U1_ADV_R 
         wCFL = ABS(wLoc*deltaTloc*recip_drC(k))
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 78 GAD_DST2U1_IMPL_R 
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_dst3_adv_r.F 86 GAD_DST3_ADV_R 
        cfl=ABS(wLoc*dTarg*recip_drC(k))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 76 GAD_DST3FL_ADV_R 
        wCFL = ABS(wLoc*dTarg*recip_drC(k))
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 101 GAD_DST3FL_IMPL_R 
     &           *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 86 GAD_FLUXLIMIT_ADV_R 
         wCFL = ABS( wLoc*dTarg*recip_drC(k) )
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 86 GAD_FLUXLIMIT_IMPL_R 
         w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_implicit_r.F 140 GAD_IMPLICIT_R 
     &                  *kappaRX(i,j, k )*recip_drC( k )
./pkg/generic_advdiff/gad_implicit_r.F 150 GAD_IMPLICIT_R 
     &                 *KappaRX(i,j,k+1)*recip_drC(k+1)
./pkg/generic_advdiff/gad_implicit_r.F 315 GAD_IMPLICIT_R 
     &            * KappaRX(i,j,k)*recip_drC(k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 63 GAD_OS7MP_ADV_R 
        cfl = abs(wLoc*deltaTloc*recip_drC(k))
./pkg/generic_advdiff/gad_u3c4_impl_r.F 102 GAD_U3C4_IMPL_R 
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/ggl90/ggl90_calc.F 176 GGL90_CALC 
         Nsquare(i,j,k) = - gravity*recip_rhoConst*recip_drC(k)
./pkg/ggl90/ggl90_calc.F 398 GGL90_CALC 
     &        *recip_drC(k)
./pkg/ggl90/ggl90_calc.F 401 GGL90_CALC 
     &        *recip_drC(k)
./pkg/ggl90/ggl90_calc.F 470 GGL90_CALC 
     &        *recip_drC(k)*maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 490 GGL90_CALC 
     &        *recip_drC(k)*maskC(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 690 GMREDI_CALC_TENSOR 
     &     +recip_drC(k)*
./pkg/gmredi/gmredi_calc_tensor.F 696 GMREDI_CALC_TENSOR 
     &     +recip_drC(kp1)*
./pkg/gmredi/gmredi_calc_tensor.F 878 GMREDI_CALC_TENSOR 
     &     +recip_drC(k)*
./pkg/gmredi/gmredi_calc_tensor.F 884 GMREDI_CALC_TENSOR 
     &     +recip_drC(kp1)*
./pkg/gmredi/gmredi_xtransport.F 135 GMREDI_XTRANSPORT 
     &   +op5*recip_drC(k)*
./pkg/gmredi/gmredi_xtransport.F 141 GMREDI_XTRANSPORT 
     &   +op5*recip_drC(kp1)*
./pkg/gmredi/gmredi_ytransport.F 136 GMREDI_YTRANSPORT 
     &   +op5*recip_drC(k)*
./pkg/gmredi/gmredi_ytransport.F 142 GMREDI_YTRANSPORT 
     &   +op5*recip_drC(kp1)*
./pkg/mom_common/mom_u_bottomdrag.F 72 MOM_U_BOTTOMDRAG 
      rdrckp1=recip_drC(kDownC)
./pkg/mom_common/mom_u_implicit_r.F 101 MOM_U_IMPLICIT_R 
     &                 *KappaRU(i,j,k+1)*recip_drC(k+1)
./pkg/mom_common/mom_u_implicit_r.F 216 MOM_U_IMPLICIT_R 
     &             -KappaRU(i,j,k)*rAw(i,j,bi,bj)*recip_drC(k)
./pkg/mom_common/mom_u_implicit_r.F 90 MOM_U_IMPLICIT_R 
     &                  *kappaRU(i,j, k )*recip_drC( k )
./pkg/mom_common/mom_u_rviscflux.F 64 MOM_U_RVISCFLUX 
     &       )*rkSign*recip_drC(k)
./pkg/mom_common/mom_v_bottomdrag.F 79 MOM_V_BOTTOMDRAG 
      rdrckp1=recip_drC(kDownC)
./pkg/mom_common/mom_v_implicit_r.F 101 MOM_V_IMPLICIT_R 
     &                 *KappaRV(i,j,k+1)*recip_drC(k+1)
./pkg/mom_common/mom_v_implicit_r.F 216 MOM_V_IMPLICIT_R 
     &             -KappaRV(i,j,k)*rAs(i,j,bi,bj)*recip_drC(k)
./pkg/mom_common/mom_v_implicit_r.F 90 MOM_V_IMPLICIT_R 
     &                  *kappaRV(i,j, k )*recip_drC( k )
./pkg/mom_common/mom_v_rviscflux.F 64 MOM_V_RVISCFLUX 
     &      )*rkSign*recip_drC(k)
./model/src/calc_gw.F 256 CALC_GW 
           recip_rThickC(i,j) = recip_drC(k)
./pkg/monitor/monitor.F 151 MONITOR 
        CALL MON_ADVCFLW( '_wvel', wVel, recip_drC, dT, myThid )
./pkg/monitor/monitor_ad.F 155 ADMONITOR 
        CALL MON_ADVCFLW('_adwvel', adwVel,recip_drC,dT,myThid )
./pkg/monitor/monitor_g.F 156 G_MONITOR 
        CALL MON_ADVCFLW( '_g_wvel',g_wVel,recip_drC,dT,myThid )
./pkg/my82/my82_ri_number.F 106 MY82_RI_NUMBER 
     &       *recip_drC(K)
./pkg/my82/my82_ri_number.F 109 MY82_RI_NUMBER 
     &       *recip_drC(K)
./pkg/my82/my82_ri_number.F 116 MY82_RI_NUMBER 
     &       (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K)
./pkg/pp81/pp81_ri_number.F 110 PP81_RI_NUMBER 
     &       *recip_drC(K)
./pkg/pp81/pp81_ri_number.F 113 PP81_RI_NUMBER 
     &       *recip_drC(K)
./pkg/pp81/pp81_ri_number.F 120 PP81_RI_NUMBER 
     &       (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K)
./pkg/shelfice/shelfice_u_drag.F 68 SHELFICE_U_DRAG 
      rdrckp1=recip_drC(kUpC)
./pkg/shelfice/shelfice_v_drag.F 68 SHELFICE_V_DRAG 
      rdrckp1=recip_drC(kUpC)
./pkg/smooth/smooth_impldiff.F 83 SMOOTH_IMPLDIFF 
     &               *KappaRX(i,j, k )*recip_drC( k )
./pkg/smooth/smooth_impldiff.F 96 SMOOTH_IMPLDIFF 
     &               *KappaRX(i,j,k+1)*recip_drC(k+1)
./pkg/smooth/smooth_rhs.F 129 SMOOTH_RHS 
     &   +0.5*recip_drC(k)*
./pkg/smooth/smooth_rhs.F 135 SMOOTH_RHS 
     &   +0.5*recip_drC(MIN(k+1,Nr))*
./pkg/smooth/smooth_rhs.F 197 SMOOTH_RHS 
     &   +0.5*recip_drC(k)*
./pkg/smooth/smooth_rhs.F 203 SMOOTH_RHS 
     &   +0.5*recip_drC(MIN(k+1,Nr))*
./pkg/smooth/smooth_rhs.F 258 SMOOTH_RHS 
     &     *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k)
./model/src/grad_sigma.F 98 GRAD_SIGMA 
     &                *recip_drC(k)*rkSign
./model/src/impldiff.F 140 IMPLDIFF 
     &               *KappaRX(i,j, k )*recip_drC( k )
./model/src/impldiff.F 158 IMPLDIFF 
     &               *KappaRX(i,j,k+1)*recip_drC(k+1)
./model/src/impldiff.F 337 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/impldiff.F 351 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/impldiff.F 367 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./pkg/timeave/timeave_cumul_dif_1t.F 75 TIMEAVE_CUMUL_DIF_1T 
     &          * recip_drC(k)
./model/src/ini_cg3d.F 148 INI_CG3D 
           theRecip_Dr = recip_drC(k)
./model/src/ini_cg3d.F 246 INI_CG3D 
     &                *Bo_surf(i,j,bi,bj)*recip_drC(1)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 138 GAD_IMPLICIT_R 
     &                  *kappaRX(i,j, k )*recip_drC( k )
./verification/OpenAD/code_oad_all/gad_implicit_r.F 148 GAD_IMPLICIT_R 
     &                 *KappaRX(i,j,k+1)*recip_drC(k+1)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 313 GAD_IMPLICIT_R 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/ini_vertical_grid.F 164 INI_VERTICAL_GRID 
       recip_drC(k)   = 1. _d 0/drC(k)
./model/src/post_cg3d.F 108 POST_CG3D 
     &                *Bo_surf(i,j,bi,bj)*recip_drC(1)
./model/src/pre_cg3d.F 103 PRE_CG3D 
     &                  *Bo_surf(i,j,bi,bj)*recip_drC(1)
./model/src/set_ref_state.F 129 SET_REF_STATE 
          dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k)
./model/src/set_ref_state.F 135 SET_REF_STATE 
     &                   )*recip_drC(k)
./model/src/set_ref_state.F 162 SET_REF_STATE 
            dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k)
./model/src/set_ref_state.F 189 SET_REF_STATE 
          dBdrRef(k) = (tRef(k) - tRef(k-1))*recip_drC(k)
./model/src/set_ref_state.F 190 SET_REF_STATE 
     &               * ddPI*recip_drC(k)
./model/src/timestep_wvel.F 70 TIMESTEP_WVEL 
     &              - tmpFac*rkSign*recip_drC(k)
./model/src/timestep_wvel.F 78 TIMESTEP_WVEL 
     &              - tmpFac*rkSign*recip_drC(k)
./model/inc/GRID.h 425 NO PROCEDURE 
     &  drC, drF, recip_drC, recip_drF, rC, rF,
./model/inc/GRID.h 481 NO PROCEDURE 
      _RS recip_drC      (Nr)