| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
200 |
ECCO_PHYS |
& *maskInS(i,j,bi,bj) |
|
./model/inc/GRID.h |
423 |
NO PROCEDURE |
& maskInC, maskInW, maskInS, |
|
./model/inc/GRID.h |
475 |
NO PROCEDURE |
_RS maskInS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_monitor.F |
116 |
EXF_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
238 |
EXF_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
117 |
ADEXF_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
307 |
GAD_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
367 |
GAD_CALC_RHS |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_y.F |
73 |
GAD_GRAD_Y |
& *maskInS(i,j,bi,bj) |
|
./model/src/calc_gw.F |
345 |
CALC_GW |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
294 |
MOM_CALC_VISC |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
94 |
MOM_V_DEL2V |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
124 |
MOM_VI_DEL2UV |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
145 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
146 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
186 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
187 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
252 |
MON_KE |
& *maskInS(i,j,bi,bj) |
|
./pkg/monitor/monitor.F |
114 |
MONITOR |
& hFacS, maskInS, rAs, thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
148 |
MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
132 |
ADMONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
160 |
ADMONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
198 |
ADMONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
217 |
ADMONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
119 |
G_MONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
150 |
G_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
200 |
OBCS_BALANCE_FLOW |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
249 |
OBCS_BALANCE_FLOW |
& *maskInS(i,1+jB,bi,bj) |
|
./model/src/correction_step.F |
152 |
CORRECTION_STEP |
& *maskInS(i,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
143 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
166 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
256 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
277 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
151 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = maskInS(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
304 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
323 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
337 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
356 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/seaice/diffus.F |
136 |
DIFFUS |
& *maskInS(i,j+1,bi,bj) |
|
./pkg/seaice/diffus.F |
141 |
DIFFUS |
& *maskInS(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
84 |
DIFFUS |
& * maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
259 |
SEAICE_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
115 |
SEAICE_BOTTOMDRAG_COEFFS |
& + ( vIce(i,j ,bi,bj)*maskInS(i, j ,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
116 |
SEAICE_BOTTOMDRAG_COEFFS |
& + vIce(i,j+1,bi,bj)*maskInS(i,j+1,bi,bj) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
1110 |
SEAICE_RESIDUAL |
& *rAs(i,j,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
257 |
SEAICE_MOM_ADVECTION |
gV(i,j) = gV(i,j)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
112 |
SEAICE_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
121 |
ADSEAICE_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
92 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInS(i, j ,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
94 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInS(i,j+1,bi,bj) )**2 ) |
|
./model/src/ini_masks_etc.F |
445 |
INI_MASKS_ETC |
maskInS(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
446 |
INI_MASKS_ETC |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1. |
|
./pkg/thsice/thsice_advection.F |
233 |
THSICE_ADVECTION |
& * maskInS(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
144 |
INI_SIGMA_HFAC |
maskInS(i,j,bi,bj)= 0. |
|
./model/src/ini_sigma_hfac.F |
171 |
INI_SIGMA_HFAC |
maskInS(i,j,bi,bj)= maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
186 |
INI_SIGMA_HFAC |
IF ( maskInS(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 |
206 |
INI_SIGMA_HFAC |
IF (dxG(i,j,bi,bj).EQ.0.) maskInS(i,j,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
233 |
INI_SIGMA_HFAC |
hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
243 |
INI_SIGMA_HFAC |
IF ( maskInS(i,j,bi,bj).NE.0. ) kSurfS(i,j,bi,bj) = 1 |
|
./model/src/write_grid.F |
120 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'maskInS',' ', maskInS, -1, myThid ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
118 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
130 |
DIAGNOSTICS_CALC_PHIVEL |
& *qtmp2(i,j,ks,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
277 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
147 |
DIAGSTATS_LOCAL |
I maskInS(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
213 |
DIAGSTATS_LOCAL |
I maskInS(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
214 |
DIAGSTATS_LOCAL |
I maskInS(1-OLx,1-OLy,bi,bj),rAs(1-OLx,1-OLy,bi,bj), |