Changeset 13759 for NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcwave.F90

Timestamp:

2020-11-09T18:04:19+01:00 (4 years ago)

Author:

emanuelaclementi

Message:

minor changes to include writing statements and update n. of max coupling fields with oasis - tickets #2155 #2339

File:

• NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcwave.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcwave.F90

@@ -353 +353 @@
 
       READ  ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 )
-902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_wave in configurationnamelist' )
+902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist' )
       IF(lwm) WRITE ( numond, namsbc_wave )
       !
       IF(lwp) THEN
          WRITE(numout,*) '   Namelist namsbc_wave'
-         WRITE(numout,*) '      Stokes drift                               ln_sdw       = ', ln_sdw
-         WRITE(numout,*) '      Stokes Coriolis & tracer advection terms   ln_stcor     = ', ln_stcor
-         WRITE(numout,*) '      wave modified ocean stress                 ln_tauoc     = ', ln_tauoc
-         WRITE(numout,*) '      neutral drag coefficient (CORE bulk only)  ln_cdgw      = ', ln_cdgw
-         WRITE(numout,*) '      charnock coefficient (IFS bulk only)       ln_charn     = ', ln_charn
-         WRITE(numout,*) '      Test with constant wave fields             ln_wave_test = ', ln_wave_test
+         WRITE(numout,*) '      Stokes drift                                  ln_sdw = ', ln_sdw
+         WRITE(numout,*) '      Breivik 2016                       ln_breivikFV_2016 = ', ln_breivikFV_2016
+         WRITE(numout,*) '      Stokes Coriolis & tracer advection terms    ln_stcor = ', ln_stcor
+         WRITE(numout,*) '      Vortex Force                         ln_vortex_force = ', ln_vortex_force
+         WRITE(numout,*) '      Bernouilli Head Pressure                ln_bern_srfc = ', ln_bern_srfc
+         WRITE(numout,*) '      wave modified ocean stress                  ln_tauoc = ', ln_tauoc
+         WRITE(numout,*) '      neutral drag coefficient (CORE bulk only)    ln_cdgw = ', ln_cdgw
+         WRITE(numout,*) '      charnock coefficient                        ln_charn = ', ln_charn
+         WRITE(numout,*) '      Stress modificated by wave                    ln_taw = ', ln_taw
+         WRITE(numout,*) '      TKE flux from wave                          ln_phioc = ', ln_phioc
+         WRITE(numout,*) '      Surface shear with Stokes drift           ln_stshear = ', ln_stshear
+         WRITE(numout,*) '      Test with constant wave fields          ln_wave_test = ', ln_wave_test
       ENDIF