| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_forcing_surf.F |
70 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacW(i,j,kSurface,bi,bj) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
60 |
PTRACERS_DIAGNOSTICS_FILL |
& uVel(i,j,K,bi,bj)*hFacW(i,j,K,bi,bj) * |
|
./pkg/diagnostics/diagstats_local.F |
122 |
DIAGSTATS_LOCAL |
I hFacW(1-Olx,1-Oly,k,bi,bj), rAw(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_state.F |
489 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,K,bi,bj)*hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
524 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
575 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,K,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
36 |
ZONAL_FILT_APPLY_UV |
& uFld, hFacW, 1-1, sNy+1, k, k, bi, bj, 1, myThid) |
|
./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/external_forcing.F |
379 |
EXTERNAL_FORCING_T |
hW = hFacW(i ,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
380 |
EXTERNAL_FORCING_T |
hE = hFacW(i+1,j ,kLev,bi,bj) |
|
./model/src/ini_masks_etc.F |
231 |
INI_MASKS_ETC |
hFacW(I,J,K,bi,bj)= |
|
./model/src/ini_masks_etc.F |
244 |
INI_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
|
./model/src/ini_masks_etc.F |
253 |
INI_MASKS_ETC |
IF (DYG(I,J,bi,bj).EQ.0.) hFacW(I,J,K,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
274 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid ) |
|
./model/src/ini_masks_etc.F |
313 |
INI_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k |
|
./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 |
|
./model/src/write_grid.F |
96 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW, 0,myThid) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
217 |
INI_MASKS_ETC |
hFacW(I,J,K,bi,bj)= |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
230 |
INI_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
239 |
INI_MASKS_ETC |
IF (DYG(I,J,bi,bj).EQ.0.) hFacW(I,J,K,bi,bj)=0. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
254 |
INI_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW,0,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
259 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
298 |
INI_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
208 |
INI_MASKS_ETC |
hFacW(I,J,K,bi,bj)= |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
221 |
INI_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
230 |
INI_MASKS_ETC |
IF (DYG(I,J,bi,bj).EQ.0.) hFacW(I,J,K,bi,bj)=0. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
245 |
INI_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW,0,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
250 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
289 |
INI_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k |
|
./model/src/update_surf_dr.F |
77 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,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 |
224 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
227 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
263 |
UPDATE_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
|
./model/src/update_masks_etc.F |
283 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
289 |
UPDATE_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid ) |
|
./model/src/update_masks_etc.F |
312 |
UPDATE_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_r_star.F |
65 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/ini_hfac.F |
45 |
INI_HFAC |
hFacW(I,J,K,bi,bj) = 0. _d 0 |
|
./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/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/timeave/timeave_statvars.F |
137 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_1VFC(hUtave, uVel, hFacW, Nr, |
|
./pkg/timeave/timeave_statvars.F |
145 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UTtave, theta, uVel, hFacW, Nr, 1, |
|
./pkg/timeave/timeave_statvars.F |
149 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UStave, salt, uVel, hFacW, Nr, 1, |
|
./pkg/monitor/monitor.F |
111 |
MONITOR |
& maskW,hFacW,rAw,drF,myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBEhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
114 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBWhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./model/inc/GRID.h |
383 |
NO PROCEDURE |
& R_low,Ro_surf,hFacC,hFacW,hFacS, |
|
./model/inc/GRID.h |
420 |
NO PROCEDURE |
_RS hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
98 |
MOM_VI_U_CORIOLIS |
& vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) |
|
./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) |