- Timestamp:
- 2021-03-03T16:04:57+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/OCE/TDE/tide.h90
r11865 r14574 67 67 ! | Diurnal tidal constituents | 68 68 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 69 tide_components( 8) = tide( 'K1' , -0.142486_wp , 1 , 0 , 1 , 0 , 0 , 90 , 0 , 0 , -1 , 0 , 0 , 227 ) ! CE73 | S54 (Table 2) | Note 1 | 69 tide_components( 8) = tide( 'K1' , 0.142486_wp , 1 , 0 , 1 , 0 , 0 , -90 , 0 , 0 , -1 , 0 , 0 , 227 ) ! CE73, sign | S54 (Table 2) | Note 1 | 70 ! | | | | | | | | | | | | | | | change | | | 70 71 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 71 72 tide_components( 9) = tide( 'O1' , 0.101316_wp , 1 , -2 , 1 , 0 , 0 , 90 , 2 , -1 , 0 , 0 , 0 , 75 ) ! CE73 | S54 (Table 2, A14) | | … … 75 76 tide_components(11) = tide( 'Q1' , 0.019396_wp , 1 , -3 , 1 , 1 , 0 , 90 , 2 , -1 , 0 , 0 , 0 , 75 ) ! CE73 | S54 (Table 2, A15) | | 76 77 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 77 tide_components(12) = tide( 'J1' , -0.007967_wp , 1 , 1 , 1 , -1 , 0 , 90 , 0 , -1 , 0 , 0 , 0 , 76 ) ! CE73 | S54 (Table 2, A24) | Note 1 | 78 tide_components(12) = tide( 'J1' , 0.007967_wp , 1 , 1 , 1 , -1 , 0 , -90 , 0 , -1 , 0 , 0 , 0 , 76 ) ! CE73, sign | S54 (Table 2, A24) | Note 1 | 79 ! | | | | | | | | | | | | | | | change | | | 78 80 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 79 81 tide_components(13) = tide( 'S1' , 0.000000_wp , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) ! Meteorological | S54 (Table 2, B71) | | … … 96 98 tide_components(20) = tide( '2N2' , 0.006184_wp , 2 , -4 , 2 , 2 , 0 , 0 , 2 , -2 , 0 , 0 , 0 , 78 ) ! CE73 | S54 (Table 2, A42) | | 97 99 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 98 tide_components(21) = tide( 'L2' , -0.006899_wp , 2 , -1 , 2 , -1 , 0 , 0 , 2 , -2 , 0 , 0 , -1 , 215 ) ! CE73 | S54 (Table 2) | Note 1 | 100 tide_components(21) = tide( 'L2' , 0.006899_wp , 2 , -1 , 2 , -1 , 0 , 180 , 2 , -2 , 0 , 0 , -1 , 215 ) ! CE73, sign | S54 (Table 2) | Note 1 | 101 ! | | | | | | | | | | | | | | | change | | | 99 102 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 100 103 tide_components(22) = tide( 'T2' , 0.006655_wp , 2 , 0 , -1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) ! CE73 | S54 (Table 2, B40) | | … … 103 106 ! | | | | | | | | | | | | | | | | algorithm) | | 104 107 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 105 tide_components(24) = tide( 'lam2' , -0.001800_wp , 2 , -1 , 0 , 1 , 0 , 0 , 2 , -2 , 0 , 0 , 0 , 78 ) ! CE73 | S54 (Table 2, A44) | Note 1 | 108 tide_components(24) = tide( 'lam2' , 0.001800_wp , 2 , -1 , 0 , 1 , 0 , 180 , 2 , -2 , 0 , 0 , 0 , 78 ) ! CE73, sign | S54 (Table 2, A44) | Note 1 | 109 ! | | | | | | | | | | | | | | | change | | | 106 110 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 107 tide_components(25) = tide( 'R2' , -0.000952_wp , 2 , 0 , 1 , 0 , -1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) ! CE73 | S54 (Table 2, B41) | Note 1 | 111 tide_components(25) = tide( 'R2' , 0.000952_wp , 2 , 0 , 1 , 0 , -1 , 180 , 0 , 0 , 0 , 0 , 0 , 0 ) ! CE73, sign | S54 (Table 2, B41) | Note 1 | 112 ! | | | | | | | | | | | | | | | change | | | 108 113 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 109 114 ! | Terdiurnal tidal constituents | 110 115 ! +--------+-------------+-----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 111 tide_components(26) = tide( 'M3' , -0.003192_wp , 3 , -3 , 3 , 0 , 0 , 180 , 3 , -3 , 0 , 0 , 0 , 149 ) ! CT71 | S54 (Table 2, A82) | Note 2 | 116 tide_components(26) = tide( 'M3' , 0.003192_wp , 3 , -3 , 3 , 0 , 0 , 0 , 3 , -3 , 0 , 0 , 0 , 149 ) ! CT71, sign | S54 (Table 2, A82) | Note 2 | 117 ! | | | | | | | | | | | | | | | change | | | 112 118 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 113 119 ! | Compound tides | … … 135 141 tide_components(34) = tide( 'M8' , 0.000000_wp , 8 , -8 , 8 , 0 , 0 , 0 , 8 , -8 , 0 , 0 , 0 , 20 ) ! Overtide | S54 | | 136 142 ! +--------+--------------+----+----+----+----+-----+-------+-----+------+------+------+----+------------+----------------+-----------------------+--------+ 137 ! Note 1: the phase shift from Table 2 of S54 has been adjusted to accomodate the negative sign of the equilibrium-tide value derived from CE73.138 ! Note 2: the phase shift from Table 2 of S54 has been adjusted to accomodate the negative sign of the equilibrium-tide value derived from CT71.143 ! Note 1: the negative sign of the equilibrium-tide value derived from CE73 has been changed to accomodate the phase shift from Table 2 of S54. 144 ! Note 2: the negative sign of the equilibrium-tide value derived from CT71 has been changed to accomodate the phase shift from Table 2 of S54. 139 145 ! Note 3: the nodal correction factor formulas from FES2014 and S54 differ; here, the version from FES2014 has been selected. 140 146 #else
Note: See TracChangeset
for help on using the changeset viewer.