Changeset 3453 for LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90

Timestamp:

Jan 28, 2019, 7:31:11 PM (5 years ago)

Author:

oboucher

Message:

Adding some diagnostics for type_trac=co2i

File:

• LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90

@@ -82 +82 @@
   REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_bb ! Emission from biomass burning [kgCO2/m2/s]
 !$OMP THREADPRIVATE(fco2_bb)
+  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_land  ! Net flux from terrestrial ecocsystems [kgCO2/m2/s]
+!$OMP THREADPRIVATE(fco2_land)
+  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_ocean ! Net flux from ocean [kgCO2/m2/s]
+!$OMP THREADPRIVATE(fco2_ocean)
 
   REAL, DIMENSION(:,:), ALLOCATABLE :: dtr_add       ! Tracer concentration to be injected