From f6524adeeb5e4f0a2738ae4b104c7941aa0b5453 Mon Sep 17 00:00:00 2001 From: Keith Lindsay Date: Tue, 24 Aug 2021 06:56:14 -0600 Subject: [PATCH] Add run-time parameters CFC11_IC_VAL and CFC12_IC_VAL. --- src/tracer/MOM_CFC_cap.F90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/tracer/MOM_CFC_cap.F90 b/src/tracer/MOM_CFC_cap.F90 index 2a7516b4d2..959348b803 100644 --- a/src/tracer/MOM_CFC_cap.F90 +++ b/src/tracer/MOM_CFC_cap.F90 @@ -120,6 +120,12 @@ function register_CFC_cap(HI, GV, param_file, CS, tr_Reg, restart_CS) "if they are not found in the restart files. Otherwise "//& "it is a fatal error if tracers are not found in the "//& "restart files of a restarted run.", default=.false.) + call get_param(param_file, mdl, "CFC11_IC_VAL", CS%CFC11_IC_val, & + "Value that CFC_11 is set to when it is not read from a file.", & + units="mol kg-1", default=0.0) + call get_param(param_file, mdl, "CFC12_IC_VAL", CS%CFC12_IC_val, & + "Value that CFC_12 is set to when it is not read from a file.", & + units="mol kg-1", default=0.0) ! the following params are not used in this module. Instead, they are used in ! the cap but are logged here to keep all the CFC cap params together.