Symbol Description Uses
recip_drC 62


File Line number Procedure Code
./pkg/shelfice/shelfice_v_drag.F 67 SHELFICE_V_DRAG 
      rdrckp1=recip_drC(kUpC)
./pkg/shelfice/shelfice_u_drag.F 68 SHELFICE_U_DRAG 
      rdrckp1=recip_drC(kUpC)
./pkg/pp81/pp81_ri_number.F 112 PP81_RI_NUMBER 
     &       *recip_drC(K)
./pkg/pp81/pp81_ri_number.F 115 PP81_RI_NUMBER 
     &       *recip_drC(K)
./pkg/pp81/pp81_ri_number.F 122 PP81_RI_NUMBER 
     &       (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K)
./pkg/gmredi/gmredi_xtransport.F 124 GMREDI_XTRANSPORT 
     &   +op5*recip_drC(k)*
./pkg/gmredi/gmredi_xtransport.F 130 GMREDI_XTRANSPORT 
     &   +op5*recip_drC(kp1)*
./pkg/gmredi/gmredi_calc_tensor.F 444 GMREDI_CALC_TENSOR 
     &     +recip_drC(k)*
./pkg/gmredi/gmredi_calc_tensor.F 450 GMREDI_CALC_TENSOR 
     &     +recip_drC(kp1)*
./pkg/gmredi/gmredi_calc_tensor.F 563 GMREDI_CALC_TENSOR 
     &     +recip_drC(k)*
./pkg/gmredi/gmredi_calc_tensor.F 569 GMREDI_CALC_TENSOR 
     &     +recip_drC(kp1)*
./pkg/gmredi/gmredi_ytransport.F 125 GMREDI_YTRANSPORT 
     &   +op5*recip_drC(k)*
./pkg/gmredi/gmredi_ytransport.F 131 GMREDI_YTRANSPORT 
     &   +op5*recip_drC(kp1)*
./model/src/ini_cg3d.F 144 INI_CG3D 
           theRecip_Dr = recip_drC(K)
./model/src/grad_sigma.F 96 GRAD_SIGMA 
     &                *recip_drC(k)*rkSign
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 85 GAD_FLUXLIMIT_IMPL_R 
         w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k)
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 125 GAD_FLUXLIMIT_ADV_R 
     &      +rTrans(i,j)*wFld*dTarg*recip_drC(k)
./model/src/impldiff.F 106 IMPLDIFF 
     &               *KappaRX(i,j, k )*recip_drC( k )
./model/src/impldiff.F 117 IMPLDIFF 
     &               *KappaRX(i,j,k+1)*recip_drC(k+1)
./model/src/impldiff.F 245 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/impldiff.F 254 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/impldiff.F 265 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/ini_vertical_grid.F 104 INI_VERTICAL_GRID 
       recip_drC(K)   = 1. _d 0/drC(K)
./model/src/ini_phiref.F 104 INI_PHIREF 
          dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k)
./model/src/ini_phiref.F 110 INI_PHIREF 
     &                   )*recip_drC(k)
./model/src/ini_phiref.F 137 INI_PHIREF 
          dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k)
./model/src/ini_phiref.F 153 INI_PHIREF 
          dBdrRef(k) = (tRef(k) - tRef(k-1))*recip_drC(k)
./model/src/ini_phiref.F 154 INI_PHIREF 
     &               * ddPI*recip_drC(k)
./pkg/ggl90/ggl90_calc.F 166 GGL90_CALC 
         Nsquare = - gravity*recip_rhoConst*recip_drC(K)
./pkg/ggl90/ggl90_calc.F 171 GGL90_CALC 
     &        *recip_drC(K)
./pkg/ggl90/ggl90_calc.F 174 GGL90_CALC 
     &        *recip_drC(K)
./pkg/ggl90/ggl90_calc.F 281 GGL90_CALC 
     &        *recip_drC(k)
./pkg/ggl90/ggl90_calc.F 301 GGL90_CALC 
     &        *recip_drC(k)
./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_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_v_rviscflux.F 64 MOM_V_RVISCFLUX 
     &      )*rkSign*recip_drC(k)
./pkg/mom_common/mom_v_bottomdrag.F 71 MOM_V_BOTTOMDRAG 
      rdrckp1=recip_drC(kDownC)
./pkg/mom_common/mom_u_rviscflux.F 64 MOM_U_RVISCFLUX 
     &       )*rkSign*recip_drC(k)
./pkg/mom_common/mom_u_bottomdrag.F 64 MOM_U_BOTTOMDRAG 
      rdrckp1=recip_drC(kDownC)
./pkg/timeave/timeave_cumul_dif_1t.F 75 TIMEAVE_CUMUL_DIF_1T 
     &          * recip_drC(k)
./pkg/monitor/monitor.F 129 MONITOR 
     &       recip_drC,dT,myThid)
./model/inc/GRID.h 396 NO PROCEDURE 
     &  drC,drF,recip_drC,recip_drF,rC,rF,
./model/inc/GRID.h 456 NO PROCEDURE 
      _RS recip_drC      (1:Nr)
./pkg/generic_advdiff/gad_diff_r.F 65 GAD_DIFF_R 
     &     *KappaR(i,j)*recip_drC(k)
./pkg/generic_advdiff/gad_dst3_adv_r.F 85 GAD_DST3_ADV_R 
        cfl=abs(wLoc*dTarg*recip_drC(k))
./pkg/generic_advdiff/gad_implicit_r.F 138 GAD_IMPLICIT_R 
     &                  *kappaRX(i,j, k )*recip_drC( k )
./pkg/generic_advdiff/gad_implicit_r.F 148 GAD_IMPLICIT_R 
     &                 *KappaRX(i,j,k+1)*recip_drC(k+1)
./pkg/generic_advdiff/gad_implicit_r.F 313 GAD_IMPLICIT_R 
     &            * KappaRX(i,j,k)*recip_drC(k)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 77 GAD_DST3FL_ADV_R 
        cfl=abs(wLoc*dTarg*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_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_dst2u1_impl_r.F 78 GAD_DST2U1_IMPL_R 
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 111 GAD_FLUXLIMIT_ADV_R 
     &      +rTrans(i,j)*wLoc*dTarg*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/generic_advdiff/gad_dst3fl_impl_r.F 101 GAD_DST3FL_IMPL_R 
     &           *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/my82/my82_ri_number.F 112 MY82_RI_NUMBER 
     &       *recip_drC(K)
./pkg/my82/my82_ri_number.F 115 MY82_RI_NUMBER 
     &       *recip_drC(K)
./pkg/my82/my82_ri_number.F 122 MY82_RI_NUMBER 
     &       (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K)