Symbol Description Uses
recip_rA 150



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 1030 GAD_ADVECTION
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 1042 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 495 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 518 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 547 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 704 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 727 GAD_ADVECTION
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 756 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 724 GAD_CALC_RHS
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 751 GAD_CALC_RHS
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 759 GAD_CALC_RHS
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 777 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 85 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 145 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 112 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 594 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 135 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 144 GAD_U3C4_IMPL_R
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/ggl90/ggl90_calc.F 411 GGL90_CALC
          gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj)
./pkg/ggl90/ggl90_idemix.F 278 GGL90_IDEMIX
     &       + deltaTggl90*(-recip_drC(k)*recip_rA(i,j,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 88 GMREDI_RESIDUAL_FLOW
           wFld(i,j,k) = wFld(i,j,k) + delPsi*recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 522 APPLY_FORCING_T
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 533 APPLY_FORCING_T
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 887 APPLY_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 898 APPLY_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./pkg/layers/layers_thermodynamics.F 106 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)*recip_deepFacC(k)
./pkg/mom_common/mom_calc_hdiv.F 60 MOM_CALC_HDIV
     &    )*recip_rA(i,j,bi,bj)*recip_deepFacC(k)
./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)*recip_deepFacC(k)
./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_calc_advcfl.F 87 MON_CALC_ADVCFL_TILE
     &             *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./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 398 PTRACERS_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./pkg/ptracers/ptracers_integrate.F 405 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 716 EXTERNAL_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 727 EXTERNAL_FORCING_S
     &          *recip_rA(i,j,bi,bj)
./pkg/seaice/advect.F 163 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 430 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 440 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 452 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 462 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 496 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 506 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 632 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 642 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 654 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 664 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 698 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 708 SEAICE_ADVECTION
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 740 SEAICE_ADVECTION
       tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 116 SEAICE_CALC_VISCOSITIES
           e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) *
./pkg/seaice/seaice_diffusion.F 95 SEAICE_DIFFUSION
     &        - fac*iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_evp.F 398 SEAICE_EVP
             e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) *
./pkg/seaice/seaice_evp.F 438 SEAICE_EVP
     &            * recip_rA(I,J,bi,bj) ) * maskC(I,J,kSrf,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 163 SHAP_FILT_APPLY_UV
     &             )                       )*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 183 SMOOTH_DIFF2D
     & -gt_in(i,j,bi,bj)*recip_rA(i,j,bi,bj)*smooth2DdelTime
./pkg/smooth/smooth_filtervar2d.F 121 SMOOTH_FILTERVAR2D
     & *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 184 SMOOTH_FILTERVAR2D
     & *sqrt(recip_rA(i,j,bi,bj))
./pkg/smooth/smooth_filtervar3d.F 154 SMOOTH_FILTERVAR3D
     & *(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_filtervar3d.F 224 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 213 STREAMICE_ADV_FRONT
              hpot = partial_vol * recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 267 STREAMICE_ADV_FRONT
     &             recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F 135 STREAMICE_ADVECT_2DTRACER
     &        recip_rA (i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 139 STREAMICE_ADVECT_2DTRACER
     &       recip_rA(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F 188 STREAMICE_ADVECT_2DTRACER
     &        recip_rA (i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 192 STREAMICE_ADVECT_2DTRACER
     &       recip_rA(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 237 STREAMICE_ADVECT_THICKNESS
     &        * recip_rA (i,j,bi,bj) * time_step_loc
./pkg/streamice/streamice_advect_thickness.F 280 STREAMICE_ADVECT_THICKNESS
     &        recip_rA (i,j,bi,bj) * time_step_loc
./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_init_fixed.F 302 STREAMICE_INIT_FIXED
          k1AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_init_fixed.F 304 STREAMICE_INIT_FIXED
          k2AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_taub.F 68 STREAMICE_TAUB
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_taub.F 76 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) *
./pkg/streamice/streamice_visc_beta_hybrid.F 73 STREAMICE_VISC_BETA_HYBRID
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 77 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 453 SALT_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/salt_integrate.F 460 SALT_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/temp_integrate.F 461 TEMP_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/temp_integrate.F 468 TEMP_INTEGRATE
     I                  recip_hFac, recip_rA, recip_drF,
./pkg/aim_v23/aim_tendency_apply.F 160 AIM_TENDENCY_APPLY_U
     &                    )*recip_rA(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 348 AIM_TENDENCY_APPLY_V
     &                    )*recip_rA(i,j,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 176 ATM_PHYS_TENDENCY_APPLY_V
     &                    )*recip_rA(i,j,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 88 ATM_PHYS_TENDENCY_APPLY_U
     &                    )*recip_rA(i,j,bi,bj)