| File |
Line number |
Procedure |
Code |
|
./model/inc/HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/layers/layers_calc.F |
234 |
LAYERS_CALC |
& + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
252 |
LAYERS_CALC |
& + dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/longstep/longstep_average.F |
127 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D_FAC(LS_vVelCount, LS_vVel, hFacS, |
|
./pkg/longstep/longstep_average.F |
90 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_FAC(LS_vVelCount, LS_vVel, vVel, hFacS, |
|
./pkg/mom_common/mom_calc_hdiv.F |
55 |
MOM_CALC_HDIV |
& +( vFld( i ,j+1)*dxg( i ,j+1,bi,bj)*hFacS( i ,j+1,K,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
56 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxg( i , j ,bi,bj)*hFacS( i , j ,K,bi,bj) ) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
100 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/monitor/monitor.F |
113 |
MONITOR |
& hFacS, maskInS, rAs, thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
116 |
ADMONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
117 |
G_MONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
102 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBNhFac0(i,bi,bj)=hFacS(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBShFac0(i,bi,bj)=hFacS(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
119 |
PTRACERS_DIAGNOSTICS_STATE |
& LS_vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
127 |
PTRACERS_DIAGNOSTICS_STATE |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./pkg/timeave/timeave_statvars.F |
148 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_1VFC(hVtave, vVel, hFacS, Nr, |
|
./pkg/timeave/timeave_statvars.F |
156 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VTtave, theta, vVel, hFacS, Nr, 2, |
|
./pkg/timeave/timeave_statvars.F |
160 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VStave, salt, vVel, hFacS, Nr, 2, |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
77 |
ZONAL_FILT_APPLY_UV |
I hFacS(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/ini_hfac.F |
44 |
INI_HFAC |
hFacS(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
244 |
INI_MASKS_ETC |
hFacS(i,1-OLy,k,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
248 |
INI_MASKS_ETC |
hFacS(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 |
296 |
INI_MASKS_ETC |
IF (dxG(i,j,bi,bj).EQ.0.) hFacS(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
312 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj).NE.0.) kSurfS(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
342 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacS, 'hFacS' , Nr, 1, myThid ) |
|
./model/src/ini_masks_etc.F |
365 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
366 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
233 |
INI_SIGMA_HFAC |
hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
145 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
380 |
EXTERNAL_FORCING_T |
hN = hFacS(i ,j+1,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
381 |
EXTERNAL_FORCING_T |
hS = hFacS(i ,j ,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./model/src/update_masks_etc.F |
224 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
227 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=maskS(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 |
271 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacS.',suff,hFacS,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
280 |
UPDATE_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacS,'hFacS (update_masks_etc)', |
|
./model/src/update_masks_etc.F |
312 |
UPDATE_MASKS_ETC |
IF (hFacS(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
314 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 1. _d 0 / hFacS(I,J,K,bi,bj) |
|
./model/src/update_r_star.F |
94 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
166 |
UPDATE_SIGMA |
hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
113 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/write_grid.F |
100 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS, 0,myThid) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
67 |
ATM_STORE_TAUY |
IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
86 |
ATM_STORE_TAUY |
IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
206 |
AIM_TENDENCY_APPLY_V |
& *vVel(i,j,kLev,bi,bj)*hFacS(i,j,kLev,bi,bj)*drF(kLev) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
308 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
519 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,K,bi,bj)*hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
555 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
606 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
168 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacS(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
185 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
186 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS(i-1,j, kLev,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
140 |
DIAGSTATS_LOCAL |
I hFacS(1-Olx,1-Oly,k,bi,bj), rAs(1-Olx,1-Oly,bi,bj), |
|
./pkg/down_slope/dwnslp_init_fixed.F |
246 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
268 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./model/inc/GRID.h |
416 |
NO PROCEDURE |
& hFacC, hFacW, hFacS, |
|
./model/inc/GRID.h |
447 |
NO PROCEDURE |
_RS hFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |