Skip to content
Draft
Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
19 commits
Select commit Hold shift + click to select a range
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion columnphysics/icepack_flux.F90
Original file line number Diff line number Diff line change
Expand Up @@ -299,7 +299,7 @@ subroutine set_sfcflux (aicen, &

character(len=*),parameter :: subname='(set_sfcflux)'

raicen = c1
raicen = c1 / aicen

#ifdef CICE_IN_NEMO
!----------------------------------------------------------------------
Expand Down
3 changes: 2 additions & 1 deletion columnphysics/icepack_itd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1053,6 +1053,7 @@ subroutine zap_small_areas (dt, &
first_ice ! For bgc tracers. Set to true if zapping ice

! local variables
real (kind=dbl_kind) :: aicenmin = 1.0e-5 ! Cutoff concentration for zapping

integer (kind=int_kind) :: &
n, k, it, & !counting indices
Expand Down Expand Up @@ -1080,7 +1081,7 @@ subroutine zap_small_areas (dt, &
call icepack_warnings_add(subname//' Zap ice: negative ice area')
return
elseif (abs(aicen(n)) /= c0 .and. &
abs(aicen(n)) <= puny) then
abs(aicen(n)) <= aicenmin) then

!-----------------------------------------------------------------
! Account for tracers important for conservation
Expand Down
4 changes: 2 additions & 2 deletions columnphysics/icepack_parameters.F90
Original file line number Diff line number Diff line change
Expand Up @@ -120,7 +120,7 @@ module icepack_parameters
kice = 2.03_dbl_kind ,&! thermal conductivity of fresh ice(W/m/deg)
! kice is only used with ktherm=1 (BL99) and conduct='MU71'
ksno = 0.30_dbl_kind ,&! thermal conductivity of snow (W/m/deg)
hs_min = 1.e-4_dbl_kind ,&! min snow thickness for computing zTsn (m)
hs_min = 0.10_dbl_kind ,&! min snow thickness for computing zTsn (m)
snowpatch = 0.02_dbl_kind ,&! parameter for fractional snow area (m)
saltmax = 3.2_dbl_kind ,&! max salinity at ice base for BL99 (ppt)
! phi_init, dSin0_frazil are for mushy thermo
Expand All @@ -131,7 +131,7 @@ module icepack_parameters
dSin0_frazil = c3 ,&! bulk salinity reduction of newly formed frazil
dts_b = 50._dbl_kind ,&! zsalinity timestep
ustar_min = 0.005_dbl_kind ,&! minimum friction velocity for ocean heat flux (m/s)
hi_min = p01 ,&! minimum ice thickness allowed (m) for thermo
hi_min = p1 ,&! minimum ice thickness allowed (m) for thermo
! mushy thermo
a_rapid_mode = 0.5e-3_dbl_kind,&! channel radius for rapid drainage mode (m)
Rac_rapid_mode = 10.0_dbl_kind,&! critical Rayleigh number
Expand Down
Loading
Loading