Changeset 11663


Ignore:
Timestamp:
2019-10-08T18:36:34+02:00 (10 months ago)
Author:
smueller
Message:

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

Location:
NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/cfgs/SHARED/namelist_ref

    r10861 r11663  
    565565!----------------------------------------------------------------------- 
    566566   ln_tide     = .false.      ! Activate tides 
     567      nn_tide_var   = 0          !  Variant of tidal parameter set and tide-potential computation 
    567568      ln_tide_pot   = .true.                !  use tidal potential forcing 
    568569         rn_tide_gamma = 0.7                   ! Tidal tilt factor 
  • NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/TDE/tide_mod.F90

    r10860 r11663  
    5050   LOGICAL , PUBLIC ::   ln_tide         !: 
    5151   LOGICAL , PUBLIC ::   ln_tide_pot     !: 
     52   INTEGER          ::   nn_tide_var     !  Variant of tidal parameter set and tide-potential computation 
    5253   LOGICAL          ::   ln_read_load    !: 
    5354   LOGICAL , PUBLIC ::   ln_scal_load    !: 
     
    8485      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    8586      ! 
    86       NAMELIST/nam_tide/ln_tide, ln_tide_pot, rn_tide_gamma, ln_scal_load, ln_read_load, cn_tide_load, & 
    87                   &     ln_tide_ramp, rn_scal_load, rn_tide_ramp_dt, sn_tide_cnames 
     87      NAMELIST/nam_tide/ln_tide, nn_tide_var, ln_tide_pot, rn_tide_gamma, & 
     88         &              ln_scal_load, ln_read_load, cn_tide_load,         & 
     89         &              ln_tide_ramp, rn_scal_load, rn_tide_ramp_dt,      & 
     90         &              sn_tide_cnames 
    8891      !!---------------------------------------------------------------------- 
    8992      ! 
     
    108111            WRITE(numout,*) '   Namelist nam_tide' 
    109112            WRITE(numout,*) '      Use tidal components                       ln_tide         = ', ln_tide 
     113            WRITE(numout,*) '         Variant (0: legacy option)              nn_tide_var     = ', nn_tide_var 
    110114            WRITE(numout,*) '         Apply astronomical potential            ln_tide_pot     = ', ln_tide_pot 
    111115            WRITE(numout,*) '         Tidal tilt factor                       rn_tide_gamma   = ', rn_tide_gamma 
Note: See TracChangeset for help on using the changeset viewer.