Changeset 7906 for branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

Timestamp:

2017-04-13T15:43:46+02:00 (7 years ago)

Author:

jcastill

Message:

Move the variable nn_drag from the namelist namsbc_wave to namsbc, as it is used even when the wave science is deactivated (ln_wave=.false.)

File:

• branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90 (modified) (2 diffs)

branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

@@ -350 +350 @@
       NAMELIST/namsbc_wave/  sn_cdg, cn_dir, sn_usd, sn_vsd, sn_hsw, sn_wmp, sn_wfr, sn_wnum, sn_tauoc, sn_phioc, &
                              ln_cdgw, ln_sdw, ln_stcor, ln_phioc, ln_tauoc, ln_zdfqiao, ln_rough,                 &
-                             nn_drag, nn_sdrift, nn_wmix
+                             nn_sdrift, nn_wmix
       !!---------------------------------------------------------------------
       !
@@ -374 +374 @@
          WRITE(numout,*) '        vertical mixing parametrization       nn_wmix     = ', nn_wmix 
          WRITE(numout,*) '      neutral drag coefficient                ln_cdgw     = ', ln_cdgw
-         WRITE(numout,*) '        momentum formulation                  nn_drag     = ', nn_drag
          WRITE(numout,*) '      wave roughness length modification      ln_rough    = ', ln_rough 
          WRITE(numout,*) '      Qiao vertical mixing formulation        ln_zdfqiao  = ', ln_zdfqiao