Symbol Description Uses
recip_hFacC Inverse of cell open-depth f[X,Y,Z] ( dimensionless ). 48



File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 468 GGL90_CALC
     &        *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 488 GGL90_CALC
     &        *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj)
./model/inc/RECIP_HFACC_MACROS.h 36 NO PROCEDURE
# define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/monitor/monitor.F 152 MONITOR
        CALL MON_ADVCFLW2('_W_hf', wVel, recip_hFacC,
./pkg/monitor/monitor_ad.F 156 ADMONITOR
        CALL MON_ADVCFLW2('_adW_hf',adwVel,recip_hFacC,
./pkg/monitor/monitor_g.F 157 G_MONITOR
        CALL MON_ADVCFLW2('_g_W_hf',g_wVel,recip_hFacC,
./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/ptracers/ptracers_forcing.F 77 PTRACERS_FORCING
     &           *recip_drF(k)*recip_hFacC(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 194 SHAP_FILT_TRACER_S2
     &             *recip_hFacC(i,j,k,bi,bj)
./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_surf.F 139 EXTERNAL_FORCING_SURF
     &                    *recip_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 144 EXTERNAL_FORCING_SURF
     &                    *recip_hFacC(i,j,ks,bi,bj)
./pkg/smooth/smooth_diff3d.F 168 SMOOTH_DIFF3D
     I         recip_hFacC,
./model/src/freesurf_rescale_g.F 59 FREESURF_RESCALE_G
     &                    *recip_hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 352 INI_MASKS_ETC
            recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 355 INI_MASKS_ETC
            recip_hFacC(i,j,k,bi,bj) = 0.
./verification/rotating_tank/code/external_forcing.F 326 EXTERNAL_FORCING_T
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 351 EXTERNAL_FORCING_T
     &    *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 510 EXTERNAL_FORCING_S
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 314 EXTERNAL_FORCING_T
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 339 EXTERNAL_FORCING_T
     &    *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 431 EXTERNAL_FORCING_S
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 81 PTRACERS_FORCING
     &           *recip_drF(k)*recip_hFacC(i,j,k,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/src/thermodynamics.F 835 THERMODYNAMICS
     I         GAD_TEMPERATURE, kappaRk, recip_hFacC,
./model/src/thermodynamics.F 886 THERMODYNAMICS
     I         GAD_SALINITY, kappaRk, recip_hFacC,
./model/src/update_masks_etc.F 298 UPDATE_MASKS_ETC
            recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj)
./model/src/update_masks_etc.F 301 UPDATE_MASKS_ETC
            recip_hFacC(I,J,K,bi,bj) = 0.
./model/src/update_r_star.F 107 UPDATE_R_STAR
     &      recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj)
./model/src/update_r_star.F 99 UPDATE_R_STAR
            recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_sigma.F 118 UPDATE_SIGMA
            recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k)
./model/src/update_surf_dr.F 92 UPDATE_SURF_DR
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 132 AIM_AIM2DYN
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 135 AIM_AIM2DYN
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 149 AIM_AIM2DYN
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 151 AIM_AIM2DYN
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 163 AIM_AIM2DYN
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 165 AIM_AIM2DYN
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_physics.F 96 AIM_DO_PHYSICS
     &                  *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj)
./pkg/dic/dic_biotic_forcing.F 255 DIC_BIOTIC_FORCING
     &                       *recip_hFacC(i,j,1,bi,bj)
./pkg/dic/dic_surfforcing.F 212 DIC_SURFFORCING
           GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./pkg/dic/o2_surfforcing.F 125 O2_SURFFORCING
     &         *recip_drF(K) * recip_hFacC(i,j,K,bi,bj)
./model/inc/GRID.h 420 NO PROCEDURE
     &  recip_hFacC,recip_hFacW,recip_hFacS,
./model/inc/GRID.h 457 NO PROCEDURE
      _RS recip_hFacC    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)