1 | !! History : 9.0 ! 07 (O. Le Galloudec) Original code |
---|
2 | |
---|
3 | ! Wave(1)= tide(name_tide,equitide,nutide,nt,ns,nh,np,np1,shift,nksi,nnu0,nnu1,nnu2,R,formula) |
---|
4 | |
---|
5 | |
---|
6 | Wave(1)= tide('M2' ,0.242297,2 ,2 ,-2,2 ,0 ,0 ,0 ,2 ,-2 ,0 ,0 ,0,78) |
---|
7 | Wave(2)= tide('N2' ,0.046313,2 ,2 ,-3,2 ,1 ,0 ,0 ,2 ,-2 ,0 ,0 ,0,78) |
---|
8 | Wave(3)= tide('2N2' ,0.006184,2 ,2 ,-4,2 ,2 ,0 ,0 ,2 ,-2 ,0 ,0 ,0,78) |
---|
9 | Wave(4)= tide('S2' ,0.113572,2 ,2 , 0,0 ,0 ,0 ,0 ,0 , 0 ,0 ,0 ,0,0) |
---|
10 | Wave(5)= tide('K2' ,0.030875,2 ,2 , 0,2 ,0 ,0 ,0 ,0 , 0 ,0 ,-2 ,0,235) |
---|
11 | |
---|
12 | Wave(6)= tide('K1' ,0.142408,1 ,1 , 0,1 ,0 ,0 ,-90 ,0 , 0 ,-1 ,0 ,0,227) |
---|
13 | Wave(7)= tide('O1' ,0.101266,1 ,1 ,-2,1 ,0 ,0 ,+90 ,2 ,-1 , 0 ,0 ,0,75) |
---|
14 | Wave(8)= tide('Q1' ,0.019387,1 ,1 ,-3,1 ,1 ,0 ,+90 ,2 ,-1 , 0 ,0 ,0,75) |
---|
15 | Wave(9)= tide('P1' ,0.047129,1 ,1 , 0,-1,0 ,0 ,+90 ,0 , 0 , 0 ,0 ,0,0) |
---|
16 | |
---|
17 | Wave(10)= tide('M4' ,0.000000,4 ,4 ,-4, 4,0 ,0 ,0 ,4 , -4 , 0 ,0 ,0,1) |
---|
18 | |
---|
19 | Wave(11) = tide('Mf' ,0.042017,0 ,0 , 2, 0,0 ,0 ,0 ,-2 , 0 , 0 ,0 ,0,74) |
---|
20 | Wave(12) = tide('Mm' ,0.022191,0 ,0 , 1,0 ,-1,0 ,0 ,0 , 0 , 0 ,0 ,0,73) |
---|
21 | Wave(13) = tide('Msqm' ,0.000667,0 ,0 , 4,-2, 0,0 ,0 ,-2 , 0 , 0 ,0 ,0,74) |
---|
22 | Wave(14) = tide('Mtm' ,0.008049,0 ,0 , 3, 0,-1,0 ,0 ,-2 , 0 , 0 ,0 ,0,74) |
---|
23 | |
---|
24 | Wave(15) = tide('S1' ,0.000000,1 ,1, 0, 0, 0,0 ,0 , 0 , 0 , 0 ,0 ,0,0) |
---|
25 | Wave(16) = tide('MU2' ,0.005841,2 ,2, -4, 4, 0,0 ,0 ,2 ,-2 , 0, 0 ,0,78) |
---|
26 | Wave(17) = tide('NU2' ,0.009094,2 ,2, -3, 4,-1,0 ,0 ,2 ,-2 , 0, 0 ,0,78) |
---|
27 | Wave(18) = tide('L2' ,0.006694,2 ,2, -1, 2,-1,0 ,+180 ,2 ,-2 , 0, 0 ,0,215) |
---|
28 | Wave(19) = tide('T2' ,0.006614,2 ,2, 0,-1, 0,1 ,0 ,0 , 0 , 0, 0 ,0,0) |
---|