Changeset 885 for LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/parallel.F90

Timestamp:

Feb 1, 2008, 1:24:09 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Modifs pour faire tourner le meme executable en force ou couple JG
LF

File:

• LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/parallel.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/parallel.F90

@@ -135 +135 @@
     subroutine Finalize_parallel
 #ifdef CPP_COUPLE
-    use mod_prism_proto
+      use mod_prism_proto
 #endif
-    implicit none
-
-#include "dimensions.h"
-#include "paramet.h"
+      use surface_data, only : ocean
+      implicit none
+
+      include "dimensions.h"
+      include "paramet.h"
       integer :: ierr
       integer :: i
@@ -149 +150 @@
       deallocate(jj_nb_para)
 
+      if (ocean == 'couple') then
 #ifdef CPP_COUPLE
-     call prism_terminate_proto(ierr)
-     IF (ierr .ne. PRISM_Ok) THEN
-       call abort_gcm('Finalize_parallel',' Probleme dans prism_terminate_proto ',1)
-     endif
-#else         
-      call MPI_FINALIZE(ierr)
-#endif
+         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)
+      end if
       
     end subroutine Finalize_parallel