initialize coccoN by scaling spC

no coccoC in this initial condition file, but coccoC = 0.07*spC
mnlevy1981 · Jun 4, 2024 · 9733088 · 9733088
1 parent be7794d
commit 9733088
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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