Index: trunk/LMDZ.COMMON/libf/evolution/changelog.txt
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/changelog.txt	(revision 3387)
+++ trunk/LMDZ.COMMON/libf/evolution/changelog.txt	(revision 3388)
@@ -386,2 +386,5 @@
 - Small correction for 1D related to r3386.
 - Improvement of launching script.
+
+== 20/06/2024 == JBC
+Correction due to a wrong line introduced with r3387.
Index: trunk/LMDZ.COMMON/libf/evolution/pem.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/pem.F90	(revision 3387)
+++ trunk/LMDZ.COMMON/libf/evolution/pem.F90	(revision 3388)
@@ -308,8 +308,8 @@
     endif
     if (index(chtimelimit,'-') > 0) then ! 'chtimelimit' format is "D-HH:MM:SS"
-        read(chtimelimit, '(i1,a1,i2,a1,i2,a1,i2)') days, sep, hours, sep, minutes, sep, seconds
+        read(chtimelimit,'(i1,a1,i2,a1,i2,a1,i2)') days, sep, hours, sep, minutes, sep, seconds
         timelimit = days*86400 + hours*3600 + minutes*60 + seconds
     else if (index(chtimelimit,':') > 0 .and. len_trim(chtimelimit) > 5) then ! 'chtimelimit' format is "HH:MM:SS"
-        read(chtimelimit, '(i2,a1,i2,a1,i2)') hours, sep, minutes, sep, seconds
+        read(chtimelimit,'(i2,a1,i2,a1,i2)') hours, sep, minutes, sep, seconds
         timelimit = hours*3600 + minutes*60 + seconds
     else ! 'chtimelimit' format is "MM:SS"
@@ -726,5 +726,5 @@
 endif
 
-do while (year_iter < 10000)
+do while (year_iter < year_iter_max .and. i_myear < n_myear)
 ! II.a.1. Compute updated global pressure
     write(*,*) "Recomputing the new pressure..."