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


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 72 GAD_C2_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_c2_impl_r.F 76 GAD_C2_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_c2_impl_r.F 80 GAD_C2_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 103 GAD_DST2U1_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 52 GAD_DST2U1_IMPL_R 
      _RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 91 GAD_DST2U1_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 95 GAD_DST2U1_IMPL_R 
     &                    *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 99 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 155 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 160 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 165 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)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 175 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 180 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 185 GAD_DST3FL_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 190 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 116 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 120 GAD_FLUXLIMIT_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./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 128 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 129 GAD_IMPLICIT_R 
     &                  *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 12 GAD_IMPLICIT_R 
     I      kappaRX, recip_hFac, wFld, tracer,
./pkg/generic_advdiff/gad_implicit_r.F 141 GAD_IMPLICIT_R 
     &                  *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 217 GAD_IMPLICIT_R 
     I                        deltaTLev, rTrans, recip_hFac,
./pkg/generic_advdiff/gad_implicit_r.F 225 GAD_IMPLICIT_R 
     I                        rTrans, recip_hFac,
./pkg/generic_advdiff/gad_implicit_r.F 231 GAD_IMPLICIT_R 
     I                        deltaTLev, rTrans, recip_hFac, localTr,
./pkg/generic_advdiff/gad_implicit_r.F 240 GAD_IMPLICIT_R 
     I                        rTrans, recip_hFac,
./pkg/generic_advdiff/gad_implicit_r.F 246 GAD_IMPLICIT_R 
     I                        deltaTLev, rTrans, recip_hFac, localTr,
./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 160 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 165 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 175 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 180 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 185 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 190 GAD_U3C4_IMPL_R 
     &                   *recip_hFac(i,j,k-1)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 195 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 14 PTRACERS_INTEGRATE 
     I                    bi, bj, recip_hFac,
./pkg/ptracers/ptracers_integrate.F 398 PTRACERS_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./pkg/ptracers/ptracers_integrate.F 405 PTRACERS_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./pkg/ptracers/ptracers_integrate.F 445 PTRACERS_INTEGRATE 
     I         PTRACERS_dTLev, kappaRk, recip_hFac, wFld,
./pkg/ptracers/ptracers_integrate.F 456 PTRACERS_INTEGRATE 
     I         GAD_TR, kappaRk, recip_hFac,
./pkg/ptracers/ptracers_integrate.F 53 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 453 SALT_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/salt_integrate.F 460 SALT_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/salt_integrate.F 488 SALT_INTEGRATE 
     I         dTtracerLev, kappaRk, recip_hFac, wFld,
./model/src/salt_integrate.F 502 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 461 TEMP_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/temp_integrate.F 468 TEMP_INTEGRATE 
     I                  recip_hFac, recip_rA, recip_drF,
./model/src/temp_integrate.F 496 TEMP_INTEGRATE 
     I         dTtracerLev, kappaRk, recip_hFac, wFld,
./model/src/temp_integrate.F 510 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 )