| File |
Line number |
Procedure |
Code |
|
./model/inc/HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
155 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
206 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
207 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
220 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
221 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
236 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
237 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
52 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
53 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = ( maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
61 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
72 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/step_fizhi_corr.F |
207 |
STEP_FIZHI_CORR |
call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2, |
|
./pkg/fizhi/step_fizhi_corr.F |
358 |
STEP_FIZHI_CORR |
call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2, |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
64 |
GAD_C4_ADV_X |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
66 |
GAD_C4_ADV_X |
& *maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
68 |
GAD_C4_ADV_X |
& *maskW(i-1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
76 |
GAD_C4_ADV_X |
& *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
227 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
235 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
243 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
247 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
253 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
62 |
GAD_U3_ADV_X |
Rjp=(tracer(i+1,j)-tracer(i,j))*maskW(i+1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
63 |
GAD_U3_ADV_X |
Rj =(tracer(i,j)-tracer(i-1,j))*maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
64 |
GAD_U3_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskW(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
137 |
GMREDI_CALC_PSI_B |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
139 |
GMREDI_CALC_PSI_B |
& +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
96 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
98 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
65 |
GMREDI_CALC_UVFLOW |
& + dyG(i,j,bi,bj)*delPsi*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
174 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
202 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./model/inc/RECIP_HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
121 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
146 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
139 |
MOM_CALC_RELVORT3 |
& *maskW(i-1,j,k,bi,bj)*maskS(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
196 |
MOM_CALC_RELVORT3 |
& *maskW(i+1,j,k,bi,bj)*maskS(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
253 |
MOM_CALC_RELVORT3 |
& *maskS(i,j+1,k,bi,bj)*maskW(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
303 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j+1,k,bi,bj)*maskW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
341 |
MOM_CALC_VISC |
& *maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
87 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k-1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_u_implicit_r.F |
98 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k+1,bi,bj).EQ.1.) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
129 |
MOM_UV_BOUNDARY |
IF (maskW(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
81 |
MOM_V_CORIOLIS |
& maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
82 |
MOM_V_CORIOLIS |
& +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) ) |
|
./model/src/calc_surf_dr.F |
148 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskW(i,j,ks,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
47 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
55 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
172 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskW(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
173 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskW(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
174 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskW(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
175 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskW(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp_gg.F |
81 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskW(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/seaice/dynsolver.F |
191 |
DYNSOLVER |
& *( (phiSurf(i, j )-phiSurf(i-1, j ))*maskW(i, j ,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
192 |
DYNSOLVER |
& +(phiSurf(i,j-1)-phiSurf(i-1,j-1))*maskW(i,j-1,1,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
239 |
SEAICE_ADVECTION |
maskLocW(i,j)=maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
105 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
119 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
141 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
163 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
75 |
SHAP_FILT_COMPUTVORT |
maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
232 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
233 |
SHAP_FILT_UV_S1 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
240 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
241 |
SHAP_FILT_UV_S1 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
213 |
SHAP_FILT_UV_S2 |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
231 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
232 |
SHAP_FILT_UV_S4 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
242 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
243 |
SHAP_FILT_UV_S4 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
217 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
220 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
223 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
226 |
SMOOTH_RHS |
& +maskW(i,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
273 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
276 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
279 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
282 |
SMOOTH_RHS |
& +maskW(i,j,k-1,bi,bj) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
69 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
60 |
COST_TEST |
IF ( maskW(I,J,K,BI,BJ) .NE. 0. ) THEN |
|
./model/src/ini_hfac.F |
48 |
INI_HFAC |
maskW(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
360 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
363 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
40 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
631 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
638 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
720 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
727 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
627 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
634 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
716 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
723 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
164 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
345 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/update_masks_etc.F |
216 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
342 |
UPDATE_MASKS_ETC |
IF (maskW(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/update_r_star.F |
101 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
102 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
108 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_sigma.F |
140 |
UPDATE_SIGMA |
hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
144 |
UPDATE_SIGMA |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k) |
|
./pkg/aim_v23/aim_tendency_apply.F |
102 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,kLev-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
103 |
AIM_TENDENCY_APPLY_U |
& .AND. maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
77 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
79 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
87 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
161 |
BULKF_FORCING |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
446 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
63 |
COST_ACCUMULATE_MEAN |
& *maskW(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
155 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
160 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
162 |
COST_ATLANTIC_HEAT |
countT(k) = countT(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
164 |
COST_ATLANTIC_HEAT |
countU(k) = countU(k) + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
155 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
157 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
275 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
349 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
355 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
361 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
205 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
207 |
CTRL_GETOBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
335 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
337 |
CTRL_GETOBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
391 |
CTRL_GETOBCSN |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
192 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
194 |
CTRL_GETOBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
311 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
313 |
CTRL_GETOBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
364 |
CTRL_GETOBCSS |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
155 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
157 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
276 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
278 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
352 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
358 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
364 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1078 |
CTRL_INIT |
wtauu (i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
116 |
CTRL_INIT_WET |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
549 |
CTRL_INIT_WET |
call ACTIVE_WRITE_XYZ( 'maskCtrlW', maskW, 1, 0, mythid, dummy) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
114 |
CTRL_MASK_SET_XZ |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
108 |
CTRL_MASK_SET_YZ |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
257 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
293 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
415 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
451 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
289 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
351 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/diagnostics/diagstats_local.F |
127 |
DIAGSTATS_LOCAL |
I maskW(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/ebm/ebm_wind_perturb.F |
114 |
EBM_WIND_PERTURB |
winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_forcing.F |
125 |
COST_FORCING |
& maskW, mythid ) |
|
./pkg/ecco/cost_forcing_gen.F |
268 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
270 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj) |
|
./pkg/ecco/cost_generic.F |
160 |
COST_GENERIC |
localmask(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
203 |
COST_OBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
203 |
COST_OBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
203 |
COST_OBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
294 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
337 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
203 |
COST_OBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_readscatxfields.F |
127 |
COST_READSCATXFIELDS |
if (maskW(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_salt0.F |
161 |
COST_SALT0 |
& *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
163 |
COST_SALT0 |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/ecco/cost_scat.F |
164 |
COST_SCAT |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_tau_eddy.F |
236 |
COST_TAU_EDDY |
locfc = locfc + maskW(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_theta0.F |
161 |
COST_THETA0 |
& *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
163 |
COST_THETA0 |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1904 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XYZ_LOC( 'maskCtrlW', maskW, |
|
./pkg/ecco/ecco_cost_weights.F |
895 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/exf/exf_check_range.F |
118 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
99 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
89 |
EXF_FILTER_RL |
if ( maskW(i,j,1,bi,bj) .eq. 0. ) then |
|
./model/inc/GRID.h |
423 |
NO PROCEDURE |
& maskC, maskW, maskS, |
|
./model/inc/GRID.h |
477 |
NO PROCEDURE |
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/exf/exf_filter_rs.F |
89 |
EXF_FILTER_RS |
if ( maskW(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_mapfields.F |
163 |
EXF_MAPFIELDS |
& *exf_half*maskW(i,j,1,bi,bj) |