Changeset 806 for LMDZ4/trunk/libf/dyn3dpar/parallel.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/parallel.F90 (modified) (2 diffs)

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)