| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
196 |
ECCO_PHYS |
& *maskInW(i,j,bi,bj) |
|
./model/inc/GRID.h |
423 |
NO PROCEDURE |
& maskInC, maskInW, maskInS, |
|
./model/inc/GRID.h |
474 |
NO PROCEDURE |
_RS maskInW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_monitor.F |
114 |
EXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
234 |
EXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
115 |
ADEXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
306 |
GAD_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
227 |
GAD_CALC_RHS |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_x.F |
69 |
GAD_GRAD_X |
& *maskInW(i,j,bi,bj) |
|
./model/src/calc_gw.F |
320 |
CALC_GW |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
305 |
MOM_CALC_VISC |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
95 |
MOM_U_DEL2U |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
99 |
MOM_VI_DEL2UV |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
145 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
146 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
186 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
187 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/monitor/mon_ke.F |
213 |
MON_KE |
& *maskInW(i,j,bi,bj) |
|
./pkg/monitor/monitor.F |
112 |
MONITOR |
& hFacW, maskInW, rAw, thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
146 |
MONITOR |
& maskInW, maskInW, rAw, drF, 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_ad.F |
196 |
ADMONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
215 |
ADMONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
117 |
G_MONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
148 |
G_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
102 |
OBCS_BALANCE_FLOW |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
151 |
OBCS_BALANCE_FLOW |
& *maskInW(1+iB,j,bi,bj) |
|
./model/src/correction_step.F |
140 |
CORRECTION_STEP |
& *maskInW(i,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
121 |
OBCS_DIAG_BALANCE |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
215 |
OBCS_DIAG_BALANCE |
& *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
236 |
OBCS_DIAG_BALANCE |
& *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
98 |
OBCS_DIAG_BALANCE |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
148 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = maskInW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
299 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
318 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
342 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
361 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/seaice/diffus.F |
124 |
DIFFUS |
& *maskInW(i+1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
129 |
DIFFUS |
& *maskInW(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
74 |
DIFFUS |
& * maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
258 |
SEAICE_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
113 |
SEAICE_BOTTOMDRAG_COEFFS |
& ( uIce(i ,j,bi,bj)*maskInW( i ,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
114 |
SEAICE_BOTTOMDRAG_COEFFS |
& + uIce(i+1,J,bi,bj)*maskInW(i+1,j,bi,bj) )**2 |
|
./pkg/seaice/seaice_lsr.F |
1105 |
SEAICE_RESIDUAL |
& *rAw(i,j,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
256 |
SEAICE_MOM_ADVECTION |
gU(i,j) = gU(i,j)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
105 |
SEAICE_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
114 |
ADSEAICE_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
88 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInW( i ,j,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
90 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInW(i+1,j,bi,bj) )**2 |
|
./model/src/ini_masks_etc.F |
443 |
INI_MASKS_ETC |
maskInW(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
444 |
INI_MASKS_ETC |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1. |
|
./pkg/thsice/thsice_advection.F |
222 |
THSICE_ADVECTION |
& * maskInW(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
138 |
INI_SIGMA_HFAC |
maskInW(i,j,bi,bj)= 0. |
|
./model/src/ini_sigma_hfac.F |
148 |
INI_SIGMA_HFAC |
maskInW(i,j,bi,bj)= maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
163 |
INI_SIGMA_HFAC |
IF ( maskInW(i,j,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_sigma_hfac.F |
196 |
INI_SIGMA_HFAC |
CALL EXCH_UV_XY_RS( maskInW, maskInS, .FALSE., myThid ) |
|
./model/src/ini_sigma_hfac.F |
205 |
INI_SIGMA_HFAC |
IF (dyG(i,j,bi,bj).EQ.0.) maskInW(i,j,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
222 |
INI_SIGMA_HFAC |
hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
242 |
INI_SIGMA_HFAC |
IF ( maskInW(i,j,bi,bj).NE.0. ) kSurfW(i,j,bi,bj) = 1 |
|
./model/src/write_grid.F |
119 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'maskInW',' ', maskInW, -1, myThid ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
115 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
128 |
DIAGNOSTICS_CALC_PHIVEL |
& *qtmp1(i,j,ks,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
272 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
135 |
DIAGSTATS_LOCAL |
I maskInW(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
202 |
DIAGSTATS_LOCAL |
I maskInW(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
203 |
DIAGSTATS_LOCAL |
I maskInW(1-OLx,1-OLy,bi,bj),rAw(1-OLx,1-OLy,bi,bj), |