| File |
Line number |
Procedure |
Code |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
118 |
OCN_APPLY_IMPORT |
iceHeight (i,j,bi,bj) = sIceThick_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
194 |
OCN_APPLY_IMPORT |
_EXCH_XY_RL( iceHeight , myThid ) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
114 |
OCN_STORE_MY_DATA |
sIceThick_cpl(i,j,bi,bj) = iceHeight(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 |
28 |
NO PROCEDURE |
_RL iceHeight (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_advdiff.F |
161 |
THSICE_ADVDIFF |
I iceHeight, iceMask,tmpFac,1,'SI_AdvHi', |
|
./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 |
271 |
THSICE_ADVDIFF |
oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
277 |
THSICE_ADVDIFF |
U iceVol, iceHeight(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
315 |
THSICE_ADVDIFF |
& iceHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
405 |
THSICE_ADVDIFF |
& -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
414 |
THSICE_ADVDIFF |
& iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
458 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) *iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
463 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
475 |
THSICE_ADVDIFF |
IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN |
|
./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 |
481 |
THSICE_ADVDIFF |
& *hIceMin/iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
482 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
491 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
493 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = rhoi*iceHeight(i,j,bi,bj)*saltIce |
|
./pkg/thsice/thsice_advdiff.F |
496 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
505 |
THSICE_ADVDIFF |
iceHeight (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
550 |
THSICE_ADVDIFF |
I iceHeight, iceMask,tmpFac,1,'SI_AdvHi', |
|
./pkg/thsice/thsice_advdiff.F |
560 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_ave.F |
60 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_iceH_Ave, iceHeight, iceMask, |
|
./pkg/thsice/thsice_check_conserv.F |
68 |
THSICE_CHECK_CONSERV |
& -rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
70 |
THSICE_CHECK_CONSERV |
dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
71 |
THSICE_CHECK_CONSERV |
dSalt = rhoi*iceHeight(i,j,bi,bj)*saltice |
|
./pkg/thsice/thsice_cost_test.F |
95 |
THSICE_COST_TEST |
& tempVar*rA(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_state.F |
60 |
THSICE_DIAGNOSTICS_STATE |
I iceHeight, iceMask,tmpFac,1,'SI_Thick', |
|
./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_diffusion.F |
78 |
THSICE_DIFFUSION |
& +rhoi*iceHeight(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_do_advect.F |
116 |
THSICE_DO_ADVECT |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_do_exch.F |
38 |
THSICE_DO_EXCH |
CALL EXCH_XY_RL( iceHeight, 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 |
90 |
THSICE_IMPL_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_ini_vars.F |
127 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceThick_InitFile,iceHeight,1,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
164 |
THSICE_INI_VARS |
_EXCH_XY_RL(iceHeight, myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
180 |
THSICE_INI_VARS |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_ini_vars.F |
58 |
THSICE_INI_VARS |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
231 |
THSICE_MAIN |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_monitor.F |
132 |
THSICE_MONITOR |
I iceHeight, locMask, maskInC, rA, yC, locDr, |
|
./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 |
282 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_iceH.', suff,iceHeight, |
|
./pkg/thsice/thsice_output.F |
331 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
55 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceHeight,2, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
78 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
220 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
246 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
305 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
335 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
363 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
376 |
THSICE_STEP_FWD |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
417 |
THSICE_STEP_FWD |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./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 |
146 |
THSICE_STEP_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
178 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_write_pickup.F |
58 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceHeight,2, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
92 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/aim_v23/aim_sice2aim.F |
106 |
AIM_SICE2AIM |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/atm2d/calc_zonal_means.F |
64 |
CALC_ZONAL_MEANS |
I iceMask(siLo,sjLo,1,1), iceHeight(siLo,sjLo,1,1), |
|
./pkg/atm2d/norm_ocn_fluxes.F |
73 |
NORM_OCN_FLUXES |
& iceHeight(i,j,1,1)*dtcouplo |
|
./pkg/atm_compon_interf/atm_apply_import.F |
70 |
ATM_APPLY_IMPORT |
iceHeight (i,j,bi,bj) = sIceThick_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
67 |
ATM_STORE_THSICE |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
94 |
ATM_STORE_THSICE |
sIceThick_cpl(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
166 |
CHEAPAML_SEAICE |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |