Changeset 806 for LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90

Timestamp:

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

Author:

lsce

Message:

ACo + YM : correction bug communicateur pour le couple

File:

• LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90 (modified) (1 diff)

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