Changeset 7052 for branches/2015/nemo_v3_6_STABLE

Timestamp:

2016-10-20T12:23:27+02:00 (8 years ago)

Author:

acc

Message:

Branch 2015/nemo_v3_6_STABLE. Add IF(lwp) condition to diagnostic output in trcrst.F90 (trc_rst_stat) as recommended by ticket #1787

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (1 diff)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -304 +304 @@
          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, ' %')