- Timestamp:
- 2013-07-03T13:41:32+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/SBC/tide.h90
r3294 r3953 1 !! History : 9.0 ! 07 (O. Le Galloudec) Original code 1 !!---------------------------------------------------------------------- 2 !! History : 3.2 ! 2007 (O. Le Galloudec) Original code 3 !!---------------------------------------------------------------------- 2 4 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) 5 ! !! name_tide , equitide , nutide , nt , ns , nh , np , np1 , shift , nksi , nnu0 , nnu1 , nnu2 , R , formula !! 6 ! !! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !! 7 Wave( 1) = tide( 'M2' , 0.242297 , 2 , 2 , -2 , 2 , 0 , 0 , 0 , 2 , -2 , 0 , 0 , 0 , 78 ) 8 Wave( 2) = tide( 'N2' , 0.046313 , 2 , 2 , -3 , 2 , 1 , 0 , 0 , 2 , -2 , 0 , 0 , 0 , 78 ) 9 Wave( 3) = tide( '2N2' , 0.006184 , 2 , 2 , -4 , 2 , 2 , 0 , 0 , 2 , -2 , 0 , 0 , 0 , 78 ) 10 Wave( 4) = tide( 'S2' , 0.113572 , 2 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) 11 Wave( 5) = tide( 'K2' , 0.030875 , 2 , 2 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , -2 , 0 , 235 ) 12 ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 13 Wave( 6) = tide( 'K1' , 0.142408 , 1 , 1 , 0 , 1 , 0 , 0 , -90 , 0 , 0 , -1 , 0 , 0 , 227 ) 14 Wave( 7) = tide( 'O1' , 0.101266 , 1 , 1 , -2 , 1 , 0 , 0 , +90 , 2 , -1 , 0 , 0 , 0 , 75 ) 15 Wave( 8) = tide( 'Q1' , 0.019387 , 1 , 1 , -3 , 1 , 1 , 0 , +90 , 2 , -1 , 0 , 0 , 0 , 75 ) 16 Wave( 9) = tide( 'P1' , 0.047129 , 1 , 1 , 0 , -1 , 0 , 0 , +90 , 0 , 0 , 0 , 0 , 0 , 0 ) 17 ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 18 Wave(10) = tide( 'M4' , 0.000000 , 4 , 4 , -4 , 4 , 0 , 0 , 0 , 4 , -4 , 0 , 0 , 0 , 1 ) 19 ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 20 Wave(11) = tide( 'Mf' , 0.042017 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , -2 , 0 , 0 , 0 , 0 , 74 ) 21 Wave(12) = tide( 'Mm' , 0.022191 , 0 , 0 , 1 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 73 ) 22 Wave(13) = tide( 'Msqm' , 0.000667 , 0 , 0 , 4 , -2 , 0 , 0 , 0 , -2 , 0 , 0 , 0 , 0 , 74 ) 23 Wave(14) = tide( 'Mtm' , 0.008049 , 0 , 0 , 3 , 0 , -1 , 0 , 0 , -2 , 0 , 0 , 0 , 0 , 74 ) 24 ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 25 Wave(15) = tide( 'S1' , 0.000000 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) 26 Wave(16) = tide( 'MU2' , 0.005841 , 2 , 2 , -4 , 4 , 0 , 0 , 0 , 2 , -2 , 0 , 0 , 0 , 78 ) 27 Wave(17) = tide( 'NU2' , 0.009094 , 2 , 2 , -3 , 4 , -1 , 0 , 0 , 2 , -2 , 0 , 0 , 0 , 78 ) 28 Wave(18) = tide( 'L2' , 0.006694 , 2 , 2 , -1 , 2 , -1 , 0 , +180 , 2 , -2 , 0 , 0 , 0 , 215 ) 29 Wave(19) = tide( 'T2' , 0.006614 , 2 , 2 , 0 , -1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 )
Note: See TracChangeset
for help on using the changeset viewer.