Symbol Description Uses
recip_rA 145



File Line number Procedure Code
./model/inc/GRID.h 425 NO PROCEDURE
     &  recip_rA,recip_rAw,recip_rAs,recip_rAz,
./model/inc/GRID.h 469 NO PROCEDURE
      _RS recip_rA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/generic_advdiff/gad_advection.F 479 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 502 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 531 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 676 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 699 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 728 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 923 GAD_ADVECTION
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 935 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_c2_impl_r.F 65 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 704 GAD_CALC_RHS
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 745 GAD_CALC_RHS
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 754 GAD_CALC_RHS
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 772 GAD_CALC_RHS
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_del2.F 58 GAD_DEL2
        del2(i,j)=recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_diagnostics_state.F 119 GAD_DIAGNOSTICS_STATE
              recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_diagnostics_state.F 74 GAD_DIAGNOSTICS_STATE
              recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 80 GAD_DST2U1_IMPL_R
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 81 GAD_DST2U1_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 103 GAD_DST3FL_IMPL_R
     &           *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 144 GAD_DST3FL_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 111 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 88 GAD_FLUXLIMIT_IMPL_R
         w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_som_advect.F 411 GAD_SOM_ADVECT
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F 588 GAD_SOM_ADVECT
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 103 GAD_U3C4_IMPL_R
     &        0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_u3c4_impl_r.F 112 GAD_U3C4_IMPL_R
     &         *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 134 GAD_U3C4_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 143 GAD_U3C4_IMPL_R
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/ggl90/ggl90_calc.F 385 GGL90_CALC
     &      gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj)/hFac
./pkg/gmredi/gmredi_residual_flow.F 87 GMREDI_RESIDUAL_FLOW
           wFld(i,j,k) = wFld(i,j,k) + delPsi*recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 507 APPLY_FORCING_T
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 518 APPLY_FORCING_T
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 542 APPLY_FORCING_T
     &          *tmpFac*recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 882 APPLY_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 893 APPLY_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./pkg/layers/layers_thermodynamics.F 85 LAYERS_CALC_RHS
     &          *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./model/src/calc_gw.F 356 CALC_GW
     &                   )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 450 CALC_GW
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 568 CALC_GW
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 580 CALC_GW
     &          *recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./pkg/mom_common/mom_calc_hdiv.F 43 MOM_CALC_HDIV
     &             )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 60 MOM_CALC_HDIV
     &    )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 100 MOM_CALC_KE
     &                  )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 135 MOM_CALC_KE
     &                   * recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_tension.F 59 MOM_CALC_TENSION
     &    )*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_w_smag_3d.F 76 MOM_W_SMAG_3D
     &                  recip_rA(i,j,bi,bj)*(
./pkg/monitor/mon_ke.F 108 MON_KE
           tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/ptracers/ptracers_integrate.F 386 PTRACERS_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./pkg/ptracers/ptracers_integrate.F 393 PTRACERS_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/external_forcing.F 394 EXTERNAL_FORCING_T
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 405 EXTERNAL_FORCING_T
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 429 EXTERNAL_FORCING_T
     &          *tmpFac*recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 717 EXTERNAL_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 728 EXTERNAL_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./pkg/seaice/advect.F 160 ADVECT
     &           )*recip_rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/seaice/diffus.F 99 DIFFUS
     &                       ) * recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 427 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 437 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 449 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 459 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 493 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 503 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 629 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 639 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 651 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 661 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 695 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 705 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 737 SEAICE_ADVECTION
       tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 107 SEAICE_CALC_VISCOSITIES
           e12Csqr(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) *
./pkg/seaice/seaice_diffusion.F 92 SEAICE_DIFFUSION
     &        - fac*iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 177 SHAP_FILT_APPLY_UV
                   dKE_shap(i,j) = dKE_shap(i,j) * recip_rA(i,j,bi,bj)
./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 200 SHAP_FILT_TRACER_S2
     &             *recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_correl2d.F 63 SMOOTH_CORREL2D
     & *sqrt(recip_rA(i,j,bi,bj))
./pkg/smooth/smooth_correl3d.F 88 SMOOTH_CORREL3D
     & *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_diff2d.F 180 SMOOTH_DIFF2D
     & -gt_in(i,j,bi,bj)*recip_rA(i,j,bi,bj)*smooth2DdelTime
