Index: LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/ce0l.F90
===================================================================
--- LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/ce0l.F90	(revision 1471)
+++ LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/ce0l.F90	(revision 1476)
@@ -22,4 +22,5 @@
   USE mod_const_mpi
   USE infotrac
+  USE parallel, ONLY: finalize_parallel
 
 #ifdef CPP_IOIPSL
@@ -56,5 +57,5 @@
        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
 
@@ -102,7 +103,10 @@
   END IF
 
+!$OMP MASTER
+  CALL finalize_parallel
+!$OMP END MASTER
+
 #endif
 ! of #ifndef CPP_EARTH #else
-  STOP
 
 END PROGRAM ce0l
Index: LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/limit_netcdf.F90
===================================================================
--- LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/limit_netcdf.F90	(revision 1471)
+++ LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/limit_netcdf.F90	(revision 1476)
@@ -267,5 +267,4 @@
 #endif
 ! of #ifdef CPP_EARTH
-  STOP
 
 
Index: LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/parallel.F90
===================================================================
--- LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/parallel.F90	(revision 1471)
+++ LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/parallel.F90	(revision 1476)
@@ -5,5 +5,5 @@
   USE mod_const_mpi
     
-    LOGICAL,SAVE :: using_mpi
+    LOGICAL,SAVE :: using_mpi=.TRUE.
     LOGICAL,SAVE :: using_omp
     
@@ -208,7 +208,8 @@
       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