New URL for NEMO forge! http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.

Changeset 6654 – NEMO

Context Navigation

← Previous Changeset
Next Changeset →

Changeset 6654

Timestamp:

2016-06-02T16:04:42+02:00 (8 years ago)

Author:

jgraham

Message:

Updates required for expanded list of tidal constituents.

Location:

branches/UKMO/dev_r5518_amm15_test/NEMOGCM/NEMO/OPA_SRC/SBC

Files:

: 2 edited

tide_mod.F90 (modified) (1 diff)
tideini.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/UKMO/dev_r5518_amm15_test/NEMOGCM/NEMO/OPA_SRC/SBC/tide_mod.F90

r6344	r6654
19	19
20	20	TYPE, PUBLIC :: tide
21		CHARACTER(LEN=4) :: cname_tide
	21	CHARACTER(LEN=5) :: cname_tide
22	22	REAL(wp) :: equitide
23	23	INTEGER :: nutide

branches/UKMO/dev_r5518_amm15_test/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

r5886	r6654
48	48	INTEGER :: ji, jk
49	49	INTEGER, INTENT( in ) :: kt ! ocean time-step
50		CHARACTER(LEN=4), DIMENSION(jpmax_harmo) :: clname
	50	CHARACTER(LEN=5), DIMENSION(jpmax_harmo) :: clname
51	51	INTEGER :: ios ! Local integer output status for namelist read
52	52	!

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: