| File |
Line number |
Procedure |
Code |
|
./model/inc/RECIP_HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/exf/exf_check_range.F |
113 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
124 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
94 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
100 |
EXF_FILTER_RL |
if ( maskS(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rs.F |
99 |
EXF_FILTER_RS |
if ( maskS(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_mapfields.F |
195 |
EXF_MAPFIELDS |
& maskS(i,j,1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
74 |
GMREDI_CALC_UVFLOW |
& + dxG(i,j,bi,bj)*delPsi*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
103 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
105 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
142 |
GMREDI_CALC_PSI_B |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
162 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
133 |
DIAGSTATS_LOCAL |
I maskS(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
201 |
DIAGSTATS_LOCAL |
I maskS(1-Olx,1-Oly,km,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
202 |
DIAGSTATS_LOCAL |
I maskS(1-Olx,1-Oly,km,bi,bj),rAs(1-Olx,1-Oly,bi,bj), |
|
./pkg/aim_v23/aim_tendency_apply.F |
179 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
185 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
199 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,kLev-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
200 |
AIM_TENDENCY_APPLY_V |
& .AND. maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
83 |
MOM_U_CORIOLIS |
& *4.d0/max(one, maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
84 |
MOM_U_CORIOLIS |
& +maskS(i-1, j ,k,bi,bj)+maskS(i-1,j+1,k,bi,bj) ) |
|
./pkg/bulk_force/bulkf_forcing.F |
167 |
BULKF_FORCING |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
181 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskS(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
182 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskS(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
183 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskS(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
184 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskS(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/fizhi/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./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/fizhi/fizhi_tendency_apply.F |
127 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
135 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = ( maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
136 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
147 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
209 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
210 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
223 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
224 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
239 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
240 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./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 |
81 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./model/src/ini_masks_etc.F |
299 |
INI_MASKS_ETC |
maskS(I,J,K,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
302 |
INI_MASKS_ETC |
maskS(I,J,K,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
284 |
INI_MASKS_ETC |
maskS(I,J,K,bi,bj) = 1. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
287 |
INI_MASKS_ETC |
maskS(I,J,K,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
275 |
INI_MASKS_ETC |
maskS(I,J,K,bi,bj) = 1. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
278 |
INI_MASKS_ETC |
maskS(I,J,K,bi,bj) = 0. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
647 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
654 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
793 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
800 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
644 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
651 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
790 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
797 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
238 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=maskS(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
354 |
UPDATE_MASKS_ETC |
IF (maskS(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/update_r_star.F |
76 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
77 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
83 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/ini_hfac.F |
47 |
INI_HFAC |
maskS(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/calc_surf_dr.F |
164 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskS(i,j,ks,bi,bj) |
|
./pkg/cost/cost_vector.F |
68 |
COST_VECTOR |
& + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
100 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
105 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
107 |
COST_ATLANTIC_HEAT |
countT(k) = countT(k) + maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
109 |
COST_ATLANTIC_HEAT |
countV(k) = countV(k) + maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
76 |
COST_ATLANTIC_HEAT |
& + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
77 |
MYPACKAGE_TENDENCY_APPLY_V |
& maskS(i,j,kLev,bi,bj) * mypaGVvel(i,j,kLev,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
87 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k-1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_v_implicit_r.F |
98 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k+1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_calc_hfacz.F |
129 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
147 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
293 |
MOM_CALC_VISC |
& *maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
138 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,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 |
195 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,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 |
252 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,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 |
302 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,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/monitor/monitor.F |
113 |
MONITOR |
& maskS,hFacS,rAs,drF,myThid) |
|
./pkg/ecco/cost_scat.F |
153 |
COST_SCAT |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_tau_eddy.F |
73 |
COST_TAU_EDDY |
locfc = locfc + maskS(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_readscatyfields.F |
124 |
COST_READSCATYFIELDS |
if (maskS(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
128 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
165 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
238 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
207 |
COST_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
249 |
COST_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
264 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
266 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
159 |
COST_SALT0 |
& *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
161 |
COST_SALT0 |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
128 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
165 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
238 |
COST_OBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_theta0.F |
159 |
COST_THETA0 |
& *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
161 |
COST_THETA0 |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1296 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XYZ_LOC( 'maskCtrlS', maskS, |
|
./pkg/ecco/ecco_cost_weights.F |
764 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_forcing.F |
152 |
COST_FORCING |
& maskS, mythid ) |
|
./pkg/ecco/cost_obcse.F |
128 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
165 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
238 |
COST_OBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
128 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
165 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
238 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
188 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
190 |
CTRL_GETOBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
306 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
308 |
CTRL_GETOBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
365 |
CTRL_GETOBCSE |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
113 |
CTRL_MASK_SET_YZ |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
188 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
190 |
CTRL_GETOBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
309 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
311 |
CTRL_GETOBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
368 |
CTRL_GETOBCSW |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
290 |
CTRL_MAP_INI |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
105 |
CTRL_MASK_SET_XZ |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
183 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
219 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
341 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
377 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init.F |
838 |
CTRL_INIT |
wtauv (i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
154 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
156 |
CTRL_GETOBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
273 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
275 |
CTRL_GETOBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
350 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
356 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
368 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
165 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
296 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
298 |
CTRL_GETOBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
375 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
382 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
396 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
185 |
CTRL_VOLFLUX |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
233 |
CTRL_VOLFLUX |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
109 |
CTRL_INIT_WET |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
457 |
CTRL_INIT_WET |
call ACTIVE_WRITE_XYZ( 'maskCtrlS', maskS, 1, 0, mythid, dummy) |
|
./model/inc/GRID.h |
393 |
NO PROCEDURE |
& maskH, maskC,maskW,maskS, |
|
./model/inc/GRID.h |
449 |
NO PROCEDURE |
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
269 |
GAD_ADVECTION |
maskLocS(i,j)=maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
326 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
334 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
342 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
346 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
62 |
GAD_U3_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i,j))*maskS(i,j+1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
63 |
GAD_U3_ADV_Y |
Rj =(tracer(i,j)-tracer(i,j-1))*maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
64 |
GAD_U3_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskS(i,j-1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
64 |
GAD_C4_ADV_Y |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
66 |
GAD_C4_ADV_Y |
& *maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
68 |
GAD_C4_ADV_Y |
& *maskS(i,j-1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
76 |
GAD_C4_ADV_Y |
& *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
190 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
191 |
SHAP_FILT_UV_S1 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
198 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
199 |
SHAP_FILT_UV_S1 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
220 |
SHAP_FILT_UV_S2 |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
187 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
188 |
SHAP_FILT_UV_S4 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
197 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
198 |
SHAP_FILT_UV_S4 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
103 |
SHAP_FILT_COMPUTVORT |
& +maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
117 |
SHAP_FILT_COMPUTVORT |
& +maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
139 |
SHAP_FILT_COMPUTVORT |
& +maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
161 |
SHAP_FILT_COMPUTVORT |
& +maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
73 |
SHAP_FILT_COMPUTVORT |
& *(maskS(i,j,k,bi,bj)+maskS(i-1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_advection.F |
236 |
SEAICE_ADVECTION |
yA(i,j) = _dxG(i,j,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
257 |
SEAICE_ADVECTION |
maskLocS(i,j)=maskS(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
125 |
SEAICE_MONITOR |
& maskS,maskS,rAs,drF,myThid) |