- Timestamp:
- 2016-03-08T10:20:12+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_5518_tide_analysis_restart/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r6116 r6370 52 52 INTEGER, PUBLIC, PARAMETER :: jptides_max = 15 !: Max number of tidal contituents 53 53 LOGICAL, PUBLIC :: ln_harm_ana !: =T Compute harmonic Analysis 54 LOGICAL, PUBLIC :: ln_harmana_read !: =T Decide to do the analysis 55 !from scratch or continue previous run 54 56 55 57 !$AGRIF_DO_NOT_TREAT … … 92 94 TYPE(MAP_POINTER), DIMENSION(jpbgrd) :: ibmap_ptr !: array of pointers to nbmap 93 95 !! 94 NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj, ln_harm_ana 96 NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj, ln_harm_ana, ln_harmana_read 95 97 !!---------------------------------------------------------------------- 96 98 … … 128 130 IF(lwp) WRITE(numout,*) ' Number of tidal components to read: ', nb_harmo 129 131 IF(lwp) WRITE(numout,*) ' Use PCOMS harmonic ananalysis or not: ', ln_harm_ana 132 IF(lwp) WRITE(numout,*) ' Read in previous days harmonic data or start afresh: ', ln_harmana_read 130 133 IF(lwp) THEN 131 134 WRITE(numout,*) ' Tidal components: '
Note: See TracChangeset
for help on using the changeset viewer.