11using ClimaSeaIce
2- using ClimaSeaIce: SeaIceModel, SlabSeaIceThermodynamics , PhaseTransitions, ConductiveFlux
2+ using ClimaSeaIce: SeaIceModel, SlabThermodynamics , PhaseTransitions, ConductiveFlux
33using ClimaSeaIce. SeaIceThermodynamics: IceWaterThermalEquilibrium
44using ClimaSeaIce. SeaIceDynamics: SplitExplicitSolver, SemiImplicitStress, SeaIceMomentumEquation, StressBalanceFreeDrift
55using ClimaSeaIce. Rheologies: IceStrength, ElastoViscoPlasticRheology
@@ -23,7 +23,7 @@ function sea_ice_simulation(grid, ocean=nothing;
2323 dynamics = sea_ice_dynamics (grid, ocean),
2424 bottom_heat_boundary_condition = nothing ,
2525 top_heat_boundary_condition = nothing ,
26- phase_transitions = PhaseTransitions (; ice_heat_capacity, ice_density),
26+ phase_transitions = PhaseTransitions (; heat_capacity = ice_heat_capacity, density = ice_density),
2727 conductivity = 2 , # kg m s⁻³ K⁻¹
2828 internal_heat_flux = ConductiveFlux (; conductivity))
2929
@@ -46,11 +46,11 @@ function sea_ice_simulation(grid, ocean=nothing;
4646 bottom_heat_boundary_condition = IceWaterThermalEquilibrium (surface_ocean_salinity)
4747 end
4848
49- ice_thermodynamics = SlabSeaIceThermodynamics (grid;
50- internal_heat_flux,
51- phase_transitions,
52- top_heat_boundary_condition,
53- bottom_heat_boundary_condition)
49+ ice_thermodynamics = SlabThermodynamics (grid;
50+ internal_heat_flux,
51+ phase_transitions,
52+ top_heat_boundary_condition,
53+ bottom_heat_boundary_condition)
5454
5555 bottom_heat_flux = Field {Center, Center, Nothing} (grid)
5656 top_heat_flux = Field {Center, Center, Nothing} (grid)
109109sea_ice_thickness (sea_ice:: Simulation{<:SeaIceModel} ) = sea_ice. model. ice_thickness
110110sea_ice_concentration (sea_ice:: Simulation{<:SeaIceModel} ) = sea_ice. model. ice_concentration
111111
112- heat_capacity (sea_ice:: Simulation{<:SeaIceModel} ) = sea_ice. model. ice_thermodynamics. phase_transitions. ice_heat_capacity
113- reference_density (sea_ice:: Simulation{<:SeaIceModel} ) = sea_ice. model. ice_thermodynamics. phase_transitions. ice_density
112+ heat_capacity (sea_ice:: Simulation{<:SeaIceModel} ) = sea_ice. model. ice_thermodynamics. phase_transitions. heat_capacity
113+ reference_density (sea_ice:: Simulation{<:SeaIceModel} ) = sea_ice. model. ice_thermodynamics. phase_transitions. density
114114
115115function net_fluxes (sea_ice:: Simulation{<:SeaIceModel} )
116116 net_momentum_fluxes = if isnothing (sea_ice. model. dynamics)
0 commit comments