Changeset 811 for LMDZ4/trunk

Timestamp:

Jul 5, 2007, 4:04:10 PM (17 years ago)

Author:

lsce

Message:

ACo + YM : correction bug

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

@@ -11 +11 @@
     INCLUDE 'mpif.h'
     INTEGER :: ierr
+    INTEGER :: comp_id
   
 #ifdef CPP_COUPLE

LMDZ4/trunk/libf/dyn3dpar/parallel.F90

@@ -21 +21 @@
     subroutine init_parallel
     USE vampir
-#ifdef CPP_COUPLE
-    USE mod_prism_proto
-#endif
     implicit none
     
@@ -30 +27 @@
       integer :: type_size
       integer, dimension(3) :: blocklen,type
-      integer :: comp_id