1 |
C $Header: |
2 |
|
3 |
#ifdef ALLOW_SBO |
4 |
|
5 |
C /==========================================================\ |
6 |
C | SBO.h | |
7 |
C | o Basic header for SBO | |
8 |
C \==========================================================/ |
9 |
|
10 |
C xoamc - x-comp oam due to currents (kg-m**2/s) |
11 |
C yoamc - y-comp oam due to currents (kg-m**2/s) |
12 |
C zoamc - z-comp oam due to currents (kg-m**2/s) |
13 |
C xoamp - x-comp oam due to pressure (kg-m**2/s) |
14 |
C yoamp - y-comp oam due to pressure (kg-m**2/s) |
15 |
C zoamp - z-comp oam due to pressure (kg-m**2/s) |
16 |
C mass - mass of oceans (kg) |
17 |
C xcom - x-comp of center-of-mass of oceans (m) |
18 |
C ycom - y-comp of center-of-mass of oceans (m) |
19 |
C zcom - z-comp of center-of-mass of oceans (m) |
20 |
C obp - ocean-bottom pressure (Pascals) |
21 |
C |
22 |
_RL xoamc, yoamc, zoamc, xoamp, yoamp, zoamp |
23 |
_RL mass, xcom, ycom, zcom |
24 |
_RL obp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
25 |
common /sbo/ xoamc, yoamc, zoamc, xoamp, yoamp, zoamp, |
26 |
& mass, xcom, ycom, zcom, obp |
27 |
|
28 |
C sbo_taveFreq - SBO time-averaging frequency (s) |
29 |
C |
30 |
_RL sbo_taveFreq |
31 |
COMMON /sbo_r/ sbo_taveFreq |
32 |
|
33 |
#ifdef ALLOW_TIMEAVE |
34 |
|
35 |
C---------------------------------------------------------------- |
36 |
C sbo_drctrecTave - next record to dump for SBO averaging files |
37 |
C---------------------------------------------------------------- |
38 |
|
39 |
INTEGER sbo_drctrecTave |
40 |
COMMON /SBO_RECORDNUM/ sbo_drctrecTave |
41 |
|
42 |
C---------------------------------------------------------------- |
43 |
C sbo_TimeAve - time of temporal integration (s) for each thread |
44 |
C---------------------------------------------------------------- |
45 |
|
46 |
_RL sbo_TimeAve(Nr,nSx,nSy) |
47 |
COMMON /SBO_TAVE/ sbo_TimeAve |
48 |
|
49 |
C---------------------------------------------------------------- |
50 |
C OBPtave - time-averaged ocean-bottom pressure (Pascals) |
51 |
C---------------------------------------------------------------- |
52 |
|
53 |
_RL OBPtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
54 |
COMMON /SBO_TAVE_DIAGS/ OBPtave |
55 |
|
56 |
#endif ALLOW_TIMEAVE |
57 |
|
58 |
#endif ALLOW_SBO |