Symbol Description Uses
recip_rA 112


File Line number Procedure Code
./pkg/generic_advdiff/gad_advection.F 417 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 430 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 449 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 586 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 599 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 618 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 832 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(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 624 GAD_CALC_RHS 
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 669 GAD_CALC_RHS 
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 678 GAD_CALC_RHS 
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 695 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 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_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/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_implicit_r.F 211 GAD_IMPLICIT_R 
     &      + deltaTLev(1)*recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 447 GAD_SOM_ADVECT 
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F 626 GAD_SOM_ADVECT 
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(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_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/ggl90/ggl90_calc.F 383 GGL90_CALC 
     &    -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 56 GMREDI_CALC_WFLOW 
         wFld(i,j)   = wFld(i,j)   + delPsi*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_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/mom_common/mom_w_sidedrag.F 130 MOM_W_SIDEDRAG 
     &    )*recip_rThickC(i,j)*recip_rA(i,j,bi,bj)
./model/src/calc_gw.F 323 CALC_GW 
     &                   )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 417 CALC_GW 
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 518 CALC_GW 
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./pkg/monitor/mon_ke.F 93 MON_KE 
           tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/ptracers/ptracers_dwnslp_apply.F 57 PTRACERS_DWNSLP_APPLY 
     I                  recip_drF, recip_hFacC, recip_rA,
./pkg/ptracers/ptracers_dwnslp_apply.F 65 PTRACERS_DWNSLP_APPLY 
     I                  recip_drF, recip_hFacC, recip_rA,
./pkg/seaice/advect.F 144 ADVECT 
     &           )*recip_rA(I,J,bi,bj)*maskInC(i,j,bi,bj)
./pkg/seaice/diffus.F 101 DIFFUS 
     &         ) * recip_rA(I,J,bi,bj)
./pkg/seaice/seaice_advection.F 401 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 411 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 423 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 433 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 467 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 477 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 600 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 610 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 622 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 632 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 666 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 676 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 708 SEAICE_ADVECTION 
       tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_diffusion.F 95 SEAICE_DIFFUSION 
     &        - iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 149 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 201 SHAP_FILT_TRACER_S2 
     &             *recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 299 EXTERNAL_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 310 EXTERNAL_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 483 EXTERNAL_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 494 EXTERNAL_FORCING_S 
     &          *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 120 SMOOTH_FILTERVAR2D 
     & *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 185 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 225 SMOOTH_FILTERVAR3D 
     & *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_rhs.F 347 SMOOTH_RHS 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 358 SMOOTH_RHS 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 280 THSICE_ADVDIFF 
     &       ' , Heff_b,a=', oldVol(i,j)*recip_rA(i,j,bi,bj),
./pkg/thsice/thsice_advection.F 316 THSICE_ADVECTION 
     &          MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj)
./pkg/thsice/thsice_advection.F 317 THSICE_ADVECTION 
     &         +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj)
./pkg/thsice/thsice_advection.F 391 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 415 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 461 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 531 THSICE_ADVECTION 
     &          MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj)
./pkg/thsice/thsice_advection.F 532 THSICE_ADVECTION 
     &         +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj)
./pkg/thsice/thsice_advection.F 605 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 629 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 675 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 715 THSICE_ADVECTION 
          tmpFac= deltaTadvect*recip_rA(i,j,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 209 GAD_IMPLICIT_R 
     &      + dTtracerLev(1)*recip_rA(i,j,bi,bj)
./model/src/ini_masks_etc.F 72 INI_MASKS_ETC 
     &    recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj)
./model/src/integr_continuity.F 140 INTEGR_CONTINUITY 
     &                       + hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 150 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 165 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 109 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 124 INTEGRATE_FOR_W 
     &        ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 135 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 150 INTEGRATE_FOR_W 
     &        ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 160 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 175 INTEGRATE_FOR_W 
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 185 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 99 INTEGRATE_FOR_W 
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 415 EXTERNAL_FORCING_T 
     &  *recip_rA(i,j,bi,bj)
./model/src/thermodynamics.F 744 THERMODYNAMICS 
     I                  recip_drF, recip_hFacC, recip_rA,
./model/src/thermodynamics.F 752 THERMODYNAMICS 
     I                  recip_drF, recip_hFacC, recip_rA,
./model/src/thermodynamics.F 763 THERMODYNAMICS 
     I                  recip_drF, recip_hFacC, recip_rA,
./model/src/thermodynamics.F 771 THERMODYNAMICS 
     I                  recip_drF, recip_hFacC, recip_rA,
./model/inc/GRID.h 424 NO PROCEDURE 
     &  recip_rA,recip_rAw,recip_rAs,recip_rAz,
./model/inc/GRID.h 468 NO PROCEDURE 
      _RS recip_rA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)