Changeset 1005

Timestamp:

Oct 7, 2008, 10:58:33 AM (16 years ago)

Author:

Laurent Fairhead

Message:

• Modifs sur le parallélisme: masquage dans la physique
• Inclusion strato
• mise en coherence etat0
• le mode offline fonctionne maintenant en parallèle,
• les fichiers de la dynamiques sont correctement sortis et peuvent etre reconstruit avec rebuild
• la version parallèle de la dynamique peut s'exécuter sans MPI (sur 1 proc)
• L'OPENMP fonctionne maintenant sans la parallélisation MPI.

YM
LF

File:

• LMDZ4/trunk/libf/phylmd/mod_surf_para.F90 (modified) (10 diffs)

LMDZ4/trunk/libf/phylmd/mod_surf_para.F90

@@ -50 +50 @@
   SUBROUTINE Init_surf_para(knon)
   USE mod_phys_lmdz_para, mpi_rank_root=>mpi_root
-#ifdef CPP_PARA
+#ifdef CPP_MPI
   INCLUDE 'mpif.h'
 #endif
@@ -87 +87 @@
       ALLOCATE(knon_glo_end_para(0:mpi_size*omp_size-1))
       
-      IF (is_ok_mpi) THEN
-#ifdef CPP_PARA
+      IF (is_using_mpi) THEN
+#ifdef CPP_MPI
         CALL MPI_ALLGather(knon_mpi,1,MPI_INTEGER,knon_mpi_para,1,MPI_INTEGER,COMM_LMDZ_PHY,ierr)
         CALL MPI_ALLGather(knon_omp_para,omp_size,MPI_INTEGER,knon_glo_para,omp_size,MPI_INTEGER,COMM_LMDZ_PHY,ierr)
@@ -169 +169 @@
   SUBROUTINE gather_surf_mpi_i(FieldIn,FieldOut)
   USE mod_phys_lmdz_para, mpi_rank_root => mpi_root
-#ifdef CPP_PARA
+#ifdef CPP_MPI
   INCLUDE 'mpif.h'
 #endif
@@ -176 +176 @@
     INTEGER :: ierr
     
-    IF (is_ok_mpi) THEN
-#ifdef CPP_PARA
+    IF (is_using_mpi) THEN
+#ifdef CPP_MPI
       CALL MPI_Gatherv(FieldIn,knon_mpi,MPI_INTEGER,                                &
                        FieldOut,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER, &
@@ -224 +224 @@
   SUBROUTINE gather_surf_mpi_r(FieldIn,FieldOut)
   USE mod_phys_lmdz_para, mpi_rank_root => mpi_root
-#ifdef CPP_PARA
+#ifdef CPP_MPI
   INCLUDE 'mpif.h'
 #endif
@@ -231 +231 @@
     REAL :: ierr
     
-    IF (is_ok_mpi) THEN
-#ifdef CPP_PARA
+    IF (is_using_mpi) THEN
+#ifdef CPP_MPI
       CALL MPI_Gatherv(FieldIn,knon_mpi,MPI_REAL_LMDZ,                                 &
                        FieldOut,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_REAL_LMDZ,  &
@@ -277 +277 @@
   SUBROUTINE scatter_surf_mpi_i(FieldIn,FieldOut)
   USE mod_phys_lmdz_para, mpi_rank_root => mpi_root
-#ifdef CPP_PARA
+#ifdef CPP_MPI
   INCLUDE 'mpif.h'
 #endif
@@ -284 +284 @@
     INTEGER :: ierr
     
-    IF (is_ok_mpi) THEN
-#ifdef CPP_PARA
+    IF (is_using_mpi) THEN
+#ifdef CPP_MPI
       CALL MPI_Scatterv(FieldIn,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER,   &
                         FieldOut,knon_mpi,MPI_INTEGER,                                &
@@ -329 +329 @@
   SUBROUTINE scatter_surf_mpi_r(FieldIn,FieldOut)
   USE mod_phys_lmdz_para, mpi_rank_root => mpi_root
-#ifdef CPP_PARA
+#ifdef CPP_MPI
   INCLUDE 'mpif.h'
 #endif
@@ -336 +336 @@
     INTEGER :: ierr
     
-    IF (is_ok_mpi) THEN
-#ifdef CPP_PARA
+    IF (is_using_mpi) THEN
+#ifdef CPP_MPI
       CALL MPI_Scatterv(FieldIn,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER,   &
                         FieldOut,knon_mpi,MPI_INTEGER,                                &