Changeset 806 for LMDZ4/trunk/libf

Timestamp:

Jul 5, 2007, 2:10:47 PM (17 years ago)

Author:

lsce

Message:

ACo + YM : correction bug communicateur pour le couple

Location:

LMDZ4/trunk/libf/dyn3dpar

Files:

• mod_const_para.F90 (modified) (1 diff)
• parallel.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90

@@ -10 +10 @@
   IMPLICIT NONE
     INCLUDE 'mpif.h'
+    INTEGER :: ierr
   
-    COMM_LMDZ=MPI_COMM_WORLD
+#ifdef CPP_COUPLE
+       call prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
+       call prism_get_localcomm_proto(COMM_LMDZ,ierr)
+#else      
+      call MPI_INIT(ierr)
+      COMM_LMDZ=MPI_COMM_WORLD
+#endif
+
     MPI_REAL_LMDZ=MPI_REAL8
   END SUBROUTINE Init_const_mpi

LMDZ4/trunk/libf/dyn3dpar/parallel.F90

@@ -1 +1 @@
   module parallel
-  
+  USE mod_const_mpi
+   
     integer, save :: mpi_size
     integer, save :: mpi_rank
-    integer, save :: COMM_LMDZ
     integer, save :: jj_begin
     integer, save :: jj_end
@@ -37 +37 @@
 #include "paramet.h"
 
-#ifdef CPP_COUPLE
-       call prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
-       call prism_get_localcomm_proto(COMM_LMDZ,ierr)
-#else      
-      call MPI_INIT(ierr)
-      COMM_LMDZ=MPI_COMM_WORLD
-#endif
       call InitVampir
       call MPI_COMM_SIZE(COMM_LMDZ,mpi_size,ierr)