| File |
Line number |
Procedure |
Code |
|
./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) |
|
./pkg/layers/layers_calc.F |
163 |
LAYERS_CALC |
& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
181 |
LAYERS_CALC |
& + dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
246 |
LAYERS_CALC |
& * 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 |
53 |
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 |
54 |
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 |
111 |
MONITOR |
& hFacW, maskInW, rAw, thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
114 |
ADMONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
115 |
G_MONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
120 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBEhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
126 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBWhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./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) * |
|
./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_hfac.F |
45 |
INI_HFAC |
hFacW(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
237 |
INI_MASKS_ETC |
hFacW(1-OLx,j,k,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
239 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj)= |
|
./model/src/ini_masks_etc.F |
283 |
INI_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
|
./model/src/ini_masks_etc.F |
295 |
INI_MASKS_ETC |
IF (dyG(i,j,bi,bj).EQ.0.) hFacW(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
311 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.0.) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
341 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid ) |
|
./model/src/ini_masks_etc.F |
358 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
359 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(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/hs94.1x64x5/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
378 |
EXTERNAL_FORCING_T |
hW = hFacW(i ,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
379 |
EXTERNAL_FORCING_T |
hE = hFacW(i+1,j ,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./model/src/update_masks_etc.F |
213 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
216 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
252 |
UPDATE_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
|
./model/src/update_masks_etc.F |
270 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
278 |
UPDATE_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW,'hFacW (update_masks_etc)', |
|
./model/src/update_masks_etc.F |
304 |
UPDATE_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_r_star.F |
92 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
140 |
UPDATE_SIGMA |
hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
104 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/write_grid.F |
99 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW, 0,myThid) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
67 |
ATM_STORE_TAUX |
IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_taux.F |
86 |
ATM_STORE_TAUX |
IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
80 |
AIM_TENDENCY_APPLY_U |
& *uVel(i,j,kLev,bi,bj)*hFacW(i,j,kLev,bi,bj)*drF(kLev) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
292 |
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 |
503 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,K,bi,bj)*hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
538 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
589 |
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 |
128 |
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 |
242 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
263 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/ebm/ebm_forcing_surf.F |
68 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacW(i,j,kSurface,bi,bj) |
|
./model/inc/GRID.h |
416 |
NO PROCEDURE |
& hFacC, hFacW, hFacS, |
|
./model/inc/GRID.h |
446 |
NO PROCEDURE |
_RS hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |