Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
- Timestamp:
- 2019-03-19T12:32:19+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r10759 r10774 99 99 IF(lwp) WRITE(numout,*) 'bdytide_init : initialization of tidal harmonic forcing at open boundaries' 100 100 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 101 IF(lflush) CALL flush(numout) 101 102 ENDIF 102 103 … … 120 121 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_tide ) 121 122 ! ! Parameter control and print 122 IF(lwp) WRITE(numout,*) ' '123 IF(lwp) WRITE(numout,*) ' Namelist nambdy_tide : tidal harmonic forcing at open boundaries'124 IF(lwp) WRITE(numout,*) ' read tidal data in 2d files: ', ln_bdytide_2ddta125 IF(lwp) WRITE(numout,*) ' assume complex conjugate : ', ln_bdytide_conj126 IF(lwp) WRITE(numout,*) ' Number of tidal components to read: ', nb_harmo127 IF(lwp) THEN128 123 IF(lwp) THEN 124 WRITE(numout,*) ' ' 125 WRITE(numout,*) ' Namelist nambdy_tide : tidal harmonic forcing at open boundaries' 126 WRITE(numout,*) ' read tidal data in 2d files: ', ln_bdytide_2ddta 127 WRITE(numout,*) ' assume complex conjugate : ', ln_bdytide_conj 128 WRITE(numout,*) ' Number of tidal components to read: ', nb_harmo 129 WRITE(numout,*) ' Tidal components: ' 129 130 DO itide = 1, nb_harmo 130 131 WRITE(numout,*) ' ', Wave(ntide(itide))%cname_tide 131 132 END DO 132 ENDIF 133 IF(lwp) WRITE(numout,*) ' ' 133 WRITE(numout,*) ' ' 134 IF(lflush) CALL flush(numout) 135 ENDIF 134 136 135 137 ! Allocate space for tidal harmonics data - get size from OBC data arrays … … 333 335 WRITE(numout,*) 'bdytide_update : (re)Initialization of the tidal bdy forcing at kt=',kt 334 336 WRITE(numout,*) '~~~~~~~~~~~~~~ ' 337 IF(lflush) CALL flush(numout) 335 338 ENDIF 336 339 ! … … 448 451 WRITE(numout,*) 'bdy_tide_dta : Refresh nodal factors for tidal open bdy data at kt=',kt 449 452 WRITE(numout,*) '~~~~~~~~~~~~~~ ' 453 IF(lflush) CALL flush(numout) 450 454 ENDIF 451 455 !
Note: See TracChangeset
for help on using the changeset viewer.