| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
417 |
NO PROCEDURE |
& hFacC, hFacW, hFacS, |
|
./model/inc/GRID.h |
447 |
NO PROCEDURE |
_RS hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./model/src/add_walls2masks.F |
114 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
87 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./pkg/layers/layers_fluxcalc.F |
156 |
LAYERS_FLUXCALC |
IF (hFacW(i,j,kp1,bi,bj) .EQ. 0.) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
196 |
LAYERS_FLUXCALC |
& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
217 |
LAYERS_FLUXCALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
223 |
LAYERS_FLUXCALC |
& + dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/longstep/longstep_average.F |
125 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D_FAC(LS_uVelCount, LS_uVel, hFacW, |
|
./pkg/longstep/longstep_average.F |
88 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_FAC(LS_uVelCount, LS_uVel, uVel, hFacW, |
|
./pkg/mom_common/mom_calc_hdiv.F |
56 |
MOM_CALC_HDIV |
& ( ( uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
57 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
97 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/monitor/monitor.F |
112 |
MONITOR |
& hFacW, maskInW, rAw, thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
130 |
ADMONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
158 |
ADMONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
117 |
G_MONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
101 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
150 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
112 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
158 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
325 |
OBCS_DIAG_BALANCE |
& + flowE*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
344 |
OBCS_DIAG_BALANCE |
& + flowW*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_monitor.F |
110 |
OBCS_MONITOR |
I Nr, Nr, 1, uVel, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
132 |
OBCS_MONITOR |
I Nr, Nr, 0, theta, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
154 |
OBCS_MONITOR |
I Nr, Nr, 0, salt, hFacW, dyG, drF, maskInC, |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
86 |
PTRACERS_DIAGNOSTICS_STATE |
& LS_uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
94 |
PTRACERS_DIAGNOSTICS_STATE |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./model/src/ini_masks_etc.F |
209 |
INI_MASKS_ETC |
hFacW(1-OLx,j,k,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
211 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj)= |
|
./model/src/ini_masks_etc.F |
259 |
INI_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
|
./model/src/ini_masks_etc.F |
276 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.0.) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
306 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 0, myThid ) |
|
./model/src/ini_masks_etc.F |
323 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
324 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_statvars.F |
146 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_1VFC(hUtave, uVel, hFacW, Nr, |
|
./pkg/timeave/timeave_statvars.F |
154 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UTtave, theta, uVel, hFacW, Nr, 1, |
|
./pkg/timeave/timeave_statvars.F |
158 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UStave, salt, uVel, hFacW, Nr, 1, |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
51 |
ZONAL_FILT_APPLY_UV |
uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
56 |
ZONAL_FILT_APPLY_UV |
I hFacW(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
70 |
ZONAL_FILT_APPLY_UV |
I hFacW(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/ini_nlfs_vars.F |
118 |
INI_NLFS_VARS |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
222 |
INI_SIGMA_HFAC |
hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
709 |
APPLY_FORCING_T |
hW = hFacW(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
710 |
APPLY_FORCING_T |
hE = hFacW(i+1,j ,k,bi,bj) |
|
./model/src/update_masks_etc.F |
221 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
223 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
255 |
UPDATE_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
|
./model/src/update_masks_etc.F |
271 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
279 |
UPDATE_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW,'hFacW (update_masks_etc)', |
|
./model/src/update_masks_etc.F |
305 |
UPDATE_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_r_star.F |
60 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
95 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
143 |
UPDATE_SIGMA |
hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
108 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfNm1W(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
72 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/write_grid.F |
110 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW, 0,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
102 |
AIM_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
118 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
84 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
77 |
ATM_PHYS_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
112 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
245 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
298 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
506 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
541 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
592 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
152 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacW(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
183 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
184 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i,j-1,kLev,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
136 |
DIAGSTATS_LOCAL |
I hFacW(1-OLx,1-OLy,k,bi,bj), rAw(1-OLx,1-OLy,bi,bj), |
|
./pkg/down_slope/dwnslp_init_fixed.F |
243 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
264 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/ebm/ebm_wind_perturb.F |
135 |
EBM_WIND_PERTURB |
& *drF(1)*hFacW(i,j,1,bi,bj) |