| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_mapping.F |
198 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/flt/flt_runga2.F |
104 |
FLT_RUNGA2 |
scalez=rkSign*recip_drF(kc) |
|
./pkg/flt/flt_runga4.F |
106 |
FLT_RUNGA4 |
scalez=rkSign*recip_drF(kc) |
|
./pkg/generic_advdiff/gad_advection.F |
416 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
429 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
448 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
585 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
598 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
617 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
831 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
66 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
69 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
72 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
75 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
623 |
GAD_CALC_RHS |
& _recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
668 |
GAD_CALC_RHS |
& *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
677 |
GAD_CALC_RHS |
& *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
694 |
GAD_CALC_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_del2.F |
59 |
GAD_DEL2 |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
120 |
GAD_DIAGNOSTICS_STATE |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
75 |
GAD_DIAGNOSTICS_STATE |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
88 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
91 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
94 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
152 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
156 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
160 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
164 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
168 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
172 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
176 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
180 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
113 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
116 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
119 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
122 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
139 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
149 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
212 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
448 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
627 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
116 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
120 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
124 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
128 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
132 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
136 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
140 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
144 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/ggl90/ggl90_calc.F |
383 |
GGL90_CALC |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
468 |
GGL90_CALC |
& *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
488 |
GGL90_CALC |
& *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
63 |
GMREDI_CALC_UVFLOW |
& + delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
73 |
GMREDI_CALC_UVFLOW |
& + delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
166 |
ICEFRONT_THERMODYNAMICS |
& * recip_drF(K) |
|
./pkg/icefront/icefront_thermodynamics.F |
170 |
ICEFRONT_THERMODYNAMICS |
& * recip_drF(K) |
|
./pkg/kpp/kpp_forcing_surf.F |
331 |
KPP_FORCING_SURF |
& surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
333 |
KPP_FORCING_SURF |
& surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/layers/layers_calc.F |
174 |
LAYERS_CALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
245 |
LAYERS_CALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
73 |
MOM_U_BOTTOMDRAG |
IF (k.EQ.kBottom) rdrckp1=recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
81 |
MOM_U_BOTTOMDRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
92 |
MOM_U_BOTTOMDRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
100 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
147 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
150 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
153 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
156 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
166 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
168 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
170 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
172 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
89 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_sidedrag.F |
127 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
87 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
82 |
MOM_V_BOTTOMDRAG |
IF (k.EQ.kBottom) rdrckp1=recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
88 |
MOM_V_BOTTOMDRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
99 |
MOM_V_BOTTOMDRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
100 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
147 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
150 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
153 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
156 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
166 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
168 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
170 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
172 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
89 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_sidedrag.F |
124 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
89 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
407 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
410 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
493 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
623 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
626 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
705 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
708 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
83 |
MOM_U_DEL2U |
& recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
98 |
MOM_U_DEL2U |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
82 |
MOM_V_DEL2V |
& recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
97 |
MOM_V_DEL2V |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
346 |
MOM_VECINV |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
411 |
MOM_VECINV |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
127 |
MOM_VI_U_VERTSHEAR |
& * recip_drF(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
132 |
MOM_VI_U_VERTSHEAR |
& * recip_drF(K) |
|
./model/src/calc_gw.F |
383 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
401 |
CALC_GW |
& *recip_drF(k-1)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
127 |
MOM_VI_V_VERTSHEAR |
& * recip_drF(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
132 |
MOM_VI_V_VERTSHEAR |
& * recip_drF(K) |
|
./pkg/monitor/mon_surfcor.F |
107 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_vort3.F |
124 |
MON_VORT3 |
& )*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
260 |
MON_VORT3 |
hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
278 |
MON_VORT3 |
hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k) |
|
./pkg/monitor/monitor.F |
153 |
MONITOR |
& recip_drF, dT, myThid ) |
|
./pkg/monitor/monitor_ad.F |
157 |
ADMONITOR |
& recip_drF,dT,myThid ) |
|
./pkg/monitor/monitor_g.F |
158 |
G_MONITOR |
& recip_drF,dT,myThid ) |
|
./model/src/calc_phi_hyd.F |
434 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*recip_drF(k)*2. _d 0 |
|
./model/src/calc_surf_dr.F |
115 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskC(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
148 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskW(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
164 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskS(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
81 |
CALC_SURF_DR |
& )*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
46 |
OBCS_APPLY_SURF_DR |
hFactmp = OBNhFac0(i,bi,bj) + OBNeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
55 |
OBCS_APPLY_SURF_DR |
hFactmp = OBShFac0(i,bi,bj) + OBSeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
68 |
OBCS_APPLY_SURF_DR |
hFactmp = OBEhFac0(j,bi,bj) + OBEeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
77 |
OBCS_APPLY_SURF_DR |
hFactmp = OBWhFac0(j,bi,bj) + OBWeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/opps/opps_calc.F |
1031 |
NLOPPS |
* (mda(k)*(tda(k)-taa(k)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
1034 |
NLOPPS |
* (mda(k)*(sda(k)-saa(k)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
1045 |
NLOPPS |
* *dt*recip_drF(k2) |
|
./pkg/opps/opps_calc.F |
1051 |
NLOPPS |
* *dt*recip_drF(k2) |
|
./pkg/opps/opps_calc.F |
1058 |
NLOPPS |
* dt*recip_drF(kmx+1) |
|
./pkg/opps/opps_calc.F |
1062 |
NLOPPS |
* dt*recip_drF(kmx+1) |
|
./pkg/opps/opps_calc.F |
377 |
OPPS_CALC |
& (mda(k)*(Pda(k,ktr)-Paa(k,ktr)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
395 |
OPPS_CALC |
& *dt*recip_drF(k2) |
|
./pkg/opps/opps_calc.F |
405 |
OPPS_CALC |
& mda(kmx)*(Pda(kmx,ktr)-Paa(kmx,ktr))*dt*recip_drF(kmx+1) |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
57 |
PTRACERS_DWNSLP_APPLY |
I recip_drF, recip_hFacC, recip_rA, |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
65 |
PTRACERS_DWNSLP_APPLY |
I recip_drF, recip_hFacC, recip_rA, |
|
./pkg/ptracers/ptracers_forcing.F |
77 |
PTRACERS_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
65 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
169 |
SEAICE_GROWTH_IF |
& recip_Cp*recip_rhoConst * recip_drF(1) |
|
./pkg/seaice/seaice_growth_if.F |
171 |
SEAICE_GROWTH_IF |
ENERGY_TO_DELTA_TEMP = recip_Cp*recip_rhoConst*recip_drF(1) |
|
./model/src/external_forcing.F |
186 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
300 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
311 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
325 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
& +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
374 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
484 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
495 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
509 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
519 |
EXTERNAL_FORCING_S |
& +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
174 |
SHELFICE_FORCING_S |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
180 |
SHELFICE_FORCING_S |
& *recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
82 |
SHELFICE_FORCING_T |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
88 |
SHELFICE_FORCING_T |
& *recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing_surf.F |
138 |
EXTERNAL_FORCING_SURF |
& *dBHybSigF(ks)*recip_drF(ks) |
|
./model/src/external_forcing_surf.F |
143 |
EXTERNAL_FORCING_SURF |
& *dBHybSigF(ks)*recip_drF(ks) |
|
./pkg/shelfice/shelfice_u_drag.F |
77 |
SHELFICE_U_DRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
84 |
SHELFICE_U_DRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_update_masks.F |
10 |
SHELFICE_UPDATE_MASKS |
I rF, recip_drF, |
|
./pkg/shelfice/shelfice_update_masks.F |
38 |
SHELFICE_UPDATE_MASKS |
_RS recip_drF (1:Nr) |
|
./pkg/shelfice/shelfice_update_masks.F |
87 |
SHELFICE_UPDATE_MASKS |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./pkg/shelfice/shelfice_update_masks.F |
91 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K) |
|
./pkg/shelfice/shelfice_v_drag.F |
77 |
SHELFICE_V_DRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
84 |
SHELFICE_V_DRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_correl3d.F |
88 |
SMOOTH_CORREL3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
154 |
SMOOTH_FILTERVAR3D |
& *(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
225 |
SMOOTH_FILTERVAR3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_impldiff.F |
81 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
94 |
SMOOTH_IMPLDIFF |
c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_rhs.F |
347 |
SMOOTH_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
358 |
SMOOTH_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
58 |
FREESURF_RESCALE_G |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/impldiff.F |
138 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
156 |
IMPLDIFF |
c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
137 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
147 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
210 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
134 |
INI_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/ini_masks_etc.F |
138 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
164 |
INI_MASKS_ETC |
I rF, recip_drF, |
|
./model/src/ini_masks_etc.F |
94 |
INI_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/ini_masks_etc.F |
98 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
107 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
221 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
232 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_vertical_grid.F |
165 |
INI_VERTICAL_GRID |
recip_drF(k) = 1. _d 0/drF(k) |
|
./verification/rotating_tank/code/external_forcing.F |
180 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
326 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
351 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
414 |
EXTERNAL_FORCING_T |
& -_recip_hFacC(i,j,kLev,bi,bj)*recip_drF(kLev) |
|
./verification/rotating_tank/code/external_forcing.F |
510 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(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) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
314 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
339 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
431 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
84 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
81 |
PTRACERS_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
179 |
TAUEDDY_EXTERNAL_FORCING_V |
& *recip_drF(klev)*_recip_hFacS(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
89 |
TAUEDDY_EXTERNAL_FORCING_U |
& *recip_drF(klev)*_recip_hFacW(i,j,klev,bi,bj) |
|
./model/src/thermodynamics.F |
744 |
THERMODYNAMICS |
I recip_drF, recip_hFacC, recip_rA, |
|
./model/src/thermodynamics.F |
752 |
THERMODYNAMICS |
I recip_drF, recip_hFacC, recip_rA, |
|
./model/src/thermodynamics.F |
763 |
THERMODYNAMICS |
I recip_drF, recip_hFacC, recip_rA, |
|
./model/src/thermodynamics.F |
771 |
THERMODYNAMICS |
I recip_drF, recip_hFacC, recip_rA, |
|
./model/src/timestep.F |
311 |
TIMESTEP |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/timestep.F |
316 |
TIMESTEP |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/tracers_iigw_correction.F |
101 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
85 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
68 |
UPDATE_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/update_masks_etc.F |
73 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
75 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_sigma.F |
117 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./model/src/update_sigma.F |
143 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./model/src/update_sigma.F |
169 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
95 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_tendency_apply.F |
109 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
218 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
235 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
92 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/atm2d/relax_add.F |
127 |
RELAX_ADD |
& (recip_Cp*recip_rhoNil*recip_drF(1))*nearIce |
|
./pkg/atm2d/relax_add.F |
139 |
RELAX_ADD |
& (convertFW2Salt *recip_drF(1))*nearIce |
|
./pkg/cfc/cfc11_surfforcing.F |
95 |
CFC11_SURFFORCING |
& maskC(i,j,1,bi,bj)*FluxCFC11(i,j)*recip_drF(1) |
|
./pkg/cfc/cfc12_surfforcing.F |
94 |
CFC12_SURFFORCING |
& maskC(i,j,1,bi,bj)*FluxCFC12(i,j)*recip_drF(1) |
|
./pkg/dic/alk_surfforcing.F |
62 |
ALK_SURFFORCING |
& recip_drF(1)/gsm_S |
|
./pkg/dic/car_flux.F |
114 |
CAR_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
130 |
CAR_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
254 |
DIC_BIOTIC_FORCING |
& InputFe(i,j,bi,bj)*recip_drF(1) |
|
./pkg/dic/dic_surfforcing.F |
212 |
DIC_SURFFORCING |
GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
125 |
O2_SURFFORCING |
& *recip_drF(K) * recip_hFacC(i,j,K,bi,bj) |
|
./pkg/dic/phos_flux.F |
120 |
PHOS_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
137 |
PHOS_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
11 |
DWNSLP_APPLY |
I recip_drF, recip_hFac_arg, recip_rA_arg, |
|
./pkg/down_slope/dwnslp_apply.F |
149 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
159 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijs,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
179 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
184 |
DWNSLP_APPLY |
& *recip_drF(kshelf)*recip_hFac_arg(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
54 |
DWNSLP_APPLY |
_RS recip_drF(Nr) |
|
./model/inc/GRID.h |
425 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
482 |
NO PROCEDURE |
_RS recip_drF (Nr) |