Index: trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/lect_start_archive.F
===================================================================
--- trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/lect_start_archive.F	(revision 3718)
+++ trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/lect_start_archive.F	(revision 3732)
@@ -264,5 +264,5 @@
       write(*,*) '  Otherwise, set nsoilmx -in dimphys.h- to: ',nsoilold
       endif
-      write(*,*) "time lenght: ",timelen
+      write(*,*) "time length: ",timelen
       write(*,*)
 
@@ -596,4 +596,7 @@
  123  read(*,*,iostat=ierr) date
       if(ierr.ne.0) goto 123
+      if (timelen.eq.1) then
+        memo = 1
+      else
       memo = 0
       do i=1,timelen
@@ -615,4 +618,5 @@
         end do
         goto 123
+      endif
       endif