Symbol Description Uses
recip_rA 69


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_wflow.F 55 GMREDI_CALC_WFLOW 
         wFld(i,j)   = wFld(i,j)   + delPsi*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 123 INTEGR_CONTINUITY 
     &                       + hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 131 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 138 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 416 EXTERNAL_FORCING_T 
     &  *recip_rA(i,j,bi,bj)
./model/src/ini_masks_etc.F 349 INI_MASKS_ETC 
     &    recip_rA(I,J,bi,bj)=1.d0/rA(I,J,bi,bj)
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F 334 INI_MASKS_ETC 
     &    recip_rA(I,J,bi,bj)=1.d0/rA(I,J,bi,bj)
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F 325 INI_MASKS_ETC 
     &    recip_rA(I,J,bi,bj)=1.d0/rA(I,J,bi,bj)
./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
./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 99 GAD_FLUXLIMIT_ADV_R 
         wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg)
./model/src/calc_gw.F 218 CALC_GW 
     &                   )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 303 CALC_GW 
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 380 CALC_GW 
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/integrate_for_w.F 104 INTEGRATE_FOR_W 
     &                 )*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 116 INTEGRATE_FOR_W 
     &                 )*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 133 INTEGRATE_FOR_W 
     &                 )*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 144 INTEGRATE_FOR_W 
     &                 )*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 77 INTEGRATE_FOR_W 
     &                 )*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 88 INTEGRATE_FOR_W 
     &                 )*recip_rA(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 251 GGL90_CALC 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 43 MOM_CALC_HDIV 
     &             )*recip_rA(I,J,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 57 MOM_CALC_HDIV 
     &    )*recip_rA(I,J,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 130 MOM_W_SIDEDRAG 
     &    )*recip_rThickC(i,j)*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 127 MOM_CALC_KE 
     &                   * recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 92 MOM_CALC_KE 
     &                  )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_tension.F 58 MOM_CALC_TENSION 
     &     +dxg( i , j ,bi,bj)*vFld( i , j ) )*recip_rA(i,j,bi,bj)
./pkg/monitor/mon_ke.F 76 MON_KE 
           tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./model/inc/GRID.h 394 NO PROCEDURE 
     &  recip_rA,recip_rAw,recip_rAs,recip_rAz,
./model/inc/GRID.h 442 NO PROCEDURE 
      _RS recip_rA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/generic_advdiff/gad_advection.F 416 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 428 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 446 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 580 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 592 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 610 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 803 GAD_ADVECTION 
     &     *recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 209 GAD_IMPLICIT_R 
     &      + dTtracerLev(1)*recip_rA(i,j,bi,bj)
./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_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_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 571 GAD_CALC_RHS 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj)
./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_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_del2.F 60 GAD_DEL2 
        del2(i,j)=recip_rA(i,j,bi,bj)
./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_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 101 GAD_DST3FL_IMPL_R 
     &           *recip_rA(i,j,bi,bj)*recip_drC(k)
./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
./pkg/shap_filt/shap_filt_relvort3.F 125 SHAP_FILT_RELVORT3 
     &     +recip_rA(I,J,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 168 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 175 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 182 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 226 SHAP_FILT_RELVORT3 
     &     +recip_rA(I,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 233 SHAP_FILT_RELVORT3 
     &     +recip_rA(I,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 240 SHAP_FILT_RELVORT3 
     &     +recip_rA(I,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 284 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 291 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_tracer_s2.F 201 SHAP_FILT_TRACER_S2 
     &             *recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_calc_rhs.F 87 SEAICE_CALC_RHS 
     &        - iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/seaice/advect.F 121 ADVECT 
     &        )*recip_rA(I,J,bi,bj)
./pkg/seaice/advect.F 194 ADVECT 
     &            )*recip_rA(I,J,bi,bj)
./pkg/seaice/seaice_advection.F 395 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 406 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 423 SEAICE_ADVECTION 
     &          *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 553 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 564 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 581 SEAICE_ADVECTION 
     &          *recip_rA(i,j,bi,bj)
./pkg/seaice/diffus.F 73 DIFFUS 
     &         DELTT*DIFFA(I,J,bi,bj) * recip_rA(I,J,bi,bj) * (