[2] | 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 |
---|