Changeset 3388 for trunk


Ignore:
Timestamp:
Jun 20, 2024, 6:39:57 PM (6 months ago)
Author:
jbclement
Message:

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

Location:
trunk/LMDZ.COMMON/libf/evolution
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/evolution/changelog.txt

    r3387 r3388  
    386386- Small correction for 1D related to r3386.
    387387- Improvement of launching script.
     388
     389== 20/06/2024 == JBC
     390Correction due to a wrong line introduced with r3387.
  • trunk/LMDZ.COMMON/libf/evolution/pem.F90

    r3387 r3388  
    308308    endif
    309309    if (index(chtimelimit,'-') > 0) then ! 'chtimelimit' format is "D-HH:MM:SS"
    310         read(chtimelimit, '(i1,a1,i2,a1,i2,a1,i2)') days, sep, hours, sep, minutes, sep, seconds
     310        read(chtimelimit,'(i1,a1,i2,a1,i2,a1,i2)') days, sep, hours, sep, minutes, sep, seconds
    311311        timelimit = days*86400 + hours*3600 + minutes*60 + seconds
    312312    else if (index(chtimelimit,':') > 0 .and. len_trim(chtimelimit) > 5) then ! 'chtimelimit' format is "HH:MM:SS"
    313         read(chtimelimit, '(i2,a1,i2,a1,i2)') hours, sep, minutes, sep, seconds
     313        read(chtimelimit,'(i2,a1,i2,a1,i2)') hours, sep, minutes, sep, seconds
    314314        timelimit = hours*3600 + minutes*60 + seconds
    315315    else ! 'chtimelimit' format is "MM:SS"
     
    726726endif
    727727
    728 do while (year_iter < 10000)
     728do while (year_iter < year_iter_max .and. i_myear < n_myear)
    729729! II.a.1. Compute updated global pressure
    730730    write(*,*) "Recomputing the new pressure..."
Note: See TracChangeset for help on using the changeset viewer.