Skip to content

Adapt ClimaOcean to B-grid dynamics in the sea-ice #500

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
wants to merge 13 commits into
base: main
Choose a base branch
from
Draft

Adapt ClimaOcean to B-grid dynamics in the sea-ice #500

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
13 commits
Select commit Hold shift + click to select a range
13cad90
adapt to b-grid dynamics
simone-silvestri May 6, 2025
aed2991
Merge branch 'main' into ss/b-grid-sea-ice
simone-silvestri May 14, 2025
6645847
commit
simone-silvestri May 14, 2025
46d8dbb
correction
simone-silvestri May 14, 2025
e1145a6
Merge branch 'main' into ss/b-grid-sea-ice
simone-silvestri May 18, 2025
f3f067c
Merge branch 'main' into ss/b-grid-sea-ice
simone-silvestri May 19, 2025
79c9b47
Merge branch 'main' into ss/b-grid-sea-ice
simone-silvestri Jul 28, 2025
b6ba841
try it out
simone-silvestri Jul 28, 2025
050fe41
use correct branch
simone-silvestri Jul 28, 2025
a375e05
Update sea_ice_ocean_fluxes.jl
simone-silvestri Jul 28, 2025
0170545
use correct location
simone-silvestri Jul 28, 2025
14a5932
add this
simone-silvestri Jul 28, 2025
7c13839
update
simone-silvestri Aug 25, 2025
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
12 changes: 7 additions & 5 deletions src/OceanSeaIceModels/InterfaceComputations/roughness_lengths.jl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -20,23 +20,25 @@ Base.show(io::IO, ::ScalarRoughnessLength{FT}) where FT = print(io, "ScalarRough

struct WindDependentWaveFormulation{FT}
Umax :: FT
αmin :: FT
ℂ₁ :: FT
ℂ₂ :: FT
end

"""
WindDependentWaveFormulation(FT = Oceananigans.defaults.FloatType;
Umax = 19, ℂ₁ = 0.0017, ℂ₂ = -0.005)
Umax = 19, αmin = 0.011, ℂ₁ = 0.0017, ℂ₂ = -0.005)
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

what's "alpha"? you may just want to use a more verbose name.


A gravity wave parameter based on the wind speed `ΔU` with the formula `ℂ₁ * max(ΔU, Umax) + ℂ₂`.
A gravity wave parameter based on the wind speed `ΔU` with the formula `max(αmin, ℂ₁ * min(ΔU, Umax) + ℂ₂`).
"""
WindDependentWaveFormulation(FT=Oceananigans.defaults.FloatType; Umax = 19, ℂ₁ = 0.0017, ℂ₂ = -0.005) =
WindDependentWaveFormulation(FT=Oceananigans.defaults.FloatType; Umax = 19, αmin = 0.011, ℂ₁ = 0.0017, ℂ₂ = -0.005) =
WindDependentWaveFormulation(convert(FT, Umax),
convert(FT, αmin),
convert(FT, ℂ₁),
convert(FT, ℂ₂))

gravity_wave_parameter(α::Number, args...) = α
gravity_wave_parameter(α::WindDependentWaveFormulation, ΔU) = α.ℂ₁ * max(ΔU, α.Umax) + α.ℂ₂
gravity_wave_parameter(α::WindDependentWaveFormulation, ΔU) = max(α.αmin, α.ℂ₁ * min(ΔU, α.Umax) + α.ℂ₂)

"""
ScalarRoughnessLength(FT = Float64;
Expand Down Expand Up @@ -88,7 +90,7 @@ function MomentumRoughnessLength(FT=Oceananigans.defaults.FloatType;
gravitational_acceleration = default_gravitational_acceleration,
maximum_roughness_length = 1,
air_kinematic_viscosity = 1.5e-5,
wave_formulation = 0.02,
wave_formulation = WindDependentWaveFormulation(FT),
smooth_wall_parameter = 0.11)

if wave_formulation isa Number
Expand Down
4 changes: 2 additions & 2 deletions src/SeaIceSimulations.jl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -92,8 +92,8 @@ function sea_ice_dynamics(grid, ocean=nothing;
SSU = Oceananigans.Fields.ZeroField()
SSV = Oceananigans.Fields.ZeroField()
else
SSU = Field(@at((Face, Face, Nothing), view(ocean.model.velocities.u, :, :, grid.Nz)))
SSV = Field(@at((Face, Face, Nothing), view(ocean.model.velocities.v, :, :, grid.Nz)))
SSU = view(ocean.model.velocities.u, :, :, grid.Nz)
SSV = view(ocean.model.velocities.v, :, :, grid.Nz)
if isnothing(coriolis)
coriolis = ocean.model.coriolis
end
Expand Down
Loading