Changeset 7768 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM

Timestamp:

2017-03-08T12:57:44+01:00 (7 years ago)

Author:

timgraham

Message:

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

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1756 +1756 @@
                   itrlen = LEN_TRIM(ADJUSTL(clfreq))
               ELSE IF ( output_freq%minute /= 0 ) THEN
-                  WRITE(clfreq,'(I19,A2)')INT(output_freq%minute),'mi' 
+                  WRITE(clfreq,'(I18,A2)')INT(output_freq%minute),'mi' 
                   itrlen = LEN_TRIM(ADJUSTL(clfreq))
               ELSE IF ( output_freq%hour /= 0 ) THEN