Changeset 295 for trunk/NEMO/OPA_SRC/restart.F90

Timestamp:

2005-09-22T12:51:41+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_008 : CT : avoid undesirable ASCII prints when reading restart file

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/restart.F90

@@ -309 +309 @@
       IF(lwp) WRITE(numout,*) '   date ndastp         : ', NINT( zinfo(6) )
       IF(lwp) WRITE(numout,*) '   number of variables : ', ibvar
-      IF(lwp) WRITE(numout,*) '   NetCDF variables    : ', clvnames
+      IF(lwp) WRITE(numout,*) '   NetCDF variables    : ', clvnames(1:ibvar)
       IF(lwp) WRITE(numout,*)