Changeset 3383 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Sep 3, 2018, 11:12:17 PM (6 years ago)
Author:
oboucher
Message:

Correcting the size of the allocate

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/tracco2i_mod.F90

    r3368 r3383  
    135135!$OMP THREADPRIVATE(flx_co2ff, flx_co2bb)
    136136
    137     LOGICAL, PARAMETER :: readco2ff=.TRUE., readco2bb=.FALSE. !!may be controlled via the .def later on
     137!! may be controlled via the .def later on
     138!! also co2bb for now comes from ORCHIDEE
     139    LOGICAL, PARAMETER :: readco2ff=.TRUE., readco2bb=.FALSE.
    138140
    139141    IF (debutphy) THEN
     
    145147    IF (is_mpi_root) THEN
    146148   
    147       IF (.NOT.ALLOCATED(flx_co2ff_glo)) ALLOCATE(flx_co2ff_glo(n_glo,n_month))
    148       IF (.NOT.ALLOCATED(flx_co2bb_glo)) ALLOCATE(flx_co2bb_glo(n_glo,n_month))
     149      IF (.NOT.ALLOCATED(flx_co2ff_glo)) ALLOCATE(flx_co2ff_glo(klon_glo,12))
     150      IF (.NOT.ALLOCATED(flx_co2bb_glo)) ALLOCATE(flx_co2bb_glo(klon_glo,12))
    149151
    150152!--reading CO2 fossil fuel emissions
Note: See TracChangeset for help on using the changeset viewer.