Changeset 10861


Ignore:
Timestamp:
2019-04-11T14:45:00+02:00 (16 months ago)
Author:
smueller
Message:

Suppression of optional complex conjugation of tidal input data at open boundaries (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

    r10801 r10861  
    638638   filtide          = 'bdydta/amm12_bdytide_'   !  file name root of tidal forcing files 
    639639   ln_bdytide_2ddta = .false.                   ! 
    640    ln_bdytide_conj  = .false.                   !  
    641640/ 
    642641 
  • NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/BDY/bdytides.F90

    r10860 r10861  
    6666      CHARACTER(len=80)                         ::   filtide             !: Filename root for tidal input files 
    6767      LOGICAL                                   ::   ln_bdytide_2ddta    !: If true, read 2d harmonic data 
    68       LOGICAL                                   ::   ln_bdytide_conj     !: If true, assume complex conjugate tidal data 
    6968      !! 
    7069      INTEGER                                   ::   ib_bdy, itide, ib   !: dummy loop indices 
     
    8180      TYPE(MAP_POINTER), DIMENSION(jpbgrd)      ::   ibmap_ptr           !: array of pointers to nbmap 
    8281      !! 
    83       NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj 
     82      NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta 
    8483      !!---------------------------------------------------------------------- 
    8584      ! 
     
    112111            IF(lwp) WRITE(numout,*) '          Namelist nambdy_tide : tidal harmonic forcing at open boundaries' 
    113112            IF(lwp) WRITE(numout,*) '             read tidal data in 2d files: ', ln_bdytide_2ddta 
    114             IF(lwp) WRITE(numout,*) '             assume complex conjugate   : ', ln_bdytide_conj 
    115113            IF(lwp) WRITE(numout,*) '             Number of tidal components to read: ', nb_harmo 
    116114            IF(lwp) THEN  
     
    249247            ENDIF ! ln_bdytide_2ddta=.true. 
    250248            ! 
    251             IF( ln_bdytide_conj ) THEN    ! assume complex conjugate in data files 
    252                td%ssh0(:,:,2) = - td%ssh0(:,:,2) 
    253                td%u0  (:,:,2) = - td%u0  (:,:,2) 
    254                td%v0  (:,:,2) = - td%v0  (:,:,2) 
    255             ENDIF 
    256             ! 
    257249            ! Allocate slow varying data in the case of time splitting: 
    258250            ! Do it anyway because at this stage knowledge of free surface scheme is unknown 
Note: See TracChangeset for help on using the changeset viewer.