| File |
Line number |
Procedure |
Code |
|
./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) ) |
|
./pkg/fizhi/fizhi_wrapper.F |
330 |
FIZHI_WRAPPER |
call ATOC(myThid,guphy,gvphy,maskC,idim1,idim2,jdim1,jdim2,Nr, |
|
./pkg/fizhi/step_fizhi_corr.F |
183 |
STEP_FIZHI_CORR |
call ATOC(myThid,udyntemp,vdyntemp,maskC,im1,im2,jm1,jm2,Nr, |
|
./pkg/flt/flt_runga2.F |
218 |
FLT_RUNGA2 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga4.F |
325 |
FLT_RUNGA4 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
762 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
63 |
GAD_C2_ADV_R |
wT(i,j) = maskC(i,j,kM1,bi,bj)* |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
76 |
GAD_C4_ADV_R |
maskBound = maskPM*maskC(i,j,km2,bi,bj)*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
78 |
GAD_C4_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
81 |
GAD_C4_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
84 |
GAD_C4_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
90 |
GAD_DST2U1_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
78 |
GAD_DST3_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
80 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
82 |
GAD_DST3_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
69 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
71 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
73 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
109 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,k-1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
111 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
143 |
GAD_DST3FL_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
144 |
GAD_DST3FL_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
107 |
GAD_FLUXLIMIT_ADV_R |
wT(i,j) = maskC(i,j,kM1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
88 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
91 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
87 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
89 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
138 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
148 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
196 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
74 |
GAD_OS7MP_ADV_R |
MskIpp = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
75 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
76 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
77 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,km1,bi,bj) * float(km1-km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
78 |
GAD_OS7MP_ADV_R |
MskImm = maskC(i,j,km2,bi,bj) * float(km2-km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
79 |
GAD_OS7MP_ADV_R |
MskImmm = maskC(i,j,km3,bi,bj) * float(km3-km4) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
89 |
GAD_OS7MP_ADV_R |
MskIpp = maskC(i,j,km2,bi,bj) * float(km2-km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
90 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,km1,bi,bj) * float(km1-km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
91 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
92 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
93 |
GAD_OS7MP_ADV_R |
MskImm = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
94 |
GAD_OS7MP_ADV_R |
MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
272 |
GAD_SOM_ADVECT |
& + (1. _d 0 - maskC(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_som_advect.F |
562 |
GAD_SOM_ADVECT |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
575 |
GAD_SOM_ADVECT |
maskUp(i,j) = maskC(i,j,km1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
72 |
GAD_U3_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
75 |
GAD_U3_ADV_R |
& *maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
78 |
GAD_U3_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
94 |
GAD_U3C4_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
95 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/ggl90/ggl90_calc.F |
177 |
GGL90_CALC |
& * ( rhoKm1(i,j) - rhoK(i,j) )*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
413 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
416 |
GGL90_CALC |
KappaM = MAX(KappaM,viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
418 |
GGL90_CALC |
KappaE(i,j,k) = GGL90alpha * KappaM * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
470 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
490 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
502 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
520 |
GGL90_CALC |
GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
544 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
570 |
GGL90_CALC |
& +p8 *( maskC(i-1,j ,k,bi,bj) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
571 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
572 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
573 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
574 |
GGL90_CALC |
& +p16*( maskC(i+1,j+1,k,bi,bj) * mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
575 |
GGL90_CALC |
& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
576 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
577 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
578 |
GGL90_CALC |
& )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
602 |
GGL90_CALC |
& +p8 *( maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
603 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
604 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
605 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
607 |
GGL90_CALC |
& *maskC(i ,j,k,bi,bj)*mskCor(i ,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
& *maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
635 |
GGL90_CALC |
& +p8 *( maskC(i-1,j ,k,bi,bj) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
636 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
637 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
638 |
GGL90_CALC |
& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
640 |
GGL90_CALC |
& *maskC(i,j ,k,bi,bj)*mskCor(i,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
641 |
GGL90_CALC |
& *maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
44 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
74 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
276 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
279 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
305 |
GMREDI_CALC_TENSOR |
IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
329 |
GMREDI_CALC_TENSOR |
& + maskC(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
330 |
GMREDI_CALC_TENSOR |
& + maskC(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
331 |
GMREDI_CALC_TENSOR |
& + maskC(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
332 |
GMREDI_CALC_TENSOR |
& + maskC(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
394 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
395 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
396 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
691 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
693 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
697 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
699 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
879 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
881 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
885 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
887 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./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/gmredi/gmredi_calc_wflow.F |
55 |
GMREDI_CALC_WFLOW |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
136 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
138 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
142 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
144 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
137 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
139 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
143 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
145 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/grdchk/grdchk_get_position.F |
133 |
GRDCHK_GET_POSITION |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
136 |
GRDCHK_GET_POSITION |
wetlocal = maskC(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
195 |
GRDCHK_LOC |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/icefront/icefront_thermodynamics.F |
140 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) * |
|
./pkg/icefront/icefront_thermodynamics.F |
144 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/kpp/kpp_calc.F |
322 |
KPP_CALC |
dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
323 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
324 |
KPP_CALC |
ghat(i,j,k) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
325 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
326 |
KPP_CALC |
Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
327 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
507 |
KPP_CALC |
I , maskC(1-Olx,1-Oly,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
529 |
KPP_CALC |
KPPviscAz(i,j,k,bi,bj) = vddiff(i,j,k-1,1) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
530 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
531 |
KPP_CALC |
KPPdiffKzS(i,j,k,bi,bj)= vddiff(i,j,k-1,2) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
532 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
533 |
KPP_CALC |
KPPdiffKzT(i,j,k,bi,bj)= vddiff(i,j,k-1,3) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
534 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
535 |
KPP_CALC |
KPPghat(i,j,k,bi,bj) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
536 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
542 |
KPP_CALC |
KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_forcing_surf.F |
279 |
KPP_FORCING_SURF |
& maskC(I,J,k,bi,bj) .GT. 0. .AND. |
|
./pkg/kpp/kpp_routines.F |
1111 |
SMOOTH_HORIZ |
& p25 * maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1112 |
SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1113 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1114 |
SMOOTH_HORIZ |
& maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1115 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
1116 |
SMOOTH_HORIZ |
& p0625 * ( maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1117 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1118 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1119 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1122 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1123 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1124 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1125 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1126 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1127 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1128 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1129 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1130 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/longstep/longstep_thermodynamics.F |
347 |
LONGSTEP_THERMODYNAMICS |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
126 |
MOM_U_IMPLICIT_R |
& *maskC( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
128 |
MOM_U_IMPLICIT_R |
& *maskC(i-1,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
126 |
MOM_V_IMPLICIT_R |
& *maskC(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
128 |
MOM_V_IMPLICIT_R |
& *maskC(i,j-1,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
100 |
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 |
102 |
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 |
101 |
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 |
103 |
MOM_V_ADV_WV |
& (maskC(i,j-1,k,bi,bj)-maskC(i,j-1,k-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
70 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
83 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
84 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./model/src/calc_gw.F |
167 |
CALC_GW |
IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR. |
|
./model/src/calc_gw.F |
168 |
CALC_GW |
& maskC(i,j, k ,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
217 |
CALC_GW |
IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
70 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
83 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
84 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/monitor/mon_ke.F |
102 |
MON_KE |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
201 |
CALC_OCE_MXLAYER |
& tmpFac * ( maskC(i-1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
202 |
CALC_OCE_MXLAYER |
& maskC(i+1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
203 |
CALC_OCE_MXLAYER |
& maskC(i,j-1,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
204 |
CALC_OCE_MXLAYER |
& maskC(i,j+1,1,bi,bj) ) |
|
./model/src/calc_oce_mxlayer.F |
205 |
CALC_OCE_MXLAYER |
& ) * maskC(i,j,1,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
129 |
MON_SURFCOR |
& *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/monitor/monitor.F |
115 |
MONITOR |
& maskC, maskInC, rA , thickFacF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
118 |
ADMONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
119 |
G_MONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./model/src/calc_phi_hyd.F |
180 |
CALC_PHI_HYD |
alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
290 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj)* |
|
./model/src/calc_phi_hyd.F |
373 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj) |
|
./pkg/my82/my82_calc.F |
169 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
171 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./model/src/calc_surf_dr.F |
115 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskC(i,j,ks,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
156 |
MYPACKAGE_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
200 |
MYPACKAGE_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
472 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
513 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
554 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
597 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
704 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
745 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
786 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
830 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./model/src/cg3d.F |
141 |
CG3D |
& * maskC(i,j,k,bi,bj) |
|
./pkg/opps/opps_calc.F |
494 |
OPPS_CALC |
& )*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
496 |
OPPS_CALC |
pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
501 |
OPPS_CALC |
pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
108 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
110 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./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/profiles/profiles_interp_gg.F |
75 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
78 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
93 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
96 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),1,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
154 |
PROFILES_INTERP_MEAN |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,1,bi,bj) !SO |
|
./pkg/profiles/profiles_interp_mean.F |
155 |
PROFILES_INTERP_MEAN |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,1,bi,bj) !SE |
|
./pkg/profiles/profiles_interp_mean.F |
156 |
PROFILES_INTERP_MEAN |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,1,bi,bj) !NO |
|
./pkg/profiles/profiles_interp_mean.F |
157 |
PROFILES_INTERP_MEAN |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,1,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp_mean_gg.F |
75 |
PROFILES_INTERP_MEAN_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),1,bi,bj) |
|
./pkg/ptracers/ptracers_init_varia.F |
106 |
PTRACERS_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/rbcs/rbcs_add_tendency.F |
58 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
69 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
84 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
61 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = plumekb(1)*maskC(i,j,klev,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
62 |
SALT_PLUME_TENDENCY_APPLY_S |
& -plumekb(2)*maskC(i,j,kp1, bi,bj) |
|
./pkg/sbo/sbo_calc.F |
212 |
SBO_CALC |
IF ( maskC(i,j,kn0,bi,bj) .NE. 0. ) THEN |
|
./pkg/sbo/sbo_calc.F |
222 |
SBO_CALC |
& * maskC(i,j,kn0,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
230 |
SBO_CALC |
dradius = etaN(i,j,bi,bj) * maskC(i,j,kn0,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
237 |
SBO_CALC |
dradius = drF(k) * maskC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
121 |
SEAICE_CALC_STRAINRATES |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
122 |
SEAICE_CALC_STRAINRATES |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_cost_driver.F |
101 |
SEAICE_COST_DRIVER |
& maskC, wsmrarea, |
|
./pkg/seaice/seaice_cost_driver.F |
79 |
SEAICE_COST_DRIVER |
& maskC, wsmrarea, |
|
./pkg/seaice/seaice_cost_driver.F |
90 |
SEAICE_COST_DRIVER |
& maskC, wsmrarea, |
|
./pkg/seaice/seaice_growth.F |
1389 |
SEAICE_GROWTH |
& * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1442 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
1456 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
621 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) * ( |
|
./pkg/seaice/seaice_growth.F |
631 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
640 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
892 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
931 |
SEAICE_GROWTH_IF |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_lsr.F |
303 |
SEAICE_LSR |
& / MAX(1.D0,maskC(I,J, k,bi,bj)+maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
304 |
SEAICE_LSR |
& + maskC(I,J-1,k,bi,bj)+maskC(I-1,J-1,k,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
314 |
SEAICE_LSR |
& *maskC(I,J, k,bi,bj)*maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
315 |
SEAICE_LSR |
& *maskC(I,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
457 |
SEAICE_LSR |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
458 |
SEAICE_LSR |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
715 |
SEAICE_LSR |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
716 |
SEAICE_LSR |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./model/src/external_forcing.F |
371 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
372 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./pkg/shelfice/shelfice_init_fixed.F |
59 |
SHELFICE_INIT_FIXED |
IF ( maskC(I,J,K,bi,bj) .NE. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
169 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = maskC(I,J,K,bi,bj) * |
|
./pkg/smooth/smooth_filtervar2d.F |
180 |
SMOOTH_FILTERVAR2D |
if (maskC(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
217 |
SMOOTH_FILTERVAR2D |
if (maskC(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
220 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
261 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_rhs.F |
108 |
SMOOTH_RHS |
& maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
130 |
SMOOTH_RHS |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
132 |
SMOOTH_RHS |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
136 |
SMOOTH_RHS |
& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
138 |
SMOOTH_RHS |
& +maskC( i ,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
198 |
SMOOTH_RHS |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
200 |
SMOOTH_RHS |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
204 |
SMOOTH_RHS |
& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
206 |
SMOOTH_RHS |
& +maskC(i, j ,MIN(k+1,Nr),bi,bj)* |
|
./model/src/grad_sigma.F |
97 |
GRAD_SIGMA |
sigmaR(i,j,k)= maskC(i,j,k,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
20 |
NO PROCEDURE |
& *maskC(i,j,1,bi,bj) |
|
./model/src/ini_cg3d.F |
145 |
INI_CG3D |
faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj) |
|
./model/src/ini_cg3d.F |
146 |
INI_CG3D |
& *maskC(i,j,k-1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
136 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k-1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
146 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
194 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)v*maskC(i,j,k-1,bi,bj) |
|
./verification/advect_xy/code/ini_salt.F |
90 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
97 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_theta.F |
101 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_theta.F |
94 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./model/src/ini_eos.F |
391 |
EOS_CHECK |
mskSave = maskC(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
393 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_eos.F |
466 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = mskSave |
|
./model/src/ini_hfac.F |
46 |
INI_HFAC |
maskC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
353 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
356 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 0. |
|
./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/global1x1_tot/code/ecco_cost_weights.F |
761 |
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 |
835 |
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/ini_pressure.F |
123 |
INI_PRESSURE |
& * maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
124 |
INI_PRESSURE |
sumTile = sumTile + maskC(i,j,k,bi,bj) |
|
./model/src/ini_salt.F |
100 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_salt.F |
93 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
85 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/hs94.128x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
101 |
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 |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./model/src/ini_theta.F |
101 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_theta.F |
94 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 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 |
101 |
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 |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
255 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
101 |
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 |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./model/src/integr_continuity.F |
109 |
INTEGR_CONTINUITY |
& +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j) |
|
./model/src/integr_continuity.F |
241 |
INTEGR_CONTINUITY |
& +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,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, |
|
./model/src/integrate_for_w.F |
100 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
110 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
126 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
137 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
152 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
162 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
176 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
186 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
348 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, 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/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
88 |
PTRACERS_FORCING |
& + 1. _d 0 * maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
47 |
COST_HFLUX |
tmpC = tmpC + maskC(i,j,1,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
71 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
52 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
78 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./model/src/post_cg3d.F |
142 |
POST_CG3D |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
232 |
PRE_CG3D |
& +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj) |
|
./model/src/rotate_uv2en.F |
103 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
104 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
115 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
116 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
176 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
177 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
284 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
285 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
296 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
297 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
357 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
358 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/thermodynamics.F |
518 |
THERMODYNAMICS |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
88 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
70 |
TRACERS_IIGW_CORRECTION |
& - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
100 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
106 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
99 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
114 |
UPDATE_SIGMA |
hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
118 |
UPDATE_SIGMA |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k) |
|
./pkg/aim_v23/aim_dyn2aim.F |
165 |
AIM_DYN2AIM |
IF (maskC(i,j,k,bi,bj).EQ.1. _d 0) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
105 |
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 |
106 |
AIM_TENDENCY_APPLY_U |
& +(1.-maskC( i ,j,kLev-1,bi,bj))*aim_drag( i ,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
231 |
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 |
232 |
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 |
304 |
AIM_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
354 |
AIM_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/atm2d/calc_1dto2d.F |
63 |
CALC_1DTO2D |
IF (maskC(i,j,1,1,1).EQ.1.) THEN |
|
./pkg/atm2d/calc_zonal_means.F |
73 |
CALC_ZONAL_MEANS |
IF (maskC(i,j,1,1,1).EQ.1.) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
120 |
FIXED_FLUX_ADD |
IF (maskC(i,j,1,1,1).EQ.1.) THEN |
|
./pkg/atm2d/init_atm2d.F |
158 |
INIT_ATM2D |
IF (maskC(i,j,1,1,1).EQ.1.) THEN |
|
./pkg/atm2d/init_atm2d.F |
249 |
INIT_ATM2D |
if ( (maskC(i,j,1,1,1).EQ.1.) .AND. |
|
./pkg/atm2d/init_atm2d.F |
250 |
INIT_ATM2D |
& ( (maskC(i-1,j,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
251 |
INIT_ATM2D |
& (maskC(i+1,j,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
252 |
INIT_ATM2D |
& (maskC(i,j-1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
253 |
INIT_ATM2D |
& (maskC(i,j+1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
254 |
INIT_ATM2D |
& (maskC(i+1,j+1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
255 |
INIT_ATM2D |
& (maskC(i-1,j-1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
256 |
INIT_ATM2D |
& (maskC(i+1,j-1,1,1,1).EQ.0.).OR. |
|
./pkg/atm2d/init_atm2d.F |
257 |
INIT_ATM2D |
& (maskC(i-1,j+1,1,1,1).EQ.0.) ) ) THEN |
|
./pkg/atm2d/init_atm2d.F |
272 |
INIT_ATM2D |
totrun_b(ib)=totrun_b(ib)+runoffVal(i,j)*maskC(i,j,1,1,1) |
|
./pkg/atm2d/init_atm2d.F |
278 |
INIT_ATM2D |
runoffVal(i,j)=runoffVal(i,j)*maskC(i,j,1,1,1)/totrun_b(ib) |
|
./pkg/atm2d/norm_ocn_fluxes.F |
41 |
NORM_OCN_FLUXES |
IF (maskC(i,j,1,1,1) .EQ. 1.) THEN |
|
./pkg/atm2d/relax_add.F |
100 |
RELAX_ADD |
IF (maskC(i,j,1,1,1) .EQ. 1.) THEN |
|
./pkg/atm2d/sum_ocn_fluxes.F |
41 |
SUM_OCN_FLUXES |
IF (maskC(i,j,1,1,1) .EQ. 1.) THEN |
|
./pkg/atm2d/sum_yr_end_diags.F |
60 |
SUM_YR_END_DIAGS |
IF (maskC(i,j,1,1,1) .EQ. 1.) THEN |
|
./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 |
|
./pkg/cfc/cfc11_surfforcing.F |
52 |
CFC11_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
95 |
CFC11_SURFFORCING |
& maskC(i,j,1,bi,bj)*FluxCFC11(i,j)*recip_drF(1) |
|
./pkg/cfc/cfc12_surfforcing.F |
52 |
CFC12_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/cfc/cfc12_surfforcing.F |
94 |
CFC12_SURFFORCING |
& maskC(i,j,1,bi,bj)*FluxCFC12(i,j)*recip_drF(1) |
|
./pkg/cfc/cfc_fields_load.F |
146 |
CFC_FIELDS_LOAD |
WIND = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
166 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = maskC(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_accumulate_mean.F |
69 |
COST_ACCUMULATE_MEAN |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
107 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
110 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
156 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
161 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
163 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
165 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_depth.F |
44 |
COST_DEPTH |
IF ( maskC(I,J,K,BI,BJ) .NE. 0. ) THEN |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_init.F |
1076 |
CTRL_INIT |
whflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1077 |
CTRL_INIT |
wsflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1080 |
CTRL_INIT |
watemp (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1081 |
CTRL_INIT |
waqh (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1082 |
CTRL_INIT |
wprecip (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1083 |
CTRL_INIT |
wswflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1084 |
CTRL_INIT |
wswdown (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1085 |
CTRL_INIT |
wuwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1086 |
CTRL_INIT |
wvwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1087 |
CTRL_INIT |
wlwflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1088 |
CTRL_INIT |
wlwdown (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1089 |
CTRL_INIT |
wevap (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1090 |
CTRL_INIT |
wsnowprecip(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1091 |
CTRL_INIT |
wapressure(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1092 |
CTRL_INIT |
wrunoff (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1093 |
CTRL_INIT |
wsst (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1094 |
CTRL_INIT |
wsss (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init_wet.F |
548 |
CTRL_INIT_WET |
call ACTIVE_WRITE_XYZ( 'maskCtrlC', maskC, 1, 0, mythid, dummy) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
177 |
DIAGNOSTICS_INTERP_VERT |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
573 |
DIAGNOSTICS_OUT |
IF ( maskC(i,j,klev,bi,bj) .EQ. 0. ) |
|
./pkg/diagnostics/diagstats_local.F |
150 |
DIAGSTATS_LOCAL |
I maskC(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/dic/alk_surfforcing.F |
54 |
ALK_SURFFORCING |
IF (maskC(i,j,1,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/bio_export.F |
148 |
BIO_EXPORT |
& lit(i,j)/(lit(i,j)+lit0)*maskC(i,j,k,bi,bj)* |
|
./pkg/dic/bio_export.F |
88 |
BIO_EXPORT |
lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/car_flux.F |
111 |
CAR_FLUX |
& *maskC(i,j,kop1,bi,bj) |
|
./pkg/dic/dic_atmos.F |
144 |
DIC_ATMOS |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_aver_init.F |
151 |
DIC_AVER_INIT |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
153 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
155 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
161 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
164 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
167 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
173 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
176 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
179 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
215 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= MAX(maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
218 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_cost.F |
47 |
DIC_COST |
& maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_ini_forcing.F |
90 |
DIC_INI_FORCING |
WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
91 |
DIC_INI_FORCING |
AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
92 |
DIC_INI_FORCING |
SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
96 |
DIC_INI_FORCING |
PAR(i,j,bi,bj) = 100. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
99 |
DIC_INI_FORCING |
InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
134 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
155 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
189 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing.F |
88 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
90 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
94 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
97 |
DIC_SURFFORCING |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
181 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
183 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
186 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
187 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
190 |
DIC_SURFFORCING_INIT |
surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
192 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
211 |
DIC_SURFFORCING_INIT |
IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/dic/fe_chem.F |
64 |
FE_CHEM |
IF ( maskC(i,j,k,bi,bj).GT.0. ) THEN |
|
./pkg/dic/o2_surfforcing.F |
72 |
O2_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/dic/phos_flux.F |
117 |
PHOS_FLUX |
& *maskC(i,j,kop1,bi,bj) |
|
./pkg/dic/tracer_meanarea.F |
46 |
TRACER_MEANAREA |
& maskC(i,j,kLev,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/ebm/ebm_forcing_surf.F |
75 |
EBM_FORCING_SURF |
& -lambdaThetaZonRelax*maskC(i,j,kSurface,bi,bj)* |
|
./pkg/ebm/ebm_forcing_surf.F |
84 |
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/ecco/cost_forcing.F |
110 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
138 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
166 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
181 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
196 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
211 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
226 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
241 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
256 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
271 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
286 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
301 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
69 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
82 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_forcing.F |
97 |
COST_FORCING |
& maskC, mythid ) |
|
./pkg/ecco/cost_generic.F |
156 |
COST_GENERIC |
localmask(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_hyd.F |
241 |
COST_HYD |
& maskC, wsmrarea, |
|
./pkg/ecco/cost_mean_heatflux.F |
116 |
COST_MEAN_HEATFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_mean_saltflux.F |
116 |
COST_MEAN_SALTFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1902 |
ECCO_COST_WEIGHTS |
call ACTIVE_WRITE_XYZ_LOC( 'maskCtrlC', maskC, |
|
./pkg/ecco/ecco_cost_weights.F |
353 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
368 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
394 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
409 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
441 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
456 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
488 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
506 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
540 |
ECCO_COST_WEIGHTS |
& wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
550 |
ECCO_COST_WEIGHTS |
& wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
559 |
ECCO_COST_WEIGHTS |
& wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
& wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
638 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
675 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
764 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
790 |
ECCO_COST_WEIGHTS |
& wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/exf/exf_bulkformulae.F |
286 |
EXF_BULKFORMULAE |
& * maskC(i,j,ksrfp1,bi,bj) |
|
./pkg/exf/exf_check_range.F |
149 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
160 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
170 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
180 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
193 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
205 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
81 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
90 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
79 |
EXF_FILTER_RL |
if ( maskC(i,j,1,bi,bj) .eq. 0. ) then |
|
./model/inc/GRID.h |
423 |
NO PROCEDURE |
& maskC, maskW, maskS, |
|
./model/inc/GRID.h |
476 |
NO PROCEDURE |
_RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/exf/exf_filter_rs.F |
79 |
EXF_FILTER_RS |
if ( maskC(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_getclim.F |
170 |
EXF_GETCLIM |
if ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./pkg/exf/exf_getforcing.F |
218 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
219 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_init.F |
398 |
EXF_INIT |
if ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./pkg/exf/exf_radiation.F |
71 |
EXF_RADIATION |
& * maskC(i,j,2,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) |