Changeset 1482 for LMDZ5/branches/LMDZ5V2.0-dev/libf

Timestamp:

Feb 9, 2011, 4:03:09 PM (14 years ago)

Author:

jghattas

Message:

Added missing mpi_finalize for ce0l in dyn3dpar, already done at branche LMDZ4_AR5 rev 1476.

Location:

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar

Files:

• ce0l.F90 (modified) (3 diffs)
• parallel.F90 (modified) (2 diffs)

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/ce0l.F90

@@ -22 +22 @@
   USE mod_const_mpi
   USE infotrac
+  USE parallel, ONLY: finalize_parallel
 
 #ifdef CPP_IOIPSL
@@ -55 +56 @@
        CALL abort_gcm('ce0l','In parallel mode,                         &
  &                 ce0l must be called only                             &
- &                 for 1 process and 1 task')
+ &                 for 1 process and 1 task',1)
   ENDIF
 
@@ -101 +102 @@
   END IF
 
+!$OMP MASTER
+  CALL finalize_parallel
+!$OMP END MASTER
+
 #endif
 ! of #ifndef CPP_EARTH #else

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/parallel.F90

@@ -5 +5 @@
   USE mod_const_mpi
     
-    LOGICAL,SAVE :: using_mpi
+    LOGICAL,SAVE :: using_mpi=.TRUE.
     LOGICAL,SAVE :: using_omp
     
@@ -208 +208 @@
       integer :: ierr
       integer :: i
-      deallocate(jj_begin_para)
-      deallocate(jj_end_para)
-      deallocate(jj_nb_para)
+
+      if (allocated(jj_begin_para)) deallocate(jj_begin_para)
+      if (allocated(jj_end_para))   deallocate(jj_end_para)
+      if (allocated(jj_np_para))    deallocate(jj_nb_para)
 
       if (type_ocean == 'couple') then