Changeset 3827 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/dtadyn.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/OFF_SRC/dtadyn.F90 (modified) (2 diffs)

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

@@ -164 +164 @@
          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
@@ -214 +213 @@
          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