Changeset 1476 for LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/parallel.F90

Timestamp:

Jan 25, 2011, 12:12:55 PM (14 years ago)

Author:

jghattas

Message:

Bug correction for ce0l in dyn3dpar :

• added missing MPI_FINALIZE
• removed STOP before end of program

File:

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

LMDZ4/branches/LMDZ4_AR5/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_nb_para))    deallocate(jj_nb_para)
 
       if (type_ocean == 'couple') then