Changeset 2912 for LMDZ5/trunk


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.
Location:
LMDZ5/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed

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

    r2571 r2912  
    3030  PUBLIC  :: surf_land_orchidee
    3131
    32   LOGICAL, ALLOCATABLE, SAVE :: flag_omp(:)
    3332CONTAINS
    3433!

  • 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'

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

    r2571 r2912  
    3333  PUBLIC  :: surf_land_orchidee
    3434
    35   LOGICAL, ALLOCATABLE, SAVE :: flag_omp(:)
    3635CONTAINS
    3736!

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

    r2538 r2912  
    99 
    1010  LOGICAL, SAVE          :: ok_veget      ! true for use of vegetation model ORCHIDEE
    11   CHARACTER(len=10), SAVE :: type_veget    ! orchidee/y/bucket/n/betaclim
    1211  !$OMP THREADPRIVATE(ok_veget)
    13   ! Martin
     12
     13  CHARACTER(len=10), SAVE :: type_veget   ! orchidee/y/bucket/n/betaclim
     14  !$OMP THREADPRIVATE(type_veget)
     15
    1416  LOGICAL, SAVE          :: ok_snow       ! true for coupling to snow model SISVAT
    1517  !$OMP THREADPRIVATE(ok_snow)
    16   ! Martin
    1718
    1819  CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
Note: See TracChangeset for help on using the changeset viewer.