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

LMDZ4/trunk/libf/phylmd/mod_phys_lmdz_mpi_data.F90

@@ -37 +37 @@
   INTEGER,SAVE :: mpi_root
   LOGICAL,SAVE :: is_mpi_root
-  LOGICAL,SAVE :: is_ok_mpi
+  LOGICAL,SAVE :: is_using_mpi
   
   
@@ -58 +58 @@
     INTEGER :: i
     
-#ifdef CPP_PARA
-    is_ok_mpi=.TRUE.
+#ifdef CPP_MPI
+    is_using_mpi=.TRUE.
 #else
-    is_ok_mpi=.FALSE.
+    is_using_mpi=.FALSE.
 #endif
     
@@ -72 +72 @@
     COMM_LMDZ_PHY=COMM_LMDZ
 
-    IF (is_ok_mpi) THEN    
-#ifdef CPP_PARA
+    IF (is_using_mpi) THEN    
+#ifdef CPP_MPI
       CALL MPI_COMM_SIZE(COMM_LMDZ_PHY,mpi_size,ierr)    
       CALL MPI_COMM_RANK(COMM_LMDZ_PHY,mpi_rank,ierr)