| File |
Line number |
Procedure |
Code |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
117 |
OCN_APPLY_IMPORT |
iceMask (i,j,bi,bj) = sIceFrac_cpl (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
193 |
OCN_APPLY_IMPORT |
_EXCH_XY_RL( iceMask , myThid ) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
113 |
OCN_STORE_MY_DATA |
sIceFrac_cpl (i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_diffusion.F |
15 |
SEAICE_DIFFUSION |
I iceFld, iceMask, xA, yA, |
|
./pkg/seaice/seaice_diffusion.F |
49 |
SEAICE_DIFFUSION |
_RL iceMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_diffusion.F |
95 |
SEAICE_DIFFUSION |
& - fac*iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_map_thsice.F |
60 |
SEAICE_MAP_THSICE |
AREA(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_map_thsice.F |
61 |
SEAICE_MAP_THSICE |
HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/THSICE_VARS.h |
23 |
NO PROCEDURE |
& iceMask, iceHeight, snowHeight, |
|
./pkg/thsice/THSICE_VARS.h |
27 |
NO PROCEDURE |
_RL iceMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_advdiff.F |
157 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL(iceMask,'SI_AdvFr',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
161 |
THSICE_ADVDIFF |
I iceHeight, iceMask,tmpFac,1,'SI_AdvHi', |
|
./pkg/thsice/thsice_advdiff.F |
164 |
THSICE_ADVDIFF |
I snowHeight,iceMask,tmpFac,1,'SI_AdvHs', |
|
./pkg/thsice/thsice_advdiff.F |
171 |
THSICE_ADVDIFF |
iceTmp(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
235 |
THSICE_ADVDIFF |
iceFrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
253 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
270 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
313 |
THSICE_ADVDIFF |
& 'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j), |
|
./pkg/thsice/thsice_advdiff.F |
457 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
462 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
468 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
476 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
479 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceVol(i,j)/hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
492 |
THSICE_ADVDIFF |
& )*iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
494 |
THSICE_ADVDIFF |
& *iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
499 |
THSICE_ADVDIFF |
& )*iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
504 |
THSICE_ADVDIFF |
iceMask (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
546 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL(iceMask,'SI_AdvFr',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
550 |
THSICE_ADVDIFF |
I iceHeight, iceMask,tmpFac,1,'SI_AdvHi', |
|
./pkg/thsice/thsice_advdiff.F |
553 |
THSICE_ADVDIFF |
I snowHeight,iceMask,tmpFac,1,'SI_AdvHs', |
|
./pkg/thsice/thsice_advdiff.F |
560 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_albedo.F |
105 |
THSICE_ALBEDO |
IF ( iceMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_albedo.F |
12 |
THSICE_ALBEDO |
I iceMask, hIce, hSnow, tSrf, ageSnw, |
|
./pkg/thsice/thsice_albedo.F |
54 |
THSICE_ALBEDO |
_RL iceMask(siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_ave.F |
57 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE( ice_fract_Ave, iceMask, |
|
./pkg/thsice/thsice_ave.F |
60 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_iceH_Ave, iceHeight, iceMask, |
|
./pkg/thsice/thsice_ave.F |
62 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_snowH_Ave, snowHeight, iceMask, |
|
./pkg/thsice/thsice_ave.F |
64 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_Tsrf_Ave, Tsrf, iceMask, |
|
./pkg/thsice/thsice_ave.F |
66 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_Tice1_Ave, Tice1, iceMask, |
|
./pkg/thsice/thsice_ave.F |
68 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_Tice2_Ave, Tice2, iceMask, |
|
./pkg/thsice/thsice_calc_thickn.F |
1058 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1094 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1104 |
THSICE_CALC_THICKN |
fzMlOc(i,j) = fzMlOc(i,j) - Fbot(i,j)*iceMask(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1123 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1127 |
THSICE_CALC_THICKN |
I iceMask(i,j), icFrac(i,j), hIce(i,j), hSnow1(i,j), |
|
./pkg/thsice/thsice_calc_thickn.F |
112 |
THSICE_CALC_THICKN |
_RL iceMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
12 |
THSICE_CALC_THICKN |
I iceMask, tFrz, tOce, v2oc, |
|
./pkg/thsice/thsice_calc_thickn.F |
319 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
411 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
496 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
522 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
567 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0 .AND. ebot(i,j) .LT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
614 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
637 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
662 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
697 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
718 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
758 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
835 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
878 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
996 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_cost_test.F |
108 |
THSICE_COST_TEST |
& tempVar*rA(i,j,bi,bj)*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_state.F |
54 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( iceMask,'SI_Fract', 0,1, 0,1,1,myThid ) |
|
./pkg/thsice/thsice_diagnostics_state.F |
60 |
THSICE_DIAGNOSTICS_STATE |
I iceHeight, iceMask,tmpFac,1,'SI_Thick', |
|
./pkg/thsice/thsice_diagnostics_state.F |
63 |
THSICE_DIAGNOSTICS_STATE |
I snowHeight,iceMask,tmpFac,1,'SI_SnowH', |
|
./pkg/thsice/thsice_diagnostics_state.F |
66 |
THSICE_DIAGNOSTICS_STATE |
I Tsrf, iceMask,tmpFac,1,'SI_Tsrf ', |
|
./pkg/thsice/thsice_diagnostics_state.F |
69 |
THSICE_DIAGNOSTICS_STATE |
I Tice1, iceMask,tmpFac,1,'SI_Tice1', |
|
./pkg/thsice/thsice_diagnostics_state.F |
72 |
THSICE_DIAGNOSTICS_STATE |
I Tice2, iceMask,tmpFac,1,'SI_Tice2', |
|
./pkg/thsice/thsice_diagnostics_state.F |
86 |
THSICE_DIAGNOSTICS_STATE |
tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
117 |
THSICE_DO_ADVECT |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
129 |
THSICE_DO_ADVECT |
& _EXCH_XY_RL( iceMask, myThid ) |
|
./pkg/thsice/thsice_do_exch.F |
35 |
THSICE_DO_EXCH |
CALL EXCH_XY_RL( iceMask, myThid ) |
|
./pkg/thsice/thsice_impl_temp.F |
104 |
THSICE_IMPL_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
84 |
THSICE_IMPL_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_impl_temp.F |
90 |
THSICE_IMPL_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_ini_vars.F |
124 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceFract_InitFile,iceMask,1,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
151 |
THSICE_INI_VARS |
IF (iceMask(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_ini_vars.F |
163 |
THSICE_INI_VARS |
_EXCH_XY_RL(iceMask,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
181 |
THSICE_INI_VARS |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
57 |
THSICE_INI_VARS |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
164 |
THSICE_MAIN |
I iceMask, tOceMxL, |
|
./pkg/thsice/thsice_main.F |
173 |
THSICE_MAIN |
I iceMask, tOceMxL, |
|
./pkg/thsice/thsice_main.F |
232 |
THSICE_MAIN |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
312 |
THSICE_MAIN |
& *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
319 |
THSICE_MAIN |
& *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_monitor.F |
120 |
THSICE_MONITOR |
locMask(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
196 |
THSICE_MONITOR |
locMask(i,j,bi,bj)=iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_output.F |
280 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_fract.', suff,iceMask, |
|
./pkg/thsice/thsice_output.F |
330 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'iceMask', iceMask, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
54 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceMask, 1, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
77 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceMask', iceMask, myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
164 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
185 |
THSICE_STEP_FWD |
CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
188 |
THSICE_STEP_FWD |
I iceMask(1-OLx,1-OLy,bi,bj), oneRL, 1, |
|
./pkg/thsice/thsice_step_fwd.F |
190 |
THSICE_STEP_FWD |
CALL DIAGNOSTICS_FRACT_FILL( siceAlb, iceMask, oneRL, 1, |
|
./pkg/thsice/thsice_step_fwd.F |
196 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
212 |
THSICE_STEP_FWD |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
242 |
THSICE_STEP_FWD |
I iceMask(siLo,sjLo,bi,bj), tFrzOce, |
|
./pkg/thsice/thsice_step_fwd.F |
273 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
281 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
368 |
THSICE_STEP_FWD |
& isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
371 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj)=iceFrac(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
375 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
418 |
THSICE_STEP_FWD |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
124 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
142 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
146 |
THSICE_STEP_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
155 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
178 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
189 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
190 |
THSICE_STEP_TEMP |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_write_pickup.F |
57 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceMask, 1, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
91 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceMask', iceMask, myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
151 |
AIM_AIM2SIOCE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
163 |
AIM_AIM2SIOCE |
IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
106 |
AIM_SICE2AIM |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
86 |
AIM_SICE2AIM |
aimSIfrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
96 |
AIM_SICE2AIM |
iceMask(i,j,bi,bj) = aimSIfrc(i,j) |
|
./pkg/atm2d/calc_1dto2d.F |
146 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
164 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
175 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
78 |
CALC_1DTO2D |
& qneti_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
79 |
CALC_1DTO2D |
& qneto_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
81 |
CALC_1DTO2D |
& evapi_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
82 |
CALC_1DTO2D |
& evapo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
84 |
CALC_1DTO2D |
& precipi_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
85 |
CALC_1DTO2D |
& precipo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_zonal_means.F |
100 |
CALC_ZONAL_MEANS |
& rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
105 |
CALC_ZONAL_MEANS |
& Tsrf(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
107 |
CALC_ZONAL_MEANS |
& siceAlb(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
109 |
CALC_ZONAL_MEANS |
& icAlbNIR(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
64 |
CALC_ZONAL_MEANS |
I iceMask(siLo,sjLo,1,1), iceHeight(siLo,sjLo,1,1), |
|
./pkg/atm2d/calc_zonal_means.F |
78 |
CALC_ZONAL_MEANS |
& (1. _d 0-iceMask(i,j,1,1))*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
80 |
CALC_ZONAL_MEANS |
& rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
85 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
87 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
90 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
98 |
CALC_ZONAL_MEANS |
& (1. _d 0-iceMask(i,j,1,1))*mWgt |
|
./pkg/atm2d/fixed_flux_add.F |
138 |
FIXED_FLUX_ADD |
& (iceMask(i,j,1,1) .LT. 0.999 _d 0)) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
140 |
FIXED_FLUX_ADD |
& / (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
147 |
FIXED_FLUX_ADD |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
156 |
FIXED_FLUX_ADD |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/norm_ocn_fluxes.F |
71 |
NORM_OCN_FLUXES |
& iceMask(i,j,1,1)*dtcouplo |
|
./pkg/atm2d/norm_ocn_fluxes.F |
74 |
NORM_OCN_FLUXES |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) |
|
./pkg/atm2d/pass_thsice_fluxes.F |
39 |
PASS_THSICE_FLUXES |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/put_ocnvars.F |
68 |
PUT_OCNVARS |
sIceFrac_ocn(i,j) = iceMask(i,j,1,1) |
|
./pkg/atm2d/relax_add.F |
118 |
RELAX_ADD |
& (iceMask(i,j,1,1) .EQ. 0. _d 0)) THEN |
|
./pkg/atm2d/relax_add.F |
133 |
RELAX_ADD |
IF (iceMask(i,j,1,1) .LT. 0.999 _d 0) THEN |
|
./pkg/atm2d/relax_add.F |
135 |
RELAX_ADD |
& / (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/relax_add.F |
149 |
RELAX_ADD |
IF (iceMask(i,j,1,1).GT.0. _d 0) |
|
./pkg/atm2d/relax_add.F |
153 |
RELAX_ADD |
IF (iceMask(i,j,1,1).GT.0. _d 0) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
45 |
SUM_OCN_FLUXES |
IF (iceMask(i,j,1,1) .GT. windice_thres) THEN |
|
./pkg/atm2d/sum_ocn_fluxes.F |
48 |
SUM_OCN_FLUXES |
& (iceMask(i,j,1,1) + iceMask(i-1,j,1,1)) * 0.5 _d 0 ) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
51 |
SUM_OCN_FLUXES |
& (iceMask(i,j,1,1) + iceMask(i,j-1,1,1)) * 0.5 _d 0 ) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
54 |
SUM_OCN_FLUXES |
& * (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
60 |
SUM_OCN_FLUXES |
& precipo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
62 |
SUM_OCN_FLUXES |
& evapo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
64 |
SUM_OCN_FLUXES |
& qneto_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
69 |
SUM_OCN_FLUXES |
& solarnet_ocn_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_thsice_out.F |
37 |
SUM_THSICE_OUT |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/sum_thsice_out.F |
43 |
SUM_THSICE_OUT |
& + icFlxSW(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm2d/sum_yr_end_diags.F |
40 |
SUM_YR_END_DIAGS |
IF (iceMask(i,j,1,1).GT. 0. _d 0) |
|
./pkg/atm2d/sum_yr_end_diags.F |
41 |
SUM_YR_END_DIAGS |
& iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm2d/sum_yr_end_diags.F |
50 |
SUM_YR_END_DIAGS |
IF (iceMask(i,j,1,1).GT. 0. _d 0) |
|
./pkg/atm2d/sum_yr_end_diags.F |
51 |
SUM_YR_END_DIAGS |
& iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
69 |
ATM_APPLY_IMPORT |
iceMask (i,j,bi,bj) = sIceFrac_cpl (i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
101 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
103 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
86 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
88 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
68 |
ATM_STORE_THSICE |
& )*iceMask(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
80 |
ATM_STORE_THSICE |
sIceFrac_cpl(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
223 |
BLING_FIELDS_LOAD |
FIce(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
225 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
166 |
CHEAPAML_SEAICE |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
174 |
CHEAPAML_SEAICE |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
232 |
CHEAPAML_SEAICE |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
254 |
CHEAPAML_SEAICE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
59 |
DIC_FIELDS_UPDATE |
fIce(i,j,bi,bj) = iceMask(i,j,bi,bj) |