Ignore:
Timestamp:
Oct 6, 2008, 11:11:53 AM (16 years ago)
Author:
Laurent Fairhead
Message:
  • Modifs sur le parallelisme: masquage dans la physique
  • Inclusion strato
  • mise en coherence etat0
  • le mode offline fonctionne maintenant en parallele,
  • les fichiers de la dynamiques sont correctement sortis et peuvent etre reconstruit avec rebuild
  • la version parallele de la dynamique peut s'executer sans MPI (sur 1 proc)
  • L'OPENMP fonctionne maintenant sans la parallelisation MPI.

YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/limit_read_mod.F90

    r996 r1001  
    1515
    1616  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE, PRIVATE :: pctsrf
     17!$OMP THREADPRIVATE(pctsrf)
    1718  REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: rugos
     19!$OMP THREADPRIVATE(rugos)
    1820  REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: albedo
     21!$OMP THREADPRIVATE(albedo) 
    1922  REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: sst
    20   LOGICAL :: read_continents=.FALSE.
     23!$OMP THREADPRIVATE(sst) 
     24  LOGICAL,SAVE :: read_continents=.FALSE.
     25!$OMP THREADPRIVATE(read_continents)
    2126
    2227CONTAINS
     
    157162!****************************************************************************************
    158163! frequence de lecture des conditions limites (en pas de physique)
    159     INTEGER,SAVE                              :: lmt_pas   
     164    INTEGER,SAVE                              :: lmt_pas
     165!$OMP THREADPRIVATE(lmt_pas)
    160166    LOGICAL, SAVE                             :: first_call=.TRUE.
    161    
     167!$OMP THREADPRIVATE(first_call)   
    162168! Locals variables
    163169!****************************************************************************************
Note: See TracChangeset for help on using the changeset viewer.