From 2cd1aff02687ae75f727a577147a482bf4caf543 Mon Sep 17 00:00:00 2001 From: jlinmod <134327817+jlinmod@users.noreply.github.com> Date: Sat, 26 Apr 2025 22:20:09 -0400 Subject: [PATCH] Update marbl_init_mod_docvent_removal.F90 --- unchanged/marbl_init_mod.F90 | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/unchanged/marbl_init_mod.F90 b/unchanged/marbl_init_mod.F90 index 862911e..fc504b7 100644 --- a/unchanged/marbl_init_mod.F90 +++ b/unchanged/marbl_init_mod.F90 @@ -895,6 +895,14 @@ subroutine marbl_init_interior_tendency_forcing_fields(& call interior_tendency_forcings(id)%set_rank(num_elements, 1, marbl_status_log, dim1 = num_levels) end if + ! DOC fluid Flux + if (id .eq. ind%docfluidy_id) then + found = .true. + interior_tendency_forcings(id)%metadata%varname = 'DOC fluid Flux' + interior_tendency_forcings(id)%metadata%field_units = '1/yr' + call interior_tendency_forcings(id)%set_rank(num_elements, 1, marbl_status_log, dim1 = num_levels) + end if + ! O2 Consumption Scale Factor if (id .eq. ind%o2_consumption_scalef_id) then found = .true.