| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
426 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
481 |
NO PROCEDURE |
_RS recip_drC (Nr+1) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
68 |
GAD_BIHARM_R |
tmpFac = recip_drC(kl)*deepFac2F(kl)*rhoFacF(kl) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
92 |
GAD_BIHARM_R |
tmpFac = rkSign*recip_drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_diff_r.F |
65 |
GAD_DIFF_R |
& *recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
77 |
GAD_DST2U1_ADV_R |
wCFL = ABS(wLoc*deltaTloc*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
80 |
GAD_DST2U1_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
88 |
GAD_DST3_ADV_R |
cfl=ABS(wLoc*dTarg*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
81 |
GAD_DST3FL_ADV_R |
wCFL = ABS(wLoc*dTarg*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
103 |
GAD_DST3FL_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
86 |
GAD_FLUXLIMIT_ADV_R |
wCFL = ABS( wLoc*dTarg*recip_drC(k) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
148 |
GAD_IMPLICIT_R |
& *kappaRX(i,j, k )*recip_drC( k ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
158 |
GAD_IMPLICIT_R |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
301 |
GAD_IMPLICIT_R |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
63 |
GAD_OS7MP_ADV_R |
cfl = abs(wLoc*deltaTloc*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
112 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
143 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
385 |
GGL90_CALC |
& gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj)/hFac |
|
./pkg/ggl90/ggl90_calc.F |
399 |
GGL90_CALC |
& *recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
402 |
GGL90_CALC |
& *recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
471 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
491 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
129 |
GMREDI_CALC_EIGS |
& *recip_drC(k+1)*recip_drF(k)/N2(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
134 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k)/N2(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
136 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k+1)/N2(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
141 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k)/N2(i,j,k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
144 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = -c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
147 |
GMREDI_CALC_PSI_BVP |
& + c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
150 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = -c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
215 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = -c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
218 |
GMREDI_CALC_PSI_BVP |
& + c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
221 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = -c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
792 |
GMREDI_CALC_TENSOR |
& +recip_drC(k)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
798 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
993 |
GMREDI_CALC_TENSOR |
& +recip_drC(k)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
999 |
GMREDI_CALC_TENSOR |
& +recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
60 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = -recip_drC(k)*rkSign |
|
./pkg/gmredi/gmredi_xtransport.F |
142 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_xtransport.F |
148 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_ytransport.F |
142 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_ytransport.F |
148 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/kl10/kl10_calc.F |
126 |
KL10_CALC |
& (rhoS(1) - rhoS(2))*recip_drC(2),0. _d 0) |
|
./pkg/kl10/kl10_calc.F |
136 |
KL10_CALC |
& (rhoS(K) - rhoS(K+1))*recip_drC(K+1) |
|
./pkg/kl10/kl10_calc.F |
140 |
KL10_CALC |
& (rhoS(K-1) - rhoS(K))*recip_drC(K) |
|
./model/src/calc_gw.F |
283 |
CALC_GW |
recip_rThickC(i,j) = recip_drC(k) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
132 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
142 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
154 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
165 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_u_bottomdrag.F |
85 |
MOM_U_BOTTOMDRAG |
recDrC = recip_drC(kLowF) |
|
./pkg/mom_common/mom_u_implicit_r.F |
101 |
MOM_U_IMPLICIT_R |
& *KappaRU(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
216 |
MOM_U_IMPLICIT_R |
& -KappaRU(i,j,k)*rAw(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
90 |
MOM_U_IMPLICIT_R |
& *kappaRU(i,j, k )*recip_drC( k ) |
|
./pkg/mom_common/mom_u_rviscflux.F |
64 |
MOM_U_RVISCFLUX |
& )*rkSign*recip_drC(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
85 |
MOM_V_BOTTOMDRAG |
recDrC = recip_drC(kLowF) |
|
./pkg/mom_common/mom_v_implicit_r.F |
101 |
MOM_V_IMPLICIT_R |
& *KappaRV(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
216 |
MOM_V_IMPLICIT_R |
& -KappaRV(i,j,k)*rAs(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
90 |
MOM_V_IMPLICIT_R |
& *kappaRV(i,j, k )*recip_drC( k ) |
|
./pkg/mom_common/mom_v_rviscflux.F |
64 |
MOM_V_RVISCFLUX |
& )*rkSign*recip_drC(k) |
|
./pkg/monitor/monitor.F |
156 |
MONITOR |
CALL MON_ADVCFLW( '_wvel', wVel, recip_drC, dT, myThid ) |
|
./pkg/monitor/monitor_g.F |
158 |
G_MONITOR |
CALL MON_ADVCFLW( '_g_wvel',g_wVel,recip_drC,dT,myThid ) |
|
./pkg/my82/my82_ri_number.F |
106 |
MY82_RI_NUMBER |
& *recip_drC(K) |
|
./pkg/my82/my82_ri_number.F |
109 |
MY82_RI_NUMBER |
& *recip_drC(K) |
|
./pkg/my82/my82_ri_number.F |
116 |
MY82_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
110 |
PP81_RI_NUMBER |
& *recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
113 |
PP81_RI_NUMBER |
& *recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
120 |
PP81_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./model/src/grad_sigma.F |
103 |
GRAD_SIGMA |
& *recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
143 |
IMPLDIFF |
& *KappaRX(i,j, k )*recip_drC( k ) |
|
./model/src/impldiff.F |
161 |
IMPLDIFF |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./model/src/impldiff.F |
337 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
353 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
369 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/ini_cg3d.F |
154 |
INI_CG3D |
theRecip_Dr = recip_drC(k) |
|
./model/src/ini_cg3d.F |
214 |
INI_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./pkg/shelfice/shelfice_u_drag.F |
68 |
SHELFICE_U_DRAG |
rdrckp1=recip_drC(kUpC) |
|
./pkg/shelfice/shelfice_v_drag.F |
68 |
SHELFICE_V_DRAG |
rdrckp1=recip_drC(kUpC) |
|
./pkg/smooth/smooth_impldiff.F |
68 |
SMOOTH_IMPLDIFF |
& *KappaRX(i,j, k )*recip_drC( k ) |
|
./pkg/smooth/smooth_impldiff.F |
81 |
SMOOTH_IMPLDIFF |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./pkg/smooth/smooth_rhs.F |
124 |
SMOOTH_RHS |
& +0.5*recip_drC(k)* |
|
./pkg/smooth/smooth_rhs.F |
130 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
192 |
SMOOTH_RHS |
& +0.5*recip_drC(k)* |
|
./pkg/smooth/smooth_rhs.F |
198 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
253 |
SMOOTH_RHS |
& *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
75 |
TIMEAVE_CUMUL_DIF_1T |
& * recip_drC(k) |
|
./model/src/ini_vertical_grid.F |
169 |
INI_VERTICAL_GRID |
recip_drC(k) = 1. _d 0/drC(k) |
|
./model/src/post_cg3d.F |
108 |
POST_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/pre_cg3d.F |
98 |
PRE_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/set_ref_state.F |
129 |
SET_REF_STATE |
dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k) |
|
./model/src/set_ref_state.F |
135 |
SET_REF_STATE |
& )*recip_drC(k) |
|
./model/src/set_ref_state.F |
162 |
SET_REF_STATE |
dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k) |
|
./model/src/set_ref_state.F |
189 |
SET_REF_STATE |
dBdrRef(k) = (tRef(k) - tRef(k-1))*recip_drC(k) |
|
./model/src/set_ref_state.F |
190 |
SET_REF_STATE |
& * ddPI*recip_drC(k) |
|
./model/src/timestep_wvel.F |
74 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
82 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
70 |
CHEAPAML_GAD_DST3FL_ADV_R |
wCFL = ABS(wLoc*dTarg*recip_drC(1)) |