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

Timestamp:

Mar 23, 2021, 4:14:07 PM (3 years ago)

Author:

lmdz-users

Message:

Modifications from Thibaut to create an ESM with interactive CO2 + INCA aerosols

File:

• LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90

@@ -45 +45 @@
   LOGICAL, PUBLIC :: read_fco2_ocean_cor    ! flag to read corrective oceanic CO2 flux
 !$OMP THREADPRIVATE(read_fco2_ocean_cor)  
-  REAL, PUBLIC :: var_fco2_ocean_cor        ! corrective oceanic CO2 flux
+  REAL, SAVE, PUBLIC :: var_fco2_ocean_cor        ! corrective oceanic CO2 flux
 !$OMP THREADPRIVATE(var_fco2_ocean_cor)
-  REAL, PUBLIC :: ocean_area_tot            ! total oceanic area to convert flux
+  REAL, SAVE, PUBLIC :: ocean_area_tot            ! total oceanic area to convert flux
 !$OMP THREADPRIVATE(ocean_area_tot)
   LOGICAL, PUBLIC :: read_fco2_land_cor     ! flag to read corrective land CO2 flux
 !$OMP THREADPRIVATE(read_fco2_land_cor)  
-  REAL, PUBLIC :: var_fco2_land_cor         ! corrective land CO2 flux
+  REAL, SAVE, PUBLIC :: var_fco2_land_cor         ! corrective land CO2 flux
 !$OMP THREADPRIVATE(var_fco2_land_cor)
-  REAL, PUBLIC :: land_area_tot             ! total land area to convert flux
+  REAL, SAVE, PUBLIC :: land_area_tot             ! total land area to convert flux
 !$OMP THREADPRIVATE(land_area_tot)
 
@@ -108 +108 @@
   REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_ocean ! Net flux from ocean [kgCO2/m2/s]
 !$OMP THREADPRIVATE(fco2_ocean)
-  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_ocean_cor ! Net corrective flux from ocean [kgCO2/m2/s]
+  REAL, DIMENSION(:), ALLOCATABLE, SAVE, PUBLIC :: fco2_ocean_cor ! Net corrective flux from ocean [kgCO2/m2/s]
 !$OMP THREADPRIVATE(fco2_ocean_cor)
-  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_land_cor  ! Net corrective flux from land [kgCO2/m2/s]
+  REAL, DIMENSION(:), ALLOCATABLE, SAVE, PUBLIC :: fco2_land_cor  ! Net corrective flux from land [kgCO2/m2/s]
 !$OMP THREADPRIVATE(fco2_land_cor)
 
@@ -123 +123 @@
 
 ! Calculated co2 field to be send to the ocean via the coupler and to ORCHIDEE 
-  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: co2_send ! Field allocated in phyetat0
+  REAL, DIMENSION(:), ALLOCATABLE, SAVE, PUBLIC :: co2_send ! Field allocated in phyetat0
 !$OMP THREADPRIVATE(co2_send)