Changeset 3388 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

Jun 20, 2024, 6:39:57 PM (5 months ago)

Author:

jbclement

Message:

PEM:
Correction due to a wrong line introduced with r3387.
JBC

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• changelog.txt (modified) (1 diff)
• pem.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt

@@ -386 +386 @@
 - Small correction for 1D related to r3386.
 - Improvement of launching script.
+
+== 20/06/2024 == JBC
+Correction due to a wrong line introduced with r3387.

trunk/LMDZ.COMMON/libf/evolution/pem.F90

@@ -308 +308 @@
     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 +726 @@
 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..."