Changeset 2333 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90

Timestamp:

2010-10-28T23:10:52+02:00 (14 years ago)

Author:

rblod

Message:

Add missing lwp in some advection routines

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90

@@ -82 +82 @@
 
       IF( kt == nit000 )  THEN
-         WRITE(numout,*)
-         WRITE(numout,*) 'tra_adv : MUSCL advection scheme on ', cdtype
-         WRITE(numout,*) '~~~~~~~'
+         IF(lwp) WRITE(numout,*)
+         IF(lwp) WRITE(numout,*) 'tra_adv : MUSCL advection scheme on ', cdtype
+         IF(lwp) WRITE(numout,*) '~~~~~~~'
          !
          l_trd = .FALSE.