Changeset 1001 for LMDZ4/trunk/libf/phylmd/limit_read_mod.F90

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:

• LMDZ4/trunk/libf/phylmd/limit_read_mod.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/limit_read_mod.F90

@@ -15 +15 @@
 
   REAL, ALLOCATABLE, DIMENSION(:,:), SAVE, PRIVATE :: pctsrf
+!$OMP THREADPRIVATE(pctsrf)
   REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: rugos
+!$OMP THREADPRIVATE(rugos)
   REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: albedo
+!$OMP THREADPRIVATE(albedo)  
   REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: sst
-  LOGICAL :: read_continents=.FALSE.
+!$OMP THREADPRIVATE(sst)  
+  LOGICAL,SAVE :: read_continents=.FALSE.
+!$OMP THREADPRIVATE(read_continents) 
 
 CONTAINS
@@ -157 +162 @@
 !****************************************************************************************
 ! frequence de lecture des conditions limites (en pas de physique) 
-    INTEGER,SAVE                              :: lmt_pas   
+    INTEGER,SAVE                              :: lmt_pas
+!$OMP THREADPRIVATE(lmt_pas) 
     LOGICAL, SAVE                             :: first_call=.TRUE.
-    
+!$OMP THREADPRIVATE(first_call)    
 ! Locals variables
 !****************************************************************************************