| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
& recip_hFacC,recip_hFacW,recip_hFacS, |
|
./model/inc/GRID.h |
458 |
NO PROCEDURE |
_RS recip_hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/RECIP_HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
564 |
GGL90_CALC |
& *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
584 |
GGL90_CALC |
& *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
796 |
GGL90_CALC |
& *recip_drF(kSurf)*recip_hFacC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
305 |
GGL90_IDEMIX |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
146 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
157 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
160 |
LONGSTEP_THERMODYNAMICS |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
173 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
111 |
MON_CALC_ADVCFL_TILE |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
88 |
MON_CALC_ADVCFL_TILE |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/monitor.F |
165 |
MONITOR |
CALL MON_ADVCFLW2('_W_hf', wVel, recip_hFacC, |
|
./pkg/monitor/monitor_g.F |
159 |
G_MONITOR |
CALL MON_ADVCFLW2('_g_W_hf',g_wVel,recip_hFacC, |
|
./model/src/do_oceanic_phys.F |
951 |
DO_OCEANIC_PHYS |
I 1, bi, bj, recip_hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
955 |
DO_OCEANIC_PHYS |
I 2, bi, bj, recip_hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/ptracers/ptracers_apply_forcing.F |
90 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
99 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./model/src/forcing_surf_relax.F |
137 |
FORCING_SURF_RELAX |
& *recip_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
142 |
FORCING_SURF_RELAX |
& *recip_hFacC(i,j,ks,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
59 |
FREESURF_RESCALE_G |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
193 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
200 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
294 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
297 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
325 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
330 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/smooth/smooth_diff3d.F |
167 |
SMOOTH_DIFF3D |
I recip_hFacC, |
|
./model/src/ini_masks_etc.F |
481 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
484 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./verification/tidal_basin_2d/code/external_forcing.F |
254 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
279 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
352 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
84 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
207 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
218 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
221 |
THERMODYNAMICS |
& *recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
234 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
299 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
302 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 0. |
|
./model/src/update_r_star.F |
102 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
110 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
67 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
75 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
121 |
UPDATE_SIGMA |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_surf_dr.F |
130 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
132 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/update_surf_dr.F |
60 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
96 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1C(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
153 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
156 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
170 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
172 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
184 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
186 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
102 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
237 |
BLING_AIRSEAFLUX |
SGDIC(i,j)= recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
311 |
BLING_AIRSEAFLUX |
& *recip_drF(1) * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_main.F |
236 |
BLING_MAIN |
& * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_main.F |
239 |
BLING_MAIN |
& * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
219 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + N_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
222 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + P_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
225 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + CaCO3_uptake(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
235 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
359 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_forcing.F |
165 |
CFC11_FORCING |
& + fluxCFC11(i,j)*recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc12_forcing.F |
166 |
CFC12_FORCING |
& + fluxCFC12(i,j)*recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
316 |
DIC_BIOTIC_FORCING |
& *recip_hFacC(i,j,1,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
322 |
DIC_BIOTIC_FORCING |
& *recip_drF(kBottom)*recip_hFacC(i,j,kBottom,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
252 |
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) |