| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_u_drag.F |
74 |
SHELFICE_U_DRAG |
maskUp=_maskW(i,j,kUp,bi,bj) |
|
./pkg/pp81/pp81_calc_visc.F |
45 |
PP81_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
|
./pkg/gmredi/gmredi_rtransport.F |
86 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
89 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
92 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
95 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
348 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
351 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
354 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
102 |
MOM_U_DEL2U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
84 |
MOM_U_DEL2U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
808 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
809 |
MOM_FLUXFORM |
guDiss(i,j) = guDiss(i,j) *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
55 |
MOM_U_ADV_VU |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
56 |
MOM_U_ADV_VU |
& *_maskW(i,j-1,k,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
71 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*eddyTauX(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
72 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*eddyTauX(i,j,kp1,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
122 |
CD_CODE_SCHEME |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
147 |
CD_CODE_SCHEME |
& ) )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
168 |
CD_CODE_SCHEME |
& )*_maskW(i,j,k,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
91 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_xy/code/ini_vel.F |
67 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
66 |
GRAD_SIGMA |
sigmaX(i,j,k)=_maskW(i,j,k,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
113 |
EXTERNAL_FORCING_U |
& *_maskW(i,j,kLev,bi,bj) |
|
./model/src/ini_vel.F |
82 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
76 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
77 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
256 |
IMPLDIFF |
& * _maskW(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
257 |
IMPLDIFF |
& * _maskW(i,j,k-1,bi,bj) |
|
./model/src/timestep.F |
326 |
TIMESTEP |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc_visc.F |
43 |
GGL90_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
41 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
|
./pkg/mom_common/mom_u_implicit_r.F |
218 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
219 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
65 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
66 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
70 |
MOM_U_BOTTOMDRAG |
maskDown=_maskW(i,j,kDown,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
77 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
88 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
81 |
OBCS_APPLY_W |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
91 |
OBCS_APPLY_W |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
117 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
151 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
185 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
83 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_apply_tloc.F |
61 |
OBCS_APPLY_TLOC |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
71 |
OBCS_APPLY_TLOC |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
66 |
OBCS_APPLY_TS |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
79 |
OBCS_APPLY_TS |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
39 |
OBCS_APPLY_UV |
& *_maskW(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
52 |
OBCS_APPLY_UV |
& *_maskW(I,OB_Js(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
66 |
OBCS_APPLY_UV |
& *_maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
70 |
OBCS_APPLY_UV |
& *_maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
79 |
OBCS_APPLY_UV |
& *_maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
83 |
OBCS_APPLY_UV |
& *_maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
61 |
OBCS_APPLY_SLOC |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
71 |
OBCS_APPLY_SLOC |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
235 |
OBCS_CALC |
& *_maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
269 |
OBCS_CALC |
& *_maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
140 |
GRDCHK_GET_POSITION |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
143 |
GRDCHK_GET_POSITION |
wetlocal = _maskW(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
156 |
GRDCHK_LOC |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
52 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
67 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
34 |
MOM_VI_U_GRAD_KE |
& *_maskW(i,j,k,BI,BJ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
178 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
103 |
MOM_VI_U_CORIOLIS |
& +vort3u*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
696 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/my82/my82_calc_visc.F |
43 |
MY82_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
87 |
SHAP_FILT_TRACER_S1 |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
89 |
SHAP_FILT_TRACER_S1 |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
101 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
142 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpScal*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
183 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
196 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
204 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
217 |
SHAP_FILT_UV_S1 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
218 |
SHAP_FILT_UV_S1 |
& *_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
219 |
SHAP_FILT_UV_S1 |
maskZp=_maskW(i+1,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
220 |
SHAP_FILT_UV_S1 |
& *_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
71 |
SHAP_FILT_UV_S1 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
128 |
SHAP_FILT_TRACER_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
50 |
SHAP_FILT_TRACEROLD |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
52 |
SHAP_FILT_TRACEROLD |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
137 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdU(i,j)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
144 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
145 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
158 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
159 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
167 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
168 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
70 |
SHAP_FILT_UV_S2C |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
167 |
SHAP_FILT_UV_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
176 |
SHAP_FILT_UV_S2 |
& *rAw(i,j,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
185 |
SHAP_FILT_UV_S2 |
& *Shap_uvLength*Shap_uvLength*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
82 |
SHAP_FILT_UV_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
86 |
SHAP_FILT_TRACER_S4 |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
88 |
SHAP_FILT_TRACER_S4 |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
100 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
180 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
193 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
203 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
216 |
SHAP_FILT_UV_S4 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
217 |
SHAP_FILT_UV_S4 |
& *_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
218 |
SHAP_FILT_UV_S4 |
maskZp=_maskW(i+1,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
219 |
SHAP_FILT_UV_S4 |
& *_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
70 |
SHAP_FILT_UV_S4 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
38 |
SHAP_FILT_U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
51 |
SHAP_FILT_U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
75 |
SHAP_FILT_U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
92 |
SHAP_FILT_U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
38 |
SHAP_FILT_V |
maskZ(i,j) = _maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
39 |
SHAP_FILT_V |
& *_maskW(i, j ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
184 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
217 |
SEAICE_LSR |
& * _recip_dxC(I ,J,bi,bj) * _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
220 |
SEAICE_LSR |
& * _recip_dxC(I ,J,bi,bj) * _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
233 |
SEAICE_LSR |
BU(I,J,bi,bj)=(ONE - _maskW(I,J,1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
238 |
SEAICE_LSR |
& )* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
349 |
SEAICE_LSR |
AA3=AA2*uIce(I-1,J,1,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
354 |
SEAICE_LSR |
AA3=AA1*uIce(I+1,J,1,bi,bj) * _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
361 |
SEAICE_LSR |
URT(I)=URT(I)* _maskW(I,J,1,bi,bj) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
396 |
SEAICE_LSR |
& * _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
663 |
SEAICE_LSR |
uIce(I,J,1,bi,bj)=uIce(I,J,1,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
173 |
SEAICE_OCEAN_STRESS |
FX = _maskW(I,J,1,bi,bj) * ( FX - _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
290 |
SEAICE_EVP |
uIce(I,J,1,bi,bj)=uIceC(I,J,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
176 |
SEAICE_ADVDIFF |
xA(i,j) = _dyG(i,j,bi,bj)*_maskW(i,j,k,bi,bj) |