Changeset 7376

Timestamp:

2016-11-29T19:59:13+01:00 (7 years ago)

Author:

emanuelaclementi

Message:

#1805 minor modification in sbcmod.F90 2016/dev_INGV_UKMO_2016

File:

• branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (1 diff)

branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -386 +386 @@
             SELECT CASE( nsbc )
             CASE(  0,1,2,3,5,-1 )  ;
-                IF(lwp) WRITE(numout,*) 'WARNING: You are subtracting the wave stress to the ocean. &
+                IF(lwp .AND. kt == nit000 ) WRITE(numout,*) 'WARNING: You are subtracting the wave stress to the ocean. &
                         & If not requested select ln_tauoc=.false'
             END SELECT