- Timestamp:
- 2019-04-11T14:45:00+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/BDY/bdytides.F90
r10860 r10861 66 66 CHARACTER(len=80) :: filtide !: Filename root for tidal input files 67 67 LOGICAL :: ln_bdytide_2ddta !: If true, read 2d harmonic data 68 LOGICAL :: ln_bdytide_conj !: If true, assume complex conjugate tidal data69 68 !! 70 69 INTEGER :: ib_bdy, itide, ib !: dummy loop indices … … 81 80 TYPE(MAP_POINTER), DIMENSION(jpbgrd) :: ibmap_ptr !: array of pointers to nbmap 82 81 !! 83 NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta , ln_bdytide_conj82 NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta 84 83 !!---------------------------------------------------------------------- 85 84 ! … … 112 111 IF(lwp) WRITE(numout,*) ' Namelist nambdy_tide : tidal harmonic forcing at open boundaries' 113 112 IF(lwp) WRITE(numout,*) ' read tidal data in 2d files: ', ln_bdytide_2ddta 114 IF(lwp) WRITE(numout,*) ' assume complex conjugate : ', ln_bdytide_conj115 113 IF(lwp) WRITE(numout,*) ' Number of tidal components to read: ', nb_harmo 116 114 IF(lwp) THEN … … 249 247 ENDIF ! ln_bdytide_2ddta=.true. 250 248 ! 251 IF( ln_bdytide_conj ) THEN ! assume complex conjugate in data files252 td%ssh0(:,:,2) = - td%ssh0(:,:,2)253 td%u0 (:,:,2) = - td%u0 (:,:,2)254 td%v0 (:,:,2) = - td%v0 (:,:,2)255 ENDIF256 !257 249 ! Allocate slow varying data in the case of time splitting: 258 250 ! Do it anyway because at this stage knowledge of free surface scheme is unknown
Note: See TracChangeset
for help on using the changeset viewer.