/[MITgcm]/MITgcm/pkg/sbo/SBO.h
ViewVC logotype

Contents of /MITgcm/pkg/sbo/SBO.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.8 - (show annotations) (download)
Sun Jan 3 20:03:36 2010 UTC (14 years, 6 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62c, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62w, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint64, checkpoint63, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint62b, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f
Changes since 1.7: +26 -33 lines
File MIME type: text/plain 
- fix ocean bottom pressure 2-D time-ave output (was neither initialised nor filled).
- add starting iteration in suffix of global-average output file
  (to avoid over-writing the file after a restart)
- use standard MDSIO pkg S/R instead of SBO_WRITEVECTOR (this fix byte-swap Pb).
1 C $Header: /u/gcmpack/MITgcm/pkg/sbo/SBO.h,v 1.7 2007/10/01 15:22:54 jmc Exp $
2 C $Name: $
3
4 #ifdef ALLOW_SBO
5
6 C *==========================================================*
7 C | SBO.h
8 C | o Basic header for SBO
9 C *==========================================================*
10
11 C xoamc :: x-comp oam due to currents (kg-m**2/s)
12 C yoamc :: y-comp oam due to currents (kg-m**2/s)
13 C zoamc :: z-comp oam due to currents (kg-m**2/s)
14 C xoamp :: x-comp oam due to pressure (kg-m**2/s)
15 C yoamp :: y-comp oam due to pressure (kg-m**2/s)
16 C zoamp :: z-comp oam due to pressure (kg-m**2/s)
17 C mass :: mass of oceans (kg)
18 C xcom :: x-comp of center-of-mass of oceans (m)
19 C ycom :: y-comp of center-of-mass of oceans (m)
20 C zcom :: z-comp of center-of-mass of oceans (m)
21 C obp :: ocean-bottom pressure (Pascals)
22 cph(
23 C area :: surface wet area (m**2)
24 C sboempmrwet :: net E-P-R over the ocean (kg/m2/s)
25 C sboqnetwet :: net heat flux over the ocean (W/m**2)
26 cph)
27 C
28 _RL xoamc, yoamc, zoamc, xoamp, yoamp, zoamp
29 _RL mass, xcom, ycom, zcom
30 _RL sbobp, sboarea, sboempmrwet, sboqnetwet
31 _RL obp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32 common /sbo/ xoamc, yoamc, zoamc, xoamp, yoamp, zoamp,
33 & mass, xcom, ycom, zcom, obp, sbobp,
34 & sboarea, sboempmrwet, sboqnetwet
35
36 C sbo_taveFreq :: SBO time-averaging frequency (s)
37 C
38 _RL sbo_taveFreq
39 COMMON /sbo_r/ sbo_taveFreq
40
41 #ifdef ALLOW_TIMEAVE
42
43 C----------------------------------------------------------------
44 C sbo_timeAve - time of temporal integration (s) for each thread
45 C----------------------------------------------------------------
46
47 _RL sbo_timeAve(nSx,nSy)
48 COMMON /SBO_TAVE_COUNT/ sbo_timeAve
49
50 C----------------------------------------------------------------
51 C OBPtave - time-averaged ocean-bottom pressure (Pascals)
52 C----------------------------------------------------------------
53
54 _RL OBPtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
55 COMMON /SBO_TAVE_FIELDS/ OBPtave
56
57 #endif /* ALLOW_TIMEAVE */
58
59 #endif /* ALLOW_SBO */
  ViewVC Help
Powered by ViewVC 1.1.22