Changeset 3828

Timestamp:

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

Author:

cetlod

Message:

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

Location:

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO

Files:

• OFF_SRC/dtadyn.F90 (modified) (2 diffs)
• TOP_SRC/trcdta.F90 (modified) (1 diff)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

@@ -163 +163 @@
          IF(  kt /= nit000 .AND. ( sf_dyn(jf_tem)%nrec_a(2) - nrecprev_tem ) /= 0 )  iswap_tem = 1
          IF( ( isecsbc > sf_dyn(jf_tem)%nrec_b(2) .AND. iswap_tem == 1 ) .OR. kt == nit000 )  THEN    ! read/update the after data
-            write(numout,*)
-            write(numout,*) ' Compute new slopes at kt = ', kt
+            IF(lwp) WRITE(numout,*) ' Compute new slopes at kt = ', kt
             IF( sf_dyn(jf_tem)%ln_tint ) THEN                 ! time interpolation of data
                IF( kt /= nit000 ) THEN
@@ -213 +212 @@
          IF(  kt /= nit000 .AND. ( sf_dyn(jf_uwd)%nrec_a(2) - nrecprev_uwd ) /= 0 )  iswap_uwd = 1
          IF( ( isecsbc > sf_dyn(jf_uwd)%nrec_b(2) .AND. iswap_uwd == 1 ) .OR. kt == nit000 )  THEN    ! read/update the after data
-            write(numout,*)
-            write(numout,*) ' Compute new vertical velocity at kt = ', kt
-            write(numout,*)
+            IF(lwp) WRITE(numout,*) ' Compute new vertical velocity at kt = ', kt
+            IF(lwp) WRITE(numout,*)
             IF( sf_dyn(jf_uwd)%ln_tint ) THEN                 ! time interpolation of data
                IF( kt /= nit000 )  THEN

branches/2012/dev_v3_4_STABLE_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)
       !