Symbol Description Uses
recip_hFacS 16



File Line number Procedure Code
./model/inc/RECIP_HFACS_MACROS.h 36 NO PROCEDURE
# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 366 INI_MASKS_ETC
            recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 369 INI_MASKS_ETC
            recip_hFacS(i,j,k,bi,bj) = 0.
./verification/rotating_tank/code/external_forcing.F 180 EXTERNAL_FORCING_V
     &   *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 211 EXTERNAL_FORCING_V
     &   *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj)
./model/src/timestep.F 317 TIMESTEP
     &                    *recip_hFacS(i,j,k,bi,bj)
./model/src/update_masks_etc.F 314 UPDATE_MASKS_ETC
            recip_hFacS(I,J,K,bi,bj) = 1. _d 0 / hFacS(I,J,K,bi,bj)
./model/src/update_masks_etc.F 317 UPDATE_MASKS_ETC
            recip_hFacS(I,J,K,bi,bj) = 0.
./model/src/update_r_star.F 103 UPDATE_R_STAR
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_r_star.F 111 UPDATE_R_STAR
     &      recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj)
./model/src/update_sigma.F 170 UPDATE_SIGMA
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k)
./model/src/update_surf_dr.F 114 UPDATE_SURF_DR
           recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 219 AIM_TENDENCY_APPLY_V
     &                       * recip_hFacS(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 236 AIM_TENDENCY_APPLY_V
     &                       * recip_hFacS(i,j,kLev,bi,bj)
./model/inc/GRID.h 420 NO PROCEDURE
     &  recip_hFacC,recip_hFacW,recip_hFacS,
./model/inc/GRID.h 459 NO PROCEDURE
      _RS recip_hFacS    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)