Changeset 10793


Ignore:
Timestamp:
2019-03-21T19:43:33+01:00 (17 months ago)
Author:
smueller
Message:

Replacement of a hard-coded coefficient by namelist parameter rn_tide_gamma (ticket #2194)

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

    r10570 r10793  
    566566   ln_tide     = .false.      ! Activate tides 
    567567      ln_tide_pot   = .true.                !  use tidal potential forcing 
     568         rn_tide_gamma = 0.7                   ! Tidal tilt factor 
    568569         ln_scal_load  = .false.               ! Use scalar approximation for 
    569570            rn_scal_load = 0.094               !     load potential 
  • NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/TDE/tide_mod.F90

    r10777 r10793  
    5454   REAL(wp), PUBLIC ::   rn_scal_load    !: 
    5555   CHARACTER(lc), PUBLIC ::   cn_tide_load   !:  
     56   REAL(wp)         ::   rn_tide_gamma   ! Tidal tilt factor 
    5657 
    5758   INTEGER , PUBLIC, ALLOCATABLE, DIMENSION(:) ::   ntide   !: 
     
    8182      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    8283      ! 
    83       NAMELIST/nam_tide/ln_tide, ln_tide_pot, ln_scal_load, ln_read_load, cn_tide_load, & 
     84      NAMELIST/nam_tide/ln_tide, ln_tide_pot, rn_tide_gamma, ln_scal_load, ln_read_load, cn_tide_load, & 
    8485                  &     ln_tide_ramp, rn_scal_load, rdttideramp, clname 
    8586      !!---------------------------------------------------------------------- 
     
    103104            WRITE(numout,*) '      Use tidal components                       ln_tide      = ', ln_tide 
    104105            WRITE(numout,*) '         Apply astronomical potential            ln_tide_pot  = ', ln_tide_pot 
     106            WRITE(numout,*) '         Tidal tilt factor                       rn_tide_gamma= ', rn_tide_gamma 
    105107            WRITE(numout,*) '         Use scalar approx. for load potential   ln_scal_load = ', ln_scal_load 
    106108            WRITE(numout,*) '         Read load potential from file           ln_read_load = ', ln_read_load 
     
    180182 
    181183      DO jk = 1, nb_harmo 
    182          zcons = 0.7_wp * Wave(ntide(jk))%equitide * ftide(jk) 
     184         zcons = rn_tide_gamma * Wave(ntide(jk))%equitide * ftide(jk) 
    183185         DO ji = 1, jpi 
    184186            DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.