./pkg/smooth/smooth_filtervar2d.F 117 SMOOTH_FILTERVAR2D
     & *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 182 SMOOTH_FILTERVAR2D
     & *sqrt(recip_rA(i,j,bi,bj))
./pkg/smooth/smooth_filtervar3d.F 152 SMOOTH_FILTERVAR3D
     & *(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_filtervar3d.F 223 SMOOTH_FILTERVAR3D
     & *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_rhs.F 341 SMOOTH_RHS
     &   *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 353 SMOOTH_RHS
     &   *recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 212 STREAMICE_ADV_FRONT
              hpot = partial_vol * recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 270 STREAMICE_ADV_FRONT
     &             recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F 141 STREAMICE_ADVECT_2DTRACER
     &        recip_rA (i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 145 STREAMICE_ADVECT_2DTRACER
     &       recip_rA(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F 196 STREAMICE_ADVECT_2DTRACER
     &        recip_rA (i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 200 STREAMICE_ADVECT_2DTRACER
     &       recip_rA(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 221 STREAMICE_ADVECT_THICKNESS
     &        * recip_rA (i,j,bi,bj) * time_step_loc
./pkg/streamice/streamice_advect_thickness.F 266 STREAMICE_ADVECT_THICKNESS
     &        recip_rA (i,j,bi,bj) * time_step_loc
./pkg/streamice/streamice_init_fixed.F 288 STREAMICE_INIT_FIXED
          k1AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_init_fixed.F 290 STREAMICE_INIT_FIXED
          k2AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_taub.F 63 STREAMICE_TAUB
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_taub.F 67 STREAMICE_TAUB
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F 53 STREAMICE_VISC_BETA
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F 57 STREAMICE_VISC_BETA
     &        recip_rA(i,j,bi,bj) *
./model/src/ini_grid.F 173 INI_GRID
     &    recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj)
./model/src/ini_grid.F 97 INI_GRID
          recip_rA (i,j,bi,bj) = 0.
./pkg/streamice/streamice_visc_beta_hybrid.F 62 STREAMICE_VISC_BETA_HYBRID
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 66 STREAMICE_VISC_BETA_HYBRID
     &        recip_rA(i,j,bi,bj) *
./pkg/thsice/thsice_advdiff.F 314 THSICE_ADVDIFF
     &       ' , Heff_b,a=', oldVol(i,j)*recip_rA(i,j,bi,bj),
./pkg/thsice/thsice_advection.F 341 THSICE_ADVECTION
     &          MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj)
./pkg/thsice/thsice_advection.F 342 THSICE_ADVECTION
     &         +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj)
./pkg/thsice/thsice_advection.F 419 THSICE_ADVECTION
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 452 THSICE_ADVECTION
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 491 THSICE_ADVECTION
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 561 THSICE_ADVECTION
     &          MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj)
./pkg/thsice/thsice_advection.F 562 THSICE_ADVECTION
     &         +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj)
./pkg/thsice/thsice_advection.F 638 THSICE_ADVECTION
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 671 THSICE_ADVECTION
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 710 THSICE_ADVECTION
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 751 THSICE_ADVECTION
          tmpFac= deltaTadvect*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 153 INTEGR_CONTINUITY
     &                       + hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 163 INTEGR_CONTINUITY
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 178 INTEGR_CONTINUITY
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 105 INTEGRATE_FOR_W
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 115 INTEGRATE_FOR_W
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 130 INTEGRATE_FOR_W
     &        ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 141 INTEGRATE_FOR_W
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 156 INTEGRATE_FOR_W
     &        ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 166 INTEGRATE_FOR_W
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 181 INTEGRATE_FOR_W
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 191 INTEGRATE_FOR_W
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 524 APPLY_FORCING_T
     &          *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 535 APPLY_FORCING_T
     &          *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 559 APPLY_FORCING_T
     &          *tmpFac*recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 746 APPLY_FORCING_T
     &  *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 944 APPLY_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 955 APPLY_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./model/src/salt_integrate.F 445 SALT_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/salt_integrate.F 452 SALT_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/temp_integrate.F 453 TEMP_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/temp_integrate.F 460 TEMP_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,