Changeset 11663 for NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/TDE/tide_mod.F90

Timestamp:

2019-10-08T18:36:34+02:00 (4 years ago)

Author:

smueller

Message:

Addition of a namelist parameter to enable the selectability of alternative tidal parameter sets and tide-potential computations

File:

• NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/TDE/tide_mod.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/TDE/tide_mod.F90

@@ -50 +50 @@
    LOGICAL , PUBLIC ::   ln_tide         !:
    LOGICAL , PUBLIC ::   ln_tide_pot     !:
+   INTEGER          ::   nn_tide_var     !  Variant of tidal parameter set and tide-potential computation
    LOGICAL          ::   ln_read_load    !:
    LOGICAL , PUBLIC ::   ln_scal_load    !:
@@ -84 +85 @@
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       !
-      NAMELIST/nam_tide/ln_tide, ln_tide_pot, rn_tide_gamma, ln_scal_load, ln_read_load, cn_tide_load, &
-                  &     ln_tide_ramp, rn_scal_load, rn_tide_ramp_dt, sn_tide_cnames
+      NAMELIST/nam_tide/ln_tide, nn_tide_var, ln_tide_pot, rn_tide_gamma, &
+         &              ln_scal_load, ln_read_load, cn_tide_load,         &
+         &              ln_tide_ramp, rn_scal_load, rn_tide_ramp_dt,      &
+         &              sn_tide_cnames
       !!----------------------------------------------------------------------
       !
@@ -108 +111 @@
             WRITE(numout,*) '   Namelist nam_tide'
             WRITE(numout,*) '      Use tidal components                       ln_tide         = ', ln_tide
+            WRITE(numout,*) '         Variant (0: legacy option)              nn_tide_var     = ', nn_tide_var
             WRITE(numout,*) '         Apply astronomical potential            ln_tide_pot     = ', ln_tide_pot
             WRITE(numout,*) '         Tidal tilt factor                       rn_tide_gamma   = ', rn_tide_gamma