Index: trunk/LMDZ.COMMON/libf/evolution/pem.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/pem.F90	(revision 3040)
+++ trunk/LMDZ.COMMON/libf/evolution/pem.F90	(revision 3042)
@@ -116,5 +116,4 @@
 integer :: day_ini   ! First day of the simulation
 real    :: pday      ! Physical day
-real    :: ptime     ! Physical time
 real    :: time_phys ! Same as GCM
 real    :: ptimestep ! Same as GCM
@@ -1136,9 +1135,7 @@
 !------------------------
 ! III_b.1 Write restart_evol.nc
-ptimestep = iphysiq*daysec/real(day_step)/nsplit_phys
-print*, ptimestep,dtphys,iphysiq*daysec/real(day_step),nsplit_phys
+ptimestep = iphysiq*daysec/real(day_step)/nsplit_phys ! dtphys/nsplit_phys
 pday = day_ini
-ptime = 0.
-ztime_fin = pday - day_end + ptime + ptimestep/(float(iphysiq)*daysec)
+ztime_fin = time_phys
 
 allocate(p(ip1jmp1,nlayer + 1))