Index: trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90	(revision 3068)
+++ trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90	(revision 3069)
@@ -79,6 +79,5 @@
 close(73)
 if (last_ilask == 0 .or. last_ilask == size(yearlask,1) + 1) then
-    write(*,*) 'The current year could not be found in the file "obl_ecc_lsp.asc".'
-    stop
+    error stop 'The current year could not be found in the file "obl_ecc_lsp.asc".'
 else
     write(*,*) 'The current year in the "obl_ecc_lsp.asc" file is at line:', last_ilask
Index: trunk/LMDZ.COMMON/libf/evolution/pem.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/pem.F90	(revision 3068)
+++ trunk/LMDZ.COMMON/libf/evolution/pem.F90	(revision 3069)
@@ -1119,5 +1119,5 @@
     write(*,*) "restart_evol.nc has been written"
 #else
-    call writerestart1D('restart1D_evol.txt',ps(1),tsurf,nlayer,teta,ucov,vcov,nq,noms,qsurf,q)
+    call writerestart1D('restart1D_evol.txt',ps(1),tsurf(1,:),nlayer,size(tsurf,2),teta,ucov,vcov,nq,noms,qsurf(1,:,:),q)
     write(*,*) "restart1D_evol.txt has been written"
 #endif
Index: trunk/LMDZ.COMMON/libf/evolution/recomp_orb_param_mod.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/recomp_orb_param_mod.F90	(revision 3068)
+++ trunk/LMDZ.COMMON/libf/evolution/recomp_orb_param_mod.F90	(revision 3069)
@@ -102,8 +102,5 @@
 enddo
 
-if (.not. found_year) then
-    write(*,*) 'The new year could not be found in the file "obl_ecc_lsp.asc".'
-    stop
-endif
+if (.not. found_year) error stop 'The new year could not be found in the file "obl_ecc_lsp.asc".'
 
 halfaxe = 227.94