| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_forcing_surf.F |
77 |
EBM_FORCING_SURF |
& -lambdaThetaZonRelax*maskC(i,j,kSurface,bi,bj)* |
|
./pkg/ebm/ebm_forcing_surf.F |
86 |
EBM_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj)*maskC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
105 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
87 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
93 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
99 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_check_range.F |
135 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
146 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
156 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
166 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
179 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
191 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
67 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
76 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_getforcing.F |
204 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
205 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_filter_rl.F |
80 |
EXF_FILTER_RL |
if ( maskC(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rs.F |
79 |
EXF_FILTER_RS |
if ( maskC(i,j,1,bi,bj) .eq. 0. ) then |
|
./model/inc/RECIP_HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_monitor.F |
107 |
PTRACERS_MONITOR |
& suff, maskC,hFacC,rA ,drF,myThid) |
|
./pkg/ptracers/ptracers_init_varia.F |
89 |
PTRACERS_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/pp81/pp81_calc.F |
111 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
113 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
54 |
GMREDI_CALC_WFLOW |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
125 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
127 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
131 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
133 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
200 |
GMREDI_CALC_TENSOR |
& *maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
203 |
GMREDI_CALC_TENSOR |
& *maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
227 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
228 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
229 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
445 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
447 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
451 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
453 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
564 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
566 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
570 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
572 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
126 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
128 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
132 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
134 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/diagnostics/diagstats_local.F |
144 |
DIAGSTATS_LOCAL |
I maskC(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/aim_v23/aim_tendency_apply.F |
202 |
AIM_TENDENCY_APPLY_V |
& -( (1.-maskC(i,j-1,kLev-1,bi,bj))*aim_drag(i,j-1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
203 |
AIM_TENDENCY_APPLY_V |
& +(1.-maskC(i, j ,kLev-1,bi,bj))*aim_drag(i, j ,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
270 |
AIM_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
318 |
AIM_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
89 |
AIM_TENDENCY_APPLY_U |
& -( (1.-maskC(i-1,j,kLev-1,bi,bj))*aim_drag(i-1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
90 |
AIM_TENDENCY_APPLY_U |
& +(1.-maskC( i ,j,kLev-1,bi,bj))*aim_drag( i ,j,bi,bj) |
|
./model/inc/HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacC(i,j,k,bi,bj) hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
165 |
AIM_DYN2AIM |
IF (maskC(i,j,k,bi,bj).EQ.1. _d 0) THEN |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
94 |
MOM_U_ADV_WU |
& (maskC(i,j,k,bi,bj) - maskC(i,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
96 |
MOM_U_ADV_WU |
& (maskC(i-1,j,k,bi,bj)-maskC(i-1,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
95 |
MOM_V_ADV_WV |
& (maskC(i,j,k,bi,bj) - maskC(i,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
97 |
MOM_V_ADV_WV |
& (maskC(i,j-1,k,bi,bj)-maskC(i,j-1,k-1,bi,bj)) |
|
./model/src/ini_cg3d.F |
142 |
INI_CG3D |
faceArea = _rA(I,J,bi,bj)*maskC(I,J, K ,bi,bj) |
|
./model/src/ini_cg3d.F |
143 |
INI_CG3D |
& *maskC(I,J,K-1,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
176 |
BULKF_FORCING |
IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
83 |
BULKF_FORCING |
IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN |
|
./model/src/integr_continuity.F |
209 |
INTEGR_CONTINUITY |
& +convertEmP2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
95 |
INTEGR_CONTINUITY |
& +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j) |
|
./pkg/profiles/profiles_interp.F |
154 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
155 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
156 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
157 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
163 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
164 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
165 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
166 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
199 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
200 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
201 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
202 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
208 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,1,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
209 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,1,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
210 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,1,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
211 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,1,bi,bj) !NZ |
|
./pkg/dic/bio_export.F |
85 |
BIO_EXPORT |
& lit/(lit+lit0)*maskC(i,j,k,bi,bj)* |
|
./pkg/dic/dic_fields_load.F |
159 |
DIC_FIELDS_LOAD |
WIND(i,j,bi,bj) = 5.d0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
169 |
DIC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) =1.d0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
175 |
DIC_FIELDS_LOAD |
SILICA(i,j,bi,bj) =7.6838e-3*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
199 |
DIC_FIELDS_LOAD |
InputFe(i,j,bi,bj) = 0.d0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
118 |
O2_SURFFORCING |
FluxO2(i,j) = maskC(i,j,k,bi,bj)*Kwexch(i,j)* |
|
./pkg/dic/o2_surfforcing.F |
132 |
O2_SURFFORCING |
SGO2(i,j)= maskC(i,j,1,bi,bj)*FluxO2(i,j) |
|
./pkg/dic/alk_surfforcing.F |
51 |
ALK_SURFFORCING |
IF (maskC(i,j,1,bi,bj).NE.0.) THEN |
|
./pkg/dic/dic_surfforcing.F |
108 |
DIC_SURFFORCING |
IF(maskC(i,j,kLev,bi,bj) .NE. 0.)THEN |
|
./pkg/dic/dic_surfforcing.F |
128 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/dic/dic_surfforcing.F |
157 |
DIC_SURFFORCING |
& maskC(i,j,kLev,bi,bj)*Kwexch(i,j)*( |
|
./pkg/dic/dic_surfforcing.F |
167 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/dic/dic_surfforcing.F |
189 |
DIC_SURFFORCING |
GDC(i,j)= maskC(i,j,kLev,bi,bj)*recip_drF(kLev)* |
|
./pkg/dic/dic_surfforcing.F |
84 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
86 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
89 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
90 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225e-4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
167 |
DIC_AVER_INIT |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
169 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
171 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
177 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
180 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
183 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
189 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
192 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
195 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
111 |
DIC_SURFFORCING_INIT |
SILICA(i,j,bi,bj) =7.6838e-3*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
134 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
136 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
139 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
140 |
DIC_SURFFORCING_INIT |
surfphos(i,j) = 5.1225e-4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
143 |
DIC_SURFFORCING_INIT |
surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
145 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
168 |
DIC_SURFFORCING_INIT |
IF(maskC(i,j,kLev,bi,bj) .NE. 0.)THEN |
|
./pkg/dic/tracer_meanarea.F |
44 |
TRACER_MEANAREA |
& rA(i,j,bi,bj)*maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/tracer_meanarea.F |
47 |
TRACER_MEANAREA |
& maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
187 |
DIC_BIOTIC_FORCING |
& + maskC(i,j,k,bi,bj)*Kdopremin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
192 |
DIC_BIOTIC_FORCING |
& - maskC(i,j,k,bi,bj)*Kdopremin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_cost.F |
101 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) + |
|
./pkg/dic/dic_cost.F |
104 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) + |
|
./pkg/dic/dic_cost.F |
107 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_cost.F |
69 |
DIC_COST |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_cost.F |
73 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_cost.F |
77 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_cost.F |
82 |
DIC_COST |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_cost.F |
88 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) + |
|
./pkg/dic/dic_cost.F |
91 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) + |
|
./pkg/dic/dic_cost.F |
94 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
70 |
TRACERS_IIGW_CORRECTION |
& - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
183 |
STEP_FIZHI_CORR |
call ATOC(myThid,udyntemp,vdyntemp,maskC,im1,im2,jm1,jm2,Nr, |
|
./model/src/ini_salt.F |
78 |
INI_SALT |
IF (maskC(I,J,K,bi,bj).EQ.0.) salt(I,J,K,bi,bj) = 0. |
|
./model/src/ini_salt.F |
84 |
INI_SALT |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./pkg/fizhi/fizhi_wrapper.F |
332 |
FIZHI_WRAPPER |
call ATOC(myThid,guphy,gvphy,maskC,idim1,idim2,jdim1,jdim2,Nr, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
203 |
FIZHI_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
218 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
288 |
FIZHI_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
296 |
FIZHI_TENDENCY_APPLY_S |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gsphy(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
330 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
331 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
120 |
FIZHI_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
160 |
FIZHI_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./verification/advect_xy/code/ini_theta.F |
89 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_theta.F |
95 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.128x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./model/src/grad_sigma.F |
95 |
GRAD_SIGMA |
sigmaR(i,j,k)= maskC(i,j,k,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
336 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
337 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
350 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./model/src/ini_masks_etc.F |
285 |
INI_MASKS_ETC |
maskC(I,J,K,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
288 |
INI_MASKS_ETC |
maskC(I,J,K,bi,bj) = 0. |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_init_varia.F |
48 |
PTRACERS_INIT_VARIA |
IF ( k.EQ.1 .AND. maskC(i,j,k,bi,bj).NE.0. ) THEN |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_init_varia.F |
88 |
PTRACERS_INIT_VARIA |
IF(maskC(i,j,k,bi,bj).EQ.0.) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
104 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code/ini_theta.F |
110 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
104 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
110 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
104 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
110 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
270 |
INI_MASKS_ETC |
maskC(I,J,K,bi,bj) = 1. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
273 |
INI_MASKS_ETC |
maskC(I,J,K,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
261 |
INI_MASKS_ETC |
maskC(I,J,K,bi,bj) = 1. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
264 |
INI_MASKS_ETC |
maskC(I,J,K,bi,bj) = 0. |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
86 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./verification/OpenAD/code/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
101 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,kp1,bi_arg,bj_arg) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
104 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,km2,bi_arg,bj_arg) |
|
./verification/OpenAD/code/gad_fluxlimit_adv_r.F |
121 |
GAD_FLUXLIMIT_ADV_R |
wT(i,j) = maskC(i,j,kM1,bi_arg,bj_arg)*( |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./model/src/timestep_wvel.F |
72 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
116 |
COST_HYD |
& maskC, wsst, |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
137 |
COST_HYD |
& maskC, wsss, |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
74 |
COST_HYD |
& maskC, wsst, |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
106 |
EXF_GETCLIM |
if ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./model/src/calc_phi_hyd.F |
158 |
CALC_PHI_HYD |
alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
264 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj)* |
|
./model/src/calc_phi_hyd.F |
347 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
441 |
THERMODYNAMICS |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
760 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
834 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
757 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
831 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
72 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
73 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
79 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/calc_gw.F |
140 |
CALC_GW |
IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/solve_for_pressure.F |
425 |
SOLVE_FOR_PRESSURE |
& +( wVel(i,j,k ,bi,bj)* |