Changeset 37 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

06/05/12 16:12:11 (12 years ago)

Author:

smasson

Message:

clean some write

File:

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

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

@@ -102 +102 @@
       WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") nyear,nmonth,nday 
       CALL xios_set_context_attr("nemo", start_date=cldate )
-      IF(lwp) WRITE(numout,*) 'SEB start date' , cldate
 
       ! horizontal grid definition