ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
                        º  MAIN PROGRAM OTEM16  º
                        ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

                        MODEL PREPARATION PHASE 2a


Explicit time dependent model * Preparation

This routine combines the output of OTEM92.f and adds the
luni-solar tide potential. It prepares the input for an explicitly
time dependent ocean tide model; the starting epoch and a maximum
number of harmonic tide constituents must be decided here.



*.ins file:

1 Namelist &PARAM.
2 Open file block.
3 Output dump file path, right-delim.=']'.
4 Optional: Select tides manually.

1 Namelist /PARAM/:

epoch(3) - integer - year, month, day for tide potential reference

dtut     - real*8  - TDT-TAI [s], 60 s after Jul 1, 1993

ntides   - integer - the number of partials to be output. Max=100.

wave_set - char*1  - 'S' the traditional set like in Schwiderski
                     'L' the FES2004 set of Letellier                   ['S'] 

opt      - char*8  - options:
                     'L' - include long-period tides.
                     'P' - global loading tide data on unit 34 is packed.
                     'B' - global loading + body tide on unit 34.

iuastr   - integer - file unit number for astron. potential               [3]
iuabd    - integer -   for active boundary data. -1: skip                [31]
iuoltd   - integer -   for ocean loading data.   -1: skip                [34]

freqmin  - real    - lower tide spectrum corner frequency [deg/h]

select_tides - 
         - integer - number of records at the end of the *.INS-file:
                     tide constituents to be included explicitly.
                     (Then: all tides must be announced manually.)        [0]

k_select_width - 
         - integer - Select on argument numbers 0..k
                     Use 7 if arg.no. on pi/2 is essential                [6]

2 Open files, (O)=optional
31 - inp:  O-o-area tides, multi (e.g. MDLnn/OOTIDES.DAT)   (O)
32 - inp:  'Z'-flags
33 - inp:  Act.bound geometry (e.g. MDLnn/ABOUND.DAT)
34 - inp:  Load tides, multi (e.g. MDLnn/ATOTEP.DAT)        (O)

4 Optional: Select tides manually
Announce Select_tides=n in &PARAM.
Code n lines, one for each tide. Two possible forms: Symbol, Argument numbers.
M2
S2
2,2,2,0,0,0,0



To edit a selection of tides, run otem16 with a large number for ntides.
Catch the end of the protocoll, include in the *.ins file and edit.