Changeset 7055 for trunk/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

Timestamp:

2016-10-20T12:27:37+02:00 (7 years ago)

Author:

acc

Message:

Trunk: Add IF(lwp) condition to diagnostic output in trcrst.F90 (trc_rst_stat) as recommended by ticket #1787

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -295 +295 @@
          IF(lwp) WRITE(numout,9000) jn, TRIM( ctrcnm(jn) ), zmean, zmin, zmax, zdrift
       END DO
-      WRITE(numout,*) 
+      IF(lwp) WRITE(numout,*) 
 9000  FORMAT(' tracer nb :',i2,'    name :',a10,'    mean :',e18.10,'    min :',e18.10, &
       &      '    max :',e18.10,'    drift :',e18.10, ' %')