Changeset 785 for LMDZ4/trunk/libf/dyn3dpar/parallel.F90

Timestamp:

Jun 19, 2007, 12:11:06 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Quelques caracteres en trop pour le premier et elimination de la cle
CPP_PSMILE JG
LF

File:

• LMDZ4/trunk/libf/dyn3dpar/parallel.F90 (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3dpar/parallel.F90

@@ -22 +22 @@
     USE vampir
 #ifdef CPP_COUPLE
-#ifdef CPP_PSMILE
     USE mod_prism_proto
-#endif
 #endif
     implicit none
@@ -40 +38 @@
 
 #ifdef CPP_COUPLE
-#ifdef CPP_PSMILE
        call prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
        call prism_get_localcomm_proto(COMM_LMDZ,ierr)
-#endif
 #else      
       call MPI_INIT(ierr)
@@ -150 +146 @@
     subroutine Finalize_parallel
 #ifdef CPP_COUPLE
-#ifdef CPP_PSMILE
     use mod_prism_proto
-#endif
 #endif
     implicit none
@@ -167 +161 @@
 
 #ifdef CPP_COUPLE
-#ifdef CPP_PSMILE
      call prism_terminate_proto(ierr)
      IF (ierr .ne. PRISM_Ok) THEN
        call abort_gcm('Finalize_parallel',' Probleme dans prism_terminate_proto ',1)
      endif
-#endif
 #else         
       call MPI_FINALIZE(ierr)