Changeset 7768


Ignore:
Timestamp:
2017-03-08T12:57:44+01:00 (4 years ago)
Author:
timgraham
Message:

Correct typo in previous commit (caused an out of bounds error).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r7764 r7768  
    17561756                  itrlen = LEN_TRIM(ADJUSTL(clfreq)) 
    17571757              ELSE IF ( output_freq%minute /= 0 ) THEN 
    1758                   WRITE(clfreq,'(I19,A2)')INT(output_freq%minute),'mi'  
     1758                  WRITE(clfreq,'(I18,A2)')INT(output_freq%minute),'mi'  
    17591759                  itrlen = LEN_TRIM(ADJUSTL(clfreq)) 
    17601760              ELSE IF ( output_freq%hour /= 0 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.