Skip to content

Commit

Permalink
Merge branch 'maltrud/ocean/seaice-melt-alkalinity' into next (PR #6236)
Browse files Browse the repository at this point in the history
Assign alkalinity equals DIC in sea ice melt

Set alkalinity of sea ice melt flux into the ocean to be equal to DIC
flux, analogous to what is done with river runoff. Previously the flux
was zero, resulting in unphysical dilution.

Fixes #6210

[BFB] for all current tests
  • Loading branch information
jonbob committed Mar 6, 2024
2 parents b5fb28a + 98efda6 commit 78dff73
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions components/mpas-ocean/src/shared/mpas_ocn_tracer_ecosys.F
Original file line number Diff line number Diff line change
Expand Up @@ -1975,6 +1975,8 @@ subroutine ocn_tracer_ecosys_surface_flux_compute(activeTracers, ecosysTracers,
ecosysSurfaceFlux(fe_ind_MPAS,iCell) + iceFluxFeDissolved(iCell)/parm_Fe_bioavail
ecosysSurfaceFlux(dic_ind_MPAS,iCell) = &
ecosysSurfaceFlux(dic_ind_MPAS,iCell) + iceFluxDIC(iCell)
ecosysSurfaceFlux(alk_ind_MPAS,iCell) = &
ecosysSurfaceFlux(alk_ind_MPAS,iCell) + iceFluxDIC(iCell)
ecosysSurfaceFlux(dic_alt_co2_ind_MPAS,iCell) = &
ecosysSurfaceFlux(dic_alt_co2_ind_MPAS,iCell) + iceFluxDIC(iCell)
ecosysSurfaceFlux(doc_ind_MPAS,iCell) = &
Expand Down

0 comments on commit 78dff73

Please sign in to comment.