Changeset 6393 for branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_var.f90

Timestamp:

2019-12-16T12:11:50+01:00 (4 years ago)

Author:

josefine.ghattas

Message:

As done in ORCHIDEE_2_0:
Added new option for downregulation parametrization. Set DOWNREGULATION_CO2_NEW=y in run.def to activate. This option will be availble for configurations IPSLCM66.1.11 and later.

IF both DOWNREGULATION_CO2 and DOWNREGULATION_CO2_NEW are true, then DOWNREGULATION_CO2 will be set to false.

See ticket #641

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_var.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_var.f90

@@ -629 +629 @@
   REAL(r_std), SAVE :: laimax = 12.             !! Maximal LAI used for splitting LAI into N layers (m^2.m^{-2})
 !$OMP THREADPRIVATE(laimax)
-  LOGICAL, SAVE :: downregulation_co2 = .TRUE.             !! Set to .TRUE. if you want CO2 downregulation.
+  LOGICAL, SAVE :: downregulation_co2 = .TRUE.             !! Set to .TRUE. if you want CO2 downregulation version used for CMIP6 6.1.0-6.1.10
 !$OMP THREADPRIVATE(downregulation_co2)
+  LOGICAL, SAVE :: downregulation_co2_new = .FALSE.        !! Set to .TRUE. if you want CO2 downregulation version revised for CMIP6 6.1.11
+!$OMP THREADPRIVATE(downregulation_co2_new)
   REAL(r_std), SAVE :: downregulation_co2_baselevel = 380. !! CO2 base level (ppm)
 !$OMP THREADPRIVATE(downregulation_co2_baselevel)
+  REAL(r_std), SAVE :: downregulation_co2_minimum = 280.   !! CO2 value above which downregulation is taken into account 
+!$OMP THREADPRIVATE(downregulation_co2_minimum)
 
   REAL(r_std), SAVE :: gb_ref = 1./25.                     !! Leaf bulk boundary layer resistance (s m-1)