Changeset 7376


Ignore:
Timestamp:
2016-11-29T19:59:13+01:00 (4 years ago)
Author:
emanuelaclementi
Message:

#1805 minor modification in sbcmod.F90 2016/dev_INGV_UKMO_2016

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r7351 r7376  
    386386            SELECT CASE( nsbc ) 
    387387            CASE(  0,1,2,3,5,-1 )  ; 
    388                 IF(lwp) WRITE(numout,*) 'WARNING: You are subtracting the wave stress to the ocean. & 
     388                IF(lwp .AND. kt == nit000 ) WRITE(numout,*) 'WARNING: You are subtracting the wave stress to the ocean. & 
    389389                        & If not requested select ln_tauoc=.false' 
    390390            END SELECT 
Note: See TracChangeset for help on using the changeset viewer.