File |
Line number |
Procedure |
Code |
./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_advection.F |
310 |
GAD_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,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_calc_rhs.F |
369 |
GAD_CALC_RHS |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
./pkg/ggl90/ggl90_calc.F |
765 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * halfRL |
./pkg/ggl90/ggl90_calc_visc.F |
56 |
GGL90_CALC_VISC |
KappaRV(i,j,k) = KappaRV(i,j,k) + _maskS(i,j,k,bi,bj) * |
./pkg/gmredi/gmredi_calc_tensor.F |
897 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
899 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
902 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
118 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
121 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
124 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
./pkg/gmredi/gmredi_rtransport.F |
127 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k-1,bi,bj) |
./pkg/grdchk/grdchk_get_position.F |
150 |
GRDCHK_GET_POSITION |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
wetlocal = _maskS(i,j,k,bi,bj) |
./pkg/grdchk/grdchk_loc.F |
199 |
GRDCHK_LOC |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
./pkg/kl10/kl10_calc_visc.F |
53 |
KL10_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
./model/src/apply_forcing.F |
326 |
APPLY_FORCING_V |
& *_maskS(i,j,k,bi,bj) |
./pkg/kpp/kpp_calc_visc.F |
49 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) * |
./model/src/calc_grad_phi_fv.F |
104 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj) |
./model/src/calc_grad_phi_hyd.F |
258 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj) |
./pkg/mom_common/mom_v_botdrag_impl.F |
95 |
MOM_V_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
./pkg/mom_common/mom_v_bottomdrag.F |
91 |
MOM_V_BOTTOMDRAG |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
./pkg/mom_common/mom_v_implicit_r.F |
301 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k,bi,bj) |
./pkg/mom_common/mom_v_implicit_r.F |
302 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k-1,bi,bj) |
./pkg/mom_common/mom_v_rviscflux.F |
65 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k,bi,bj) |
./pkg/mom_common/mom_v_rviscflux.F |
66 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k-1,bi,bj) |
./pkg/mom_fluxform/mom_fluxform.F |
923 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
./pkg/mom_fluxform/mom_fluxform.F |
924 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) *_maskS(i,j,k,bi,bj) |
./pkg/mom_fluxform/mom_v_adv_uv.F |
53 |
MOM_V_ADV_UV |
& *( vFld(i,j)*_maskS(i-1,j,k,bi,bj) |
./pkg/mom_fluxform/mom_v_adv_uv.F |
54 |
MOM_V_ADV_UV |
& + vFld(i-1,j)*_maskS(i,j,k,bi,bj) ) |
./pkg/mom_fluxform/mom_v_adv_uv.F |
59 |
MOM_V_ADV_UV |
& *_maskS(i,j,k,bi,bj) |
./pkg/mom_fluxform/mom_v_adv_uv.F |
60 |
MOM_V_ADV_UV |
& *_maskS(i-1,j,k,bi,bj) |
./pkg/mom_fluxform/mom_v_adv_vv.F |
54 |
MOM_V_ADV_VV |
& *( vFld(i,j)*_maskS(i,j+1,k,bi,bj) |
./pkg/mom_fluxform/mom_v_adv_vv.F |
55 |
MOM_V_ADV_VV |
& + vFld(i,j+1)*_maskS(i,j,k,bi,bj) ) |
./pkg/mom_fluxform/mom_v_adv_wv.F |
85 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj) |
./pkg/mom_fluxform/mom_v_adv_wv.F |
86 |
MOM_V_ADV_WV |
& +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) ) |
./pkg/mom_fluxform/mom_v_del2v.F |
118 |
MOM_V_DEL2V |
& *_maskS(i,j,k,bi,bj) |
./pkg/mom_fluxform/mom_v_del2v.F |
92 |
MOM_V_DEL2V |
& )*_maskS(i,j,k,bi,bj) |
./pkg/mom_vecinv/mom_vecinv.F |
847 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
./pkg/mom_vecinv/mom_vi_coriolis.F |
100 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
./pkg/mom_vecinv/mom_vi_coriolis.F |
85 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
109 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
136 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
176 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
84 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
159 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
203 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
34 |
MOM_VI_V_GRAD_KE |
& *_maskS(i,j,k,bi,bj)*recip_deepFacC(k) |
./pkg/my82/my82_calc_visc.F |
50 |
MY82_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
./pkg/obcs/obcs_adjust_uvice.F |
108 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
./pkg/obcs/obcs_adjust_uvice.F |
114 |
OBCS_ADJUST_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
117 |
OBCS_ADJUST_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
122 |
OBCS_ADJUST_UVICE |
if ( _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) .NE. 0. .AND. |
./pkg/obcs/obcs_adjust_uvice.F |
123 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+3,K,bi,bj) .NE. 0. ) |
./pkg/obcs/obcs_adjust_uvice.F |
127 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+2,K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
154 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) * |
./pkg/obcs/obcs_adjust_uvice.F |
166 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
176 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
./pkg/obcs/obcs_adjust_uvice.F |
177 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
./pkg/obcs/obcs_adjust_uvice.F |
181 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
204 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
./pkg/obcs/obcs_adjust_uvice.F |
216 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Iw(J,bi,bj),J,K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
226 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Iw(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
./pkg/obcs/obcs_adjust_uvice.F |
227 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+2,J,K,bi,bj) .NE. 0. ) |
./pkg/obcs/obcs_adjust_uvice.F |
231 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
58 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) * |
./pkg/obcs/obcs_adjust_uvice.F |
64 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
67 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
./pkg/obcs/obcs_adjust_uvice.F |
72 |
OBCS_ADJUST_UVICE |
if ( _maskS(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
./pkg/obcs/obcs_adjust_uvice.F |
73 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
./pkg/obcs/obcs_adjust_uvice.F |
77 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
./pkg/obcs/obcs_apply_seaice.F |
136 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN |
./pkg/obcs/obcs_apply_seaice.F |
175 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN |
./pkg/obcs/obcs_apply_uv.F |
121 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
135 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
152 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
154 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
169 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
./pkg/obcs/obcs_apply_uv.F |
171 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
./pkg/obcs/obcs_calc.F |
353 |
OBCS_CALC |
& *_maskS(i,J_obc,k,bi,bj) |
./pkg/obcs/obcs_calc.F |
385 |
OBCS_CALC |
& *_maskS(i,J_obc+1,k,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
437 |
OBCS_CALC_STEVENS |
& * _maskS(I,J,K,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
452 |
OBCS_CALC_STEVENS |
& * _maskS(I,J,K,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
549 |
OBCS_CALC_STEVENS |
& * _maskS(I,J+1,K,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
564 |
OBCS_CALC_STEVENS |
& * _maskS(I,J+1,K,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
894 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * _maskS(I,J-1,K,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
904 |
OBCS_STEVENS_CALC_TRACER_NORTH |
OBNf(I,K,bi,bj) = _maskS(I,J,K,bi,bj) * ( |
./pkg/obcs/obcs_calc_stevens.F |
975 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * _maskS(I,J+2,K,bi,bj) |
./pkg/obcs/obcs_calc_stevens.F |
985 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
OBSf(I,K,bi,bj) = _maskS(I,J+1,K,bi,bj) * ( |
./model/src/correction_step.F |
125 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
./model/src/correction_step.F |
150 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
./pkg/obcs/obcs_save_uv_n.F |
74 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc,k,bi,bj) |
./pkg/obcs/obcs_save_uv_n.F |
88 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc+1,k,bi,bj) |
./pkg/obcs/obcs_sponge.F |
280 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
./pkg/obcs/obcs_sponge.F |
315 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
./pkg/obcs/obcs_sponge.F |
350 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
./pkg/obcs/obcs_sponge.F |
385 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
./pkg/pp81/pp81_calc_visc.F |
53 |
PP81_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
./pkg/seaice/seaice_advdiff.F |
129 |
SEAICE_ADVDIFF |
yA(i,j,bi,bj) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,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_advection.F |
262 |
SEAICE_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
./model/src/grad_sigma.F |
87 |
GRAD_SIGMA |
sigmaY(i,j,k)=_maskS(i,j,k,bi,bj) |
./pkg/seaice/seaice_calc_strainrates.F |
151 |
SEAICE_CALC_STRAINRATES |
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj) |
./pkg/seaice/seaice_calc_strainrates.F |
174 |
SEAICE_CALC_STRAINRATES |
hFacV = (_maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj))*third |
./pkg/seaice/seaice_calc_strainrates.F |
177 |
SEAICE_CALC_STRAINRATES |
hFacV = hFacV*( _maskS(i-2,j,k,bi,bj)*_maskS(i-1,j,k,bi,bj) |
./pkg/seaice/seaice_calc_strainrates.F |
178 |
SEAICE_CALC_STRAINRATES |
& + _maskS(i+1,j,k,bi,bj)*_maskS(i ,j,k,bi,bj) ) |
./pkg/seaice/seaice_calc_strainrates.F |
196 |
SEAICE_CALC_STRAINRATES |
& - vFld(i-2,j,bi,bj)*_maskS(i-1,j,k,bi,bj) |
./pkg/seaice/seaice_calc_strainrates.F |
197 |
SEAICE_CALC_STRAINRATES |
& - vFld(i+1,j,bi,bj)*_maskS(i ,j,k,bi,bj) ) * hFacV |
./model/src/impldiff.F |
373 |
IMPLDIFF |
& * _maskS(i,j,k,bi,bj) |
./model/src/impldiff.F |
374 |
IMPLDIFF |
& * _maskS(i,j,k-1,bi,bj) |
./pkg/seaice/seaice_freedrift.F |
180 |
SEAICE_FREEDRIFT |
vIce_fd(i,j,bi,bj)=vIce_fd(i,j,bi,bj)* _maskS(i,j,kSrf,bi,bj) |
./pkg/seaice/seaice_get_dynforcing.F |
133 |
SEAICE_GET_DYNFORCING |
& *_maskS(i,j,ks,bi,bj) |
./pkg/seaice/seaice_get_dynforcing.F |
225 |
SEAICE_GET_DYNFORCING |
& )*_maskS(i,j,ks,bi,bj) |
./pkg/seaice/seaice_get_dynforcing.F |
248 |
SEAICE_GET_DYNFORCING |
& )*_maskS(i,j,ks,bi,bj) |
./pkg/seaice/seaice_get_dynforcing.F |
270 |
SEAICE_GET_DYNFORCING |
& *_maskS(i,j,ks,bi,bj) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
140 |
SHAP_FILT_TRACER_S1 |
& *_maskS(i,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
142 |
SHAP_FILT_TRACER_S1 |
& *_maskS(i,j,k,bi,bj) ) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
158 |
SHAP_FILT_TRACER_S2 |
& *_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
138 |
SHAP_FILT_TRACER_S4 |
& *_maskS(i,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
140 |
SHAP_FILT_TRACER_S4 |
& *_maskS(i,j,k,bi,bj) ) |
./pkg/shap_filt/shap_filt_tracerold.F |
80 |
SHAP_FILT_TRACEROLD |
& *_maskS(i,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_tracerold.F |
82 |
SHAP_FILT_TRACEROLD |
& *_maskS(i,j,k,bi,bj) ) |
./pkg/shap_filt/shap_filt_u.F |
59 |
SHAP_FILT_U |
maskZ(i,j) = _maskS(i-1,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_u.F |
60 |
SHAP_FILT_U |
& *_maskS( i ,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
117 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
150 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpScal*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
175 |
SHAP_FILT_UV_S1 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
176 |
SHAP_FILT_UV_S1 |
& *_maskS( i , j ,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
177 |
SHAP_FILT_UV_S1 |
maskZp=_maskS(i-1,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
178 |
SHAP_FILT_UV_S1 |
& *_maskS( i ,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
225 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
238 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
246 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s1.F |
73 |
SHAP_FILT_UV_S1 |
& *_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2.F |
176 |
SHAP_FILT_UV_S2 |
& *_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2.F |
185 |
SHAP_FILT_UV_S2 |
& *rAs(i,j,bi,bj)*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2.F |
194 |
SHAP_FILT_UV_S2 |
& *Shap_uvLength*Shap_uvLength*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2.F |
93 |
SHAP_FILT_UV_S2 |
& *_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
100 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
101 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
114 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
115 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
123 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
124 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
181 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdV(i,j)*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
72 |
SHAP_FILT_UV_S2C |
& *_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
116 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
172 |
SHAP_FILT_UV_S4 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
173 |
SHAP_FILT_UV_S4 |
& *_maskS( i , j ,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
174 |
SHAP_FILT_UV_S4 |
maskZp=_maskS(i-1,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
175 |
SHAP_FILT_UV_S4 |
& *_maskS( i ,j+1,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
224 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
238 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
248 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_uv_s4.F |
72 |
SHAP_FILT_UV_S4 |
& *_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_v.F |
46 |
SHAP_FILT_V |
& *_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_v.F |
62 |
SHAP_FILT_V |
& )*_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_v.F |
78 |
SHAP_FILT_V |
& *_maskS(i,j,k,bi,bj) |
./pkg/shap_filt/shap_filt_v.F |
92 |
SHAP_FILT_V |
& )*_maskS(i,j,k,bi,bj) |
./pkg/timeave/timeave_surf_flux.F |
58 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fv(i,j,bi,bj)*foFacMom*_maskS(i,j,k,bi,bj) |
./verification/advect_cs/code/ini_vel.F |
87 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
./verification/advect_xy/code/ini_vel.F |
77 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
./model/src/ini_vel.F |
76 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
92 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
./model/src/taueddy_tendency_apply.F |
163 |
TAUEDDY_TENDENCY_APPLY_V |
& ( maskm1*_maskS(i,j, k ,bi,bj)*tauyEddy(i,j, k ,bi,bj) |
./model/src/taueddy_tendency_apply.F |
164 |
TAUEDDY_TENDENCY_APPLY_V |
& - maskp1*_maskS(i,j,kp1,bi,bj)*tauyEddy(i,j,kp1,bi,bj) ) |
./model/src/timestep.F |
377 |
TIMESTEP |
& )*_maskS(i,j,k,bi,bj) |
./pkg/cd_code/cd_code_scheme.F |
122 |
CD_CODE_SCHEME |
& )*_maskS(i,j,k,bi,bj) |
./pkg/cd_code/cd_code_scheme.F |
196 |
CD_CODE_SCHEME |
& *_maskS(i,j,k,bi,bj) |
./pkg/cd_code/cd_code_scheme.F |
225 |
CD_CODE_SCHEME |
& ) )*_maskS(i,j,k,bi,bj) |