Index: trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90	(revision 2985)
+++ trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90	(revision 2986)
@@ -170,6 +170,5 @@
 !--------------------------------
 
-        do ilask=last_ilask,1,-1
-
+        do ilask=last_ilask,2,-1
           xa=yearlask(ilask)
           xb=yearlask(ilask-1)
Index: trunk/LMDZ.COMMON/libf/evolution/pem.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/pem.F90	(revision 2985)
+++ trunk/LMDZ.COMMON/libf/evolution/pem.F90	(revision 2986)
@@ -1292,5 +1292,5 @@
 #else
      DO nnq = 1, nqtot
-      	call writeprofile(nlayer,q(1,:,nnq),noms(nnq),nnq)
+      	call writeprofile(nlayer,q(1,:,nnq),noms(nnq),nnq,qsurf)
      ENDDO
 #endif