Changeset 3827 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

Timestamp:

2013-03-06T10:01:26+01:00 (11 years ago)

Author:

cetlod

Message:

v3.5alpha: Add missing IF(lwp) before writing in numout, see ticket #1066

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcdta.F90 (modified) (1 diff)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

@@ -85 +85 @@
       !
       ntra = MAX( 1, nb_trcdta )   ! To avoid compilation error with bounds checking
-      WRITE(numout,*) ' '
-      WRITE(numout,*) ' number of passive tracers to be initialize by data :', ntra
-      WRITE(numout,*) ' '
+      IF(lwp) THEN
+         WRITE(numout,*) ' '
+         WRITE(numout,*) ' number of passive tracers to be initialize by data :', ntra
+         WRITE(numout,*) ' '
+      ENDIF
       !                         ! allocate the arrays (if necessary)
       !