pkg/opps/OPPS_TAVE.h

C $Header: /u/gcmpack/MITgcm/pkg/opps/OPPS_DIAGS.h,v 1.1 2004/09/16 11:28:16 mlosch Exp $
C $Name:  $

#ifdef ALLOW_OPPS

C     *==========================================================*
C     | OPPS_TAVE.h
C     | o Header for OPPS time-average output
C     *==========================================================*

C----------------------------------------------------------------
C     opps_drctrec     - next record to dump for PP files
C----------------------------------------------------------------
      INTEGER opps_drctrec
      COMMON /OPPS_RECORDNUM1/ opps_drctrec

#ifdef ALLOW_TIMEAVE
C----------------------------------------------------------------
C     opps_drctrecTave - next record to dump for PP averaging files
C----------------------------------------------------------------

      INTEGER opps_drctrecTave
      COMMON /OPPS_RECORDNUM2/ opps_drctrecTave

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

      _RL opps_TimeAve(Nr,nSx,nSy)
      COMMON /OPPS_TAVE/ opps_TimeAve

C----------------------------------------------------------------
C     OPPS*tave    - Time-averaging OPPS variables
C----------------------------------------------------------------

      _RL OPPSconvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,
     &                         Nr,nSx,nSy)
      COMMON /OPPS_TAVE_DIAGS/
     &     OPPSconvectCountTave

#endif /* ALLOW_TIMEAVE */

#endif /* ALLOW_OPPS */
1	C $Header: /u/gcmpack/MITgcm/pkg/opps/OPPS_DIAGS.h,v 1.1 2004/09/16 11:28:16 mlosch Exp $
2	C $Name: $
3
4	#ifdef ALLOW_OPPS
5
6	C ==========================================================
7	C \| OPPS_TAVE.h
8	C \| o Header for OPPS time-average output
9	C ==========================================================
10
11	C----------------------------------------------------------------
12	C opps_drctrec - next record to dump for PP files
13	C----------------------------------------------------------------
14	INTEGER opps_drctrec
15	COMMON /OPPS_RECORDNUM1/ opps_drctrec
16
17	#ifdef ALLOW_TIMEAVE
18	C----------------------------------------------------------------
19	C opps_drctrecTave - next record to dump for PP averaging files
20	C----------------------------------------------------------------
21
22	INTEGER opps_drctrecTave
23	COMMON /OPPS_RECORDNUM2/ opps_drctrecTave
24
25	C----------------------------------------------------------------
26	C opps_TimeAve - time of temporal integration (s) for each thread
27	C----------------------------------------------------------------
28
29	_RL opps_TimeAve(Nr,nSx,nSy)
30	COMMON /OPPS_TAVE/ opps_TimeAve
31
32	C----------------------------------------------------------------
33	C OPPS*tave - Time-averaging OPPS variables
34	C----------------------------------------------------------------
35
36	_RL OPPSconvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,
37	& Nr,nSx,nSy)
38	COMMON /OPPS_TAVE_DIAGS/
39	& OPPSconvectCountTave
40
41	#endif /* ALLOW_TIMEAVE */
42
43	#endif /* ALLOW_OPPS */