Symbol Description Uses
recip_hFac Inverse of cell open-depth factor 86


File Line number Procedure Code
./pkg/generic_advdiff/gad_c2_impl_r.F 11 GAD_C2_IMPL_R 
     I           deltaTarg, rTrans, recip_hFac,
./pkg/generic_advdiff/gad_c2_impl_r.F 46 GAD_C2_IMPL_R 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/generic_advdiff/gad_c2_impl_r.F 68 GAD_C2_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_c2_impl_r.F 71 GAD_C2_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_c2_impl_r.F 74 GAD_C2_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_c2_impl_r.F 77 GAD_C2_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 11 GAD_DST2U1_IMPL_R 
     I           advectionScheme, deltaTarg, rTrans, recip_hFac,
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 50 GAD_DST2U1_IMPL_R 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 87 GAD_DST2U1_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 90 GAD_DST2U1_IMPL_R 
     &                    *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 93 GAD_DST2U1_IMPL_R 
     &                    *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 96 GAD_DST2U1_IMPL_R 
     &                    *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 11 GAD_DST3FL_IMPL_R 
     I           deltaTarg, rTrans, recip_hFac, tFld,
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 154 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 158 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 162 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 166 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 170 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 174 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 178 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 54 GAD_DST3FL_IMPL_R 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 115 GAD_FLUXLIMIT_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 118 GAD_FLUXLIMIT_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 11 GAD_FLUXLIMIT_IMPL_R 
     I           deltaTarg, rTrans, recip_hFac, tFld,
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 121 GAD_FLUXLIMIT_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 124 GAD_FLUXLIMIT_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 49 GAD_FLUXLIMIT_IMPL_R 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/generic_advdiff/gad_implicit_r.F 12 GAD_IMPLICIT_R 
     I      kappaRX, recip_hFac, wFld, tracer,
./pkg/generic_advdiff/gad_implicit_r.F 147 GAD_IMPLICIT_R 
     &                  *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 157 GAD_IMPLICIT_R 
     &                 *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 206 GAD_IMPLICIT_R 
     I                        deltaTLev, rTrans, recip_hFac,
./pkg/generic_advdiff/gad_implicit_r.F 214 GAD_IMPLICIT_R 
     I                        rTrans, recip_hFac,
./pkg/generic_advdiff/gad_implicit_r.F 220 GAD_IMPLICIT_R 
     I                        deltaTLev, rTrans, recip_hFac, localTijk,
./pkg/generic_advdiff/gad_implicit_r.F 229 GAD_IMPLICIT_R 
     I                        rTrans, recip_hFac,
./pkg/generic_advdiff/gad_implicit_r.F 235 GAD_IMPLICIT_R 
     I                        deltaTLev, rTrans, recip_hFac, localTijk,
./pkg/generic_advdiff/gad_implicit_r.F 47 GAD_IMPLICIT_R 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 11 GAD_U3C4_IMPL_R 
     I           advectionScheme, deltaTarg, rTrans, recip_hFac,
./pkg/generic_advdiff/gad_u3c4_impl_r.F 158 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 162 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 166 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 170 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 174 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 178 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 182 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 186 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 55 GAD_U3C4_IMPL_R 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/gmredi/gmredi_calc_eigs.F 128 GMREDI_CALC_EIGS 
             c3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F 133 GMREDI_CALC_EIGS 
             a3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F 135 GMREDI_CALC_EIGS 
             c3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k)
./pkg/gmredi/gmredi_calc_eigs.F 140 GMREDI_CALC_EIGS 
             a3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k)
./pkg/ptracers/ptracers_integrate.F 11 PTRACERS_INTEGRATE 
     I                    bi, bj, recip_hFac,
./pkg/ptracers/ptracers_integrate.F 386 PTRACERS_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./pkg/ptracers/ptracers_integrate.F 393 PTRACERS_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./pkg/ptracers/ptracers_integrate.F 435 PTRACERS_INTEGRATE 
     I         PTRACERS_dTLev, kappaRk, recip_hFac, wFld,
./pkg/ptracers/ptracers_integrate.F 446 PTRACERS_INTEGRATE 
     I         GAD_TR, kappaRk, recip_hFac,
./pkg/ptracers/ptracers_integrate.F 50 PTRACERS_INTEGRATE 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./model/src/impldiff.F 11 IMPLDIFF 
     I                     tracerId, KappaRX, recip_hFac,
./model/src/impldiff.F 141 IMPLDIFF 
          a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k)*recip_drF(k)
./model/src/impldiff.F 145 IMPLDIFF 
          IF (recip_hFac(i,j,k-1).EQ.0.) a(i,j,k)=0.
./model/src/impldiff.F 159 IMPLDIFF 
          c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k)*recip_drF(k)
./model/src/impldiff.F 163 IMPLDIFF 
          IF (recip_hFac(i,j,k+1).EQ.0.) c(i,j,k)=0.
./model/src/impldiff.F 58 IMPLDIFF 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/smooth/smooth_impldiff.F 30 SMOOTH_IMPLDIFF 
      _RS recip_hFac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
./pkg/smooth/smooth_impldiff.F 66 SMOOTH_IMPLDIFF 
          a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_impldiff.F 70 SMOOTH_IMPLDIFF 
          IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0.
./pkg/smooth/smooth_impldiff.F 79 SMOOTH_IMPLDIFF 
          c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_impldiff.F 7 SMOOTH_IMPLDIFF 
     I                     deltaTX, KappaRX, recip_hFac,
./pkg/smooth/smooth_impldiff.F 83 SMOOTH_IMPLDIFF 
          IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0.
./model/src/salt_integrate.F 17 SALT_INTEGRATE 
     I           bi, bj, recip_hFac,
./model/src/salt_integrate.F 445 SALT_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/salt_integrate.F 452 SALT_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/salt_integrate.F 483 SALT_INTEGRATE 
     I         dTtracerLev, kappaRk, recip_hFac, wFld,
./model/src/salt_integrate.F 497 SALT_INTEGRATE 
     I         GAD_SALINITY, kappaRk, recip_hFac,
./model/src/salt_integrate.F 81 SALT_INTEGRATE 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./model/src/temp_integrate.F 17 TEMP_INTEGRATE 
     I           bi, bj, recip_hFac,
./model/src/temp_integrate.F 453 TEMP_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/temp_integrate.F 460 TEMP_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/temp_integrate.F 491 TEMP_INTEGRATE 
     I         dTtracerLev, kappaRk, recip_hFac, wFld,
./model/src/temp_integrate.F 505 TEMP_INTEGRATE 
     I         GAD_TEMPERATURE, kappaRk, recip_hFac,
./model/src/temp_integrate.F 84 TEMP_INTEGRATE 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/down_slope/dwnslp_apply.F 13 DWNSLP_APPLY 
     I            recip_hFac, recip_rA_arg, recip_drF,
./pkg/down_slope/dwnslp_apply.F 152 DWNSLP_APPLY 
     &       *recip_drF(k)*recip_hFac(ijd,k)
./pkg/down_slope/dwnslp_apply.F 161 DWNSLP_APPLY 
     &       *recip_drF(k)*recip_hFac(ijs,k)
./pkg/down_slope/dwnslp_apply.F 172 DWNSLP_APPLY 
     &       *recip_drF(k)*recip_hFac(ijd,k)
./pkg/down_slope/dwnslp_apply.F 177 DWNSLP_APPLY 
     &       *recip_drF(kshelf)*recip_hFac(ijs,kshelf)
./pkg/down_slope/dwnslp_apply.F 56 DWNSLP_APPLY 
      _RS recip_hFac  ( xySize, Nr )