Changeset 8914


Ignore:
Timestamp:
2017-12-06T12:24:54+01:00 (3 years ago)
Author:
jchanut
Message:

ENHANCE-14_Jerome_SAL - Correct namelist parameter check - update nam_tide in DOC folder - #1926

Location:
branches/2017/dev_r8329_ENHANCE14_SAL
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8329_ENHANCE14_SAL/DOC/Namelists/nam_tide

    r7646 r8914  
    22&nam_tide      !   tide parameters 
    33!----------------------------------------------------------------------- 
    4    ln_tide       = .true.   !  Activate tide module 
    5    ln_tide_pot   = .true.   !  use tidal potential forcing 
    6    ln_tide_ramp  = .false.  ! 
    7    rdttideramp   =    0.    ! 
    8    clname(1)     = 'DUMMY'  !  name of constituent - all tidal components must be set in namelist_cfg 
     4   ln_tide       = .false.                ! Activate tides 
     5      ln_tide_pot   = .true.                !  use tidal potential forcing 
     6         ln_scal_load  = .false.               ! Use scalar approximation for 
     7            rn_scal_load = 0.094               !     load potential 
     8         ln_read_load  = .false.               ! Or read load potential from file 
     9            cn_tide_load = 'tide_LOAD_grid_T.nc'  ! filename for load potential 
     10            ! 
     11      ln_tide_ramp  = .false.               !  Use linear ramp for tides at startup 
     12         rdttideramp   =    0.                 !  ramp duration in days 
     13      clname(1)     = 'DUMMY'               !  name of constituent - all tidal components must be set in namelist_cfg 
    914/ 
  • branches/2017/dev_r8329_ENHANCE14_SAL/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

    r8903 r8914  
    88   USE oce            ! ocean dynamics and tracers variables 
    99   USE dom_oce        ! ocean space and time domain 
    10    USE phycst         ! physical constant 
    11    USE daymod         ! calandar 
     10   USE phycst         ! physical constants 
     11   USE daymod         ! calendar 
    1212   USE tide_mod       !  
    1313   ! 
     
    3434   REAL(wp), PUBLIC ::   rdttideramp     !: 
    3535   REAL(wp), PUBLIC ::   rn_scal_load    !: 
    36    CHARACTER(lc), PUBLIC ::   cn_tide_load   !: filename for input load potential     
     36   CHARACTER(lc), PUBLIC ::   cn_tide_load   !:  
    3737 
    3838   INTEGER , PUBLIC, ALLOCATABLE, DIMENSION(:) ::   ntide   !: 
     
    5353      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    5454      ! 
    55       NAMELIST/nam_tide/ln_tide, ln_tide_pot, ln_read_load, ln_scal_load, cn_tide_load, & 
     55      NAMELIST/nam_tide/ln_tide, ln_tide_pot, ln_scal_load, ln_read_load, cn_tide_load, & 
    5656                  &     ln_tide_ramp, rn_scal_load, rdttideramp, clname 
    5757      !!---------------------------------------------------------------------- 
     
    7777            WRITE(numout,*) '      Use scalar approx. for load potential : ln_scal_load = ', ln_scal_load 
    7878            WRITE(numout,*) '      Read load potential from file         : ln_read_load = ', ln_read_load 
    79  
    80             WRITE(numout,*) '                                              nb_harmo     = ', nb_harmo 
    81             WRITE(numout,*) '                                              rn_scal_load = ', rn_scal_load 
    82             WRITE(numout,*) '                                              ln_tide_ramp = ', ln_tide_ramp 
    83             WRITE(numout,*) '                                              rdttideramp  = ', rdttideramp 
     79            WRITE(numout,*) '      Apply ramp on tides at startup        : ln_tide_ramp = ', ln_tide_ramp 
     80            WRITE(numout,*) '      Fraction of SSH used in scal. approx. : rn_scal_load = ', rn_scal_load 
     81            WRITE(numout,*) '      Duration (days) of ramp               : rdttideramp  = ', rdttideramp 
    8482         ENDIF 
    8583      ELSE 
     
    106104      IF( ln_scal_load.AND.(.NOT.ln_tide_pot) ) & 
    107105          &   CALL ctl_stop('ln_scal_load requires ln_tide_pot') 
    108       IF( ln_scal_load.AND.ln_tide_pot ) & 
     106      IF( ln_scal_load.AND.ln_read_load ) & 
    109107          &   CALL ctl_stop('Choose between ln_scal_load and ln_read_load') 
    110108      IF( ln_tide_ramp.AND.((nitend-nit000+1)*rdt/rday < rdttideramp) )   & 
Note: See TracChangeset for help on using the changeset viewer.