Changeset 3383 for LMDZ6/trunk/libf

Timestamp:

Sep 3, 2018, 11:12:17 PM (6 years ago)

Author:

oboucher

Message:

Correcting the size of the allocate

File:

• LMDZ6/trunk/libf/phylmd/tracco2i_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/tracco2i_mod.F90

@@ -135 +135 @@
 !$OMP THREADPRIVATE(flx_co2ff, flx_co2bb)
 
-    LOGICAL, PARAMETER :: readco2ff=.TRUE., readco2bb=.FALSE. !!may be controlled via the .def later on
+!! may be controlled via the .def later on
+!! also co2bb for now comes from ORCHIDEE
+    LOGICAL, PARAMETER :: readco2ff=.TRUE., readco2bb=.FALSE. 
 
     IF (debutphy) THEN 
@@ -145 +147 @@
     IF (is_mpi_root) THEN
     
-      IF (.NOT.ALLOCATED(flx_co2ff_glo)) ALLOCATE(flx_co2ff_glo(n_glo,n_month))
-      IF (.NOT.ALLOCATED(flx_co2bb_glo)) ALLOCATE(flx_co2bb_glo(n_glo,n_month))
+      IF (.NOT.ALLOCATED(flx_co2ff_glo)) ALLOCATE(flx_co2ff_glo(klon_glo,12))
+      IF (.NOT.ALLOCATED(flx_co2bb_glo)) ALLOCATE(flx_co2bb_glo(klon_glo,12))
 
 !--reading CO2 fossil fuel emissions