From 9733088316af5d37286cb1b92763124d2fa9800c Mon Sep 17 00:00:00 2001 From: Michael Levy Date: Tue, 4 Jun 2024 16:05:05 -0600 Subject: [PATCH] initialize coccoN by scaling spC no coccoC in this initial condition file, but coccoC = 0.07*spC --- tests/driver_src/marbl_io_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/driver_src/marbl_io_mod.F90 b/tests/driver_src/marbl_io_mod.F90 index fe633727..8e6f016b 100644 --- a/tests/driver_src/marbl_io_mod.F90 +++ b/tests/driver_src/marbl_io_mod.F90 @@ -568,8 +568,8 @@ subroutine get_tracer_name_file_and_scale_factor(tracer_name, tracer_name_file, tracer_name_file = 'diazC' scale_factor = 16._r8 / 112._r8 case('coccoN') - tracer_name_file = 'coccoC' - scale_factor = 16._r8 / 112._r8 + tracer_name_file = 'spC' ! no coccoC to scale, use coccoC = 0.07*spC + scale_factor = 0.07_r8 * (16._r8 / 112._r8) case('coccoChl') tracer_name_file = 'spChl' scale_factor = 0.07_r8