1 | ! |
---|
2 | ! $Id: tides.h,v 1.4 2005/09/27 16:22:19 pmarches Exp $ |
---|
3 | ! |
---|
4 | !** Include file "tides.h" |
---|
5 | !*************************************************** Robert Hetland *** |
---|
6 | !** Copyright (c) 2000 Rutgers/UCLA ** |
---|
7 | !************************************************* Hernan G. Arango *** |
---|
8 | !** ** |
---|
9 | !** Tidal Components: ** |
---|
10 | !** ** |
---|
11 | !** Each of the following arrays has a dimension in tidal components ** |
---|
12 | !** classified by period: ** |
---|
13 | !** ** |
---|
14 | !** semi-diurnal: M2, S2, N2, K2 (12.42, 12.00, 12.66, 11.97h) ** |
---|
15 | !** diurnal: K1, O1, P1, Q1 (23.93, 25.82, 24.07, 26.87h) ** |
---|
16 | !** ** |
---|
17 | !** and other longer periods. The order of these tidal components is ** |
---|
18 | !** irrelevant here. The number of components to use depends on ** |
---|
19 | !** the regional application. ** |
---|
20 | !** ** |
---|
21 | !** NTC Number of tidal components to consider. ** |
---|
22 | !** SSH_Tamp Tidal elevation amplitude (m) at RHO-points. ** |
---|
23 | !** SSH_Tphase Tidal elevation phase (degrees/360) at RHO-points. ** |
---|
24 | !** Tperiod Tidal period (s). ** |
---|
25 | !** UV_Tangle Tidal current angle (radians; counterclockwise ** |
---|
26 | !** from EAST and rotated to curvilinear grid) at ** |
---|
27 | !** RHO-points. ** |
---|
28 | !** UV_Tmajor Maximum tidal current: tidal ellipse major axis ** |
---|
29 | !** (m/s) at RHO-points. ** |
---|
30 | !** UV_Tminor Minimum tidal current: tidal ellipse minor axis ** |
---|
31 | !** (m/s) at RHO-points. ** |
---|
32 | !** UV_Tphase Tidal current phase (degrees/360) at RHO-points. ** |
---|
33 | !** ** |
---|
34 | !********************************************************************** |
---|
35 | #if defined SSH_TIDES || defined UV_TIDES |
---|
36 | real Tperiod(Ntides) |
---|
37 | common /tides_Tperiod/ Tperiod |
---|
38 | #endif /* SSH_TIDES || UV_TIDES */ |
---|
39 | |
---|
40 | #if defined SSH_TIDES && (defined ZCLIMATOLOGY || defined Z_FRC_BRY) |
---|
41 | real SSH_Tamp(GLOBAL_2D_ARRAY,Ntides) |
---|
42 | common /tides_SSH_Tamp/ SSH_Tamp |
---|
43 | |
---|
44 | real SSH_Tphase(GLOBAL_2D_ARRAY,Ntides) |
---|
45 | common /tides_SSH_Tphase/ SSH_Tphase |
---|
46 | #endif |
---|
47 | |
---|
48 | #if defined UV_TIDES && (defined M2CLIMATOLOGY || defined M2_FRC_BRY) |
---|
49 | real UV_Tangle(GLOBAL_2D_ARRAY,Ntides) |
---|
50 | common /tides_UV_Tangle/ UV_Tangle |
---|
51 | |
---|
52 | real UV_Tmajor(GLOBAL_2D_ARRAY,Ntides) |
---|
53 | common /tides_UV_Tmajor/ UV_Tmajor |
---|
54 | |
---|
55 | real UV_Tminor(GLOBAL_2D_ARRAY,Ntides) |
---|
56 | common /tides_UV_Tminor/ UV_Tminor |
---|
57 | |
---|
58 | real UV_Tphase(GLOBAL_2D_ARRAY,Ntides) |
---|
59 | common /tides_UV_Tphase/ UV_Tphase |
---|
60 | #endif |
---|