| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
47 |
AIM_AIM2DYN_EXCHANGES |
IF (useThSIce) _EXCH_XY_R8( iceMask, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
103 |
AIM_SICE2AIM |
iceMask(i,j,bi,bj) = aimSIfrc(i,j) |
|
./pkg/aim_v23/aim_sice2aim.F |
113 |
AIM_SICE2AIM |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
93 |
AIM_SICE2AIM |
aimSIfrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
154 |
AIM_AIM2SIOCE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
166 |
AIM_AIM2SIOCE |
IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/aim_compon_interf/atm_store_taux.F |
70 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
72 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
65 |
ATM_STORE_SEAICE |
& )*iceMask(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
70 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
72 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
|
./pkg/thsice/thsice_albedo.F |
12 |
THSICE_ALBEDO |
I iceMask, hIce, hSnow, tSrf, ageSnw, |
|
./pkg/thsice/thsice_albedo.F |
53 |
THSICE_ALBEDO |
_RL iceMask(siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_albedo.F |
89 |
THSICE_ALBEDO |
IF ( iceMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
12 |
THSICE_CALC_THICKN |
I iceMask, tFrz, tOce, v2oc, |
|
./pkg/thsice/thsice_calc_thickn.F |
173 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
642 |
THSICE_CALC_THICKN |
fzMlOc(i,j) = frzmlt - Fbot*iceMask(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
652 |
THSICE_CALC_THICKN |
I iceMask(i,j), iceFrac, hi, hs, qicen, |
|
./pkg/thsice/thsice_calc_thickn.F |
87 |
THSICE_CALC_THICKN |
_RL iceMask(siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_step_temp.F |
106 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
111 |
THSICE_STEP_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
129 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
141 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
142 |
THSICE_STEP_TEMP |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
94 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_monitor.F |
120 |
THSICE_MONITOR |
I iceheight, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
142 |
THSICE_MONITOR |
I snowheight, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
160 |
THSICE_MONITOR |
I 1, Qice1, iceMask, iceheight, rA, locDr, |
|
./pkg/thsice/thsice_monitor.F |
164 |
THSICE_MONITOR |
I 1, Qice2, iceMask, iceheight, rA, locDr, |
|
./pkg/thsice/thsice_monitor.F |
174 |
THSICE_MONITOR |
I Tsrf, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
195 |
THSICE_MONITOR |
I Tice1, iceMask, iceheight, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
220 |
THSICE_MONITOR |
I Tice2, iceMask, iceheight, rA, yC, locDr, |
|
./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_ave.F |
70 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_snowPr_Ave,snowPrc, iceMask, |
|
./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_write_pickup.F |
50 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask, 1, |
|
./pkg/thsice/thsice_write_pickup.F |
87 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceMask', iceMask, myThid) |
|
./pkg/thsice/thsice_output.F |
323 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_fract.', suff,iceMask, |
|
./pkg/thsice/thsice_output.F |
374 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'iceMask', iceMask, myThid) |
|
./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_main.F |
182 |
THSICE_MAIN |
I iceMask, |
|
./pkg/thsice/thsice_main.F |
191 |
THSICE_MAIN |
I iceMask, |
|
./pkg/thsice/thsice_main.F |
224 |
THSICE_MAIN |
& *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
231 |
THSICE_MAIN |
& *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
245 |
THSICE_MAIN |
_EXCH_XY_R8( iceMask, myThid ) |
|
./pkg/thsice/thsice_solve4temp.F |
13 |
THSICE_SOLVE4TEMP |
I iceMask, hIce, hSnow, tFrz, flxExSW, |
|
./pkg/thsice/thsice_solve4temp.F |
169 |
THSICE_SOLVE4TEMP |
IF ( iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
93 |
THSICE_SOLVE4TEMP |
_RL iceMask(siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_step_fwd.F |
115 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
138 |
THSICE_STEP_FWD |
I snowPrc, iceMask,tmpFac,1,'SIsnwPrc', |
|
./pkg/thsice/thsice_step_fwd.F |
141 |
THSICE_STEP_FWD |
I siceAlb, iceMask,tmpFac,1,'SIalbedo', |
|
./pkg/thsice/thsice_step_fwd.F |
147 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
163 |
THSICE_STEP_FWD |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
189 |
THSICE_STEP_FWD |
I iceMask(siLo,sjLo,bi,bj), tFrzOce, |
|
./pkg/thsice/thsice_step_fwd.F |
203 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
205 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
266 |
THSICE_STEP_FWD |
& isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
269 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj)=iceFrac(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
273 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
288 |
THSICE_STEP_FWD |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_read_pickup.F |
43 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,iceMask, 1,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
66 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceMask', iceMask, myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
104 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceFract_InitFile,iceMask,1,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
125 |
THSICE_INI_VARS |
_EXCH_XY_R8(iceMask,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
147 |
THSICE_INI_VARS |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
53 |
THSICE_INI_VARS |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_diagnostics_fill.F |
51 |
THSICE_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(iceMask,'SI_Fract',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_fill.F |
57 |
THSICE_DIAGNOSTICS_FILL |
I iceheight, iceMask,tmpFac,1,'SI_Thick', |
|
./pkg/thsice/thsice_diagnostics_fill.F |
60 |
THSICE_DIAGNOSTICS_FILL |
I snowheight,iceMask,tmpFac,1,'SI_SnowH', |
|
./pkg/thsice/thsice_diagnostics_fill.F |
63 |
THSICE_DIAGNOSTICS_FILL |
I Tsrf, iceMask,tmpFac,1,'SI_Tsrf ', |
|
./pkg/thsice/thsice_diagnostics_fill.F |
66 |
THSICE_DIAGNOSTICS_FILL |
I Tice1, iceMask,tmpFac,1,'SI_Tice1', |
|
./pkg/thsice/thsice_diagnostics_fill.F |
69 |
THSICE_DIAGNOSTICS_FILL |
I Tice2, iceMask,tmpFac,1,'SI_Tice2', |
|
./pkg/thsice/thsice_diagnostics_fill.F |
77 |
THSICE_DIAGNOSTICS_FILL |
tmpFld(i,j) = iceMask(i,j,bi,bj)*iceheight(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
37 |
SEAICE_CALC_RHS |
_RL iceMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_rhs.F |
87 |
SEAICE_CALC_RHS |
& - iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
8 |
SEAICE_CALC_RHS |
I uc, vc, iceFld, iceMask, xA, yA, |
|
./pkg/seaice/seaice_map_thsice.F |
47 |
SEAICE_MAP_THSICE |
AREA(i,j,1,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_map_thsice.F |
48 |
SEAICE_MAP_THSICE |
HEFF(i,j,1,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
248 |
SEAICE_ADVDIFF |
iceMask(I,J,bi,bj) = AREA(I,J,1,bi,bj) |