Changeset 4410


Ignore:
Timestamp:
2014-02-04T13:12:26+01:00 (7 years ago)
Author:
trackstand2
Message:

Fix to line length for Gnu compiler

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r3837 r4410  
    124124 
    125125      ! control print 
    126       IF(lwp) WRITE(numout,"(' ==============>> 1/2 time step before the start of the run DATE Y/M/D = ',i6,'/',i2,'/',i2,'  nsec_day:',i6,'  nsec_week:',I)") nyear, nmonth, nday, nsec_day, nsec_week 
     126      IF(lwp) WRITE(numout, "((A), i6,'/',i2,'/',i2,'  nsec_day:',i6,'  nsec_week:',I8)") & 
     127              ' ==============>> 1/2 time step before the start of the run DATE Y/M/D = ', & 
     128              nyear, nmonth, nday, nsec_day, nsec_week 
    127129 
    128130      ! Up to now, calendar parameters are related to the end of previous run (nit000-1) 
Note: See TracChangeset for help on using the changeset viewer.