Symbol Description Uses
recip_Rcol Inverse of cell center column thickness (1/r_unit) 51


File Line number Procedure Code
./model/src/calc_grad_phi_hyd.F 170 CALC_GRAD_PHI_HYD 
     &                *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj))
./model/src/calc_r_star.F 97 CALC_R_STAR 
     &      *recip_Rcol(i,j,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 47 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i,j-1,bi,bj),recip_Rcol(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 57 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i,j+1,bi,bj),recip_Rcol(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 71 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i-1,j,bi,bj),recip_Rcol(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 81 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i+1,j,bi,bj),recip_Rcol(i,j,bi,bj))
./model/src/cg3d.F 194 CG3D 
     &              *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/cg3d.F 384 CG3D 
     &              *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/ini_masks_etc.F 223 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 225 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/ini_nh_fields.F 111 INI_NH_FIELDS 
     &                           *recip_Rcol(i,j,bi,bj)
./model/src/ini_sigma_hfac.F 89 INI_SIGMA_HFAC 
             recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpFld(i,j)
./model/src/ini_sigma_hfac.F 94 INI_SIGMA_HFAC 
             recip_Rcol(i,j,bi,bj) = 0. _d 0
./verification/hs94.128x64x5/code/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.128x64x5/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.128x64x5/code/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code_ad/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code_ad/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code_ad/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.cs-32x32x5/code/external_forcing.F 147 EXTERNAL_FORCING_V 
          recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.cs-32x32x5/code/external_forcing.F 236 EXTERNAL_FORCING_T 
     &                  *recip_Rcol(i,j,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 63 EXTERNAL_FORCING_U 
          recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./model/src/integr_continuity.F 215 INTEGR_CONTINUITY 
     &                            *recip_Rcol(i,j,bi,bj)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/tutorial_held_suarez_cs/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/tutorial_held_suarez_cs/code/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./model/src/post_cg3d.F 99 POST_CG3D 
             dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/pre_cg3d.F 133 PRE_CG3D 
     &                    *recip_Rcol(i,j,bi,bj)
./model/src/update_masks_etc.F 180 UPDATE_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 0.
./model/src/update_masks_etc.F 182 UPDATE_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/inc/GRID.h 419 NO PROCEDURE 
     &  recip_Rcol,
./model/inc/GRID.h 456 NO PROCEDURE 
      _RS recip_Rcol     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)