Changeset 1001 for LMDZ4/trunk/libf/phylmd/mod_phys_lmdz_omp_data.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/mod_phys_lmdz_omp_data.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/mod_phys_lmdz_omp_data.F90

@@ -7 +7 @@
   INTEGER,SAVE :: omp_rank
   LOGICAL,SAVE :: is_omp_root
-  LOGICAL,SAVE :: is_ok_omp
+  LOGICAL,SAVE :: is_using_omp
   
   INTEGER,SAVE,DIMENSION(:),ALLOCATABLE :: klon_omp_para_nb
@@ -27 +27 @@
     INTEGER :: i
 
-#ifdef _OPENMP    
+#ifdef CPP_OMP    
     INTEGER :: OMP_GET_NUM_THREADS
     EXTERNAL OMP_GET_NUM_THREADS
@@ -34 +34 @@
 #endif  
 
-#ifdef _OPENMP
+#ifdef CPP_OMP
 !$OMP MASTER
-        is_ok_omp=.TRUE.
+        is_using_omp=.TRUE.
         omp_size=OMP_GET_NUM_THREADS()
 !$OMP END MASTER
         omp_rank=OMP_GET_THREAD_NUM()    
 #else    
-    is_ok_omp=.FALSE.
+    is_using_omp=.FALSE.
     omp_size=1
     omp_rank=0