Ignore:
Timestamp:
Jun 14, 2017, 10:26:55 AM (7 years ago)
Author:
jghattas
Message:
  • Added OMP_THREADPRIVATE for varibales fields_cpl, nb_fields_cpl, type_veget.
  • Removed variable flag_omp never used.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

    r2572 r2912  
    144144    INTEGER                                   :: error
    145145    INTEGER, SAVE                             :: nb_fields_cpl ! number of fields for the climate-carbon coupling (between ATM and ORCHIDEE).
     146    !$OMP THREADPRIVATE(nb_fields_cpl)
    146147    REAL, SAVE, ALLOCATABLE, DIMENSION(:,:)   :: fields_cpl    ! Fluxes for the climate-carbon coupling
     148    !$OMP THREADPRIVATE(fields_cpl)
    147149    REAL, DIMENSION(klon)                     :: swdown_vrai
    148150    CHARACTER (len = 20)                      :: modname = 'surf_land_orchidee'
Note: See TracChangeset for help on using the changeset viewer.