1 |
|
C |
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 |