pkg/my82/MY82_TAVE.h

C $Header: /u/gcmpack/MITgcm/pkg/my82/MY82_DIAGS.h,v 1.1 2004/09/02 09:11:54 mlosch Exp $
C $Name:  $

#ifdef ALLOW_MY82

C     *==========================================================*
C     | MY82_TAVE.h
C     | o Header for MY82 time-average output
C     *==========================================================*

C----------------------------------------------------------------
C     my_drctrec     - next record to dump for MY82 files
C----------------------------------------------------------------
      INTEGER my_drctrec
      COMMON /MY_RECORDNUM1/ my_drctrec

#ifdef ALLOW_TIMEAVE
C----------------------------------------------------------------
C     my_drctrecTave - next record to dump for MY82 averaging files
C----------------------------------------------------------------

      INTEGER my_drctrecTave
      COMMON /MY_RECORDNUM2/ my_drctrecTave

C----------------------------------------------------------------
C     my_TimeAve - time of temporal integration (s) for each thread
C----------------------------------------------------------------

      _RL my_TimeAve(Nr,nSx,nSy)
      COMMON /MY_TAVE/ my_TimeAve

C----------------------------------------------------------------
C     MY*tave    - Time-averaging MY variables
C----------------------------------------------------------------

      _RL MYhbltave     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL MYviscArtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL MYdiffKrtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /MY_TAVE_DIAGS/
     &        MYhbltave, MYviscArtave, MYdiffKrtave

#endif

#endif
1	C $Header: /u/gcmpack/MITgcm/pkg/my82/MY82_DIAGS.h,v 1.1 2004/09/02 09:11:54 mlosch Exp $
2	C $Name: $
3
4	#ifdef ALLOW_MY82
5
6	C ==========================================================
7	C \| MY82_TAVE.h
8	C \| o Header for MY82 time-average output
9	C ==========================================================
10
11	C----------------------------------------------------------------
12	C my_drctrec - next record to dump for MY82 files
13	C----------------------------------------------------------------
14	INTEGER my_drctrec
15	COMMON /MY_RECORDNUM1/ my_drctrec
16
17	#ifdef ALLOW_TIMEAVE
18	C----------------------------------------------------------------
19	C my_drctrecTave - next record to dump for MY82 averaging files
20	C----------------------------------------------------------------
21
22	INTEGER my_drctrecTave
23	COMMON /MY_RECORDNUM2/ my_drctrecTave
24
25	C----------------------------------------------------------------
26	C my_TimeAve - time of temporal integration (s) for each thread
27	C----------------------------------------------------------------
28
29	_RL my_TimeAve(Nr,nSx,nSy)
30	COMMON /MY_TAVE/ my_TimeAve
31
32	C----------------------------------------------------------------
33	C MY*tave - Time-averaging MY variables
34	C----------------------------------------------------------------
35
36	_RL MYhbltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37	_RL MYviscArtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
38	_RL MYdiffKrtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
39	COMMON /MY_TAVE_DIAGS/
40	& MYhbltave, MYviscArtave, MYdiffKrtave
41
42	#endif
43
44	#endif