Changeset 7343 for branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2016-11-25T17:56:42+01:00 (7 years ago)

Author:

timgraham

Message:

Merge in branches/UKMO/r5936_INGV1_WAVE-coupling

File:

• branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -131 +131 @@
          WRITE(numout,*) '              ocean-atmosphere coupled formulation       ln_cpl      = ', ln_cpl
          WRITE(numout,*) '              forced-coupled mixed formulation           ln_mixcpl   = ', ln_mixcpl
+         WRITE(numout,*) '              wave physics                               ln_wave     = ', ln_wave
+         WRITE(numout,*) '                 Stokes drift corr. to vert. velocity    ln_sdw      = ', ln_sdw
+         WRITE(numout,*) '                 wave modified ocean stress              ln_tauoc    = ', ln_tauoc
+         WRITE(numout,*) '                 Stokes coriolis term                    ln_stcor    = ', ln_stcor
+         WRITE(numout,*) '                 neutral drag coefficient (CORE, MFS)    ln_cdgw     = ', ln_cdgw
          WRITE(numout,*) '              OASIS coupling (with atm or sas)           lk_oasis    = ', lk_oasis
          WRITE(numout,*) '              components of your executable            nn_components = ', nn_components
@@ -372 +377 @@
             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