Changeset 7764 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2017-03-07T13:17:36+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r7646 r7764 1752 1752 WRITE(clfreq,'(I18,A2)')INT(output_freq%timestep),'ts' 1753 1753 itrlen = LEN_TRIM(ADJUSTL(clfreq)) 1754 ELSE IF ( output_freq%second /= 0 ) THEN 1755 WRITE(clfreq,'(I19,A1)')INT(output_freq%second),'s' 1756 itrlen = LEN_TRIM(ADJUSTL(clfreq)) 1757 ELSE IF ( output_freq%minute /= 0 ) THEN 1758 WRITE(clfreq,'(I19,A2)')INT(output_freq%minute),'mi' 1759 itrlen = LEN_TRIM(ADJUSTL(clfreq)) 1754 1760 ELSE IF ( output_freq%hour /= 0 ) THEN 1755 1761 WRITE(clfreq,'(I19,A1)')INT(output_freq%hour),'h'
Note: See TracChangeset
for help on using the changeset viewer.