pkg/ggl90/GGL90_DIAGS.h

C $Header: $
C $Name:  $

#ifdef ALLOW_GGL90

C     /==========================================================\
C     | GGL90_DIAGS.h                                            |
C     | o Header for GGL90 diagnostic output                     |
C     \==========================================================/

C----------------------------------------------------------------
C     my_drctrec     - next record to dump for GGL90 files
C----------------------------------------------------------------
      INTEGER ggl90_drctrec
      COMMON /GGL90_RECORDNUM1/ ggl90_drctrec

#ifdef ALLOW_TIMEAVE
C----------------------------------------------------------------
C     ggl90_drctrecTave - next record to dump for GGL90 averaging files
C----------------------------------------------------------------

      INTEGER ggl90_drctrecTave
      COMMON /GGL90_RECORDNUM2/ ggl90_drctrecTave

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

      _RL ggl90_TimeAve(Nr,nSx,nSy)
      COMMON /GGL90_TAVE/ ggl90_TimeAve

C----------------------------------------------------------------
C     GGL90*tave    - Time-averaging GGL90 variables
C----------------------------------------------------------------

      _RL GGL90TKEtave     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL GGL90viscArtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL GGL90diffKrtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /GGL90_TAVE_DIAGS/
     &        GGL90TKEtave, GGL90viscArtave, GGL90diffKrtave

#endif /* ALLOW_TIMEAVE */

#endif /* ALLOW_GGL90 */
1	C $Header: $
2	C $Name: $
3
4	#ifdef ALLOW_GGL90
5
6	C /==========================================================\
7	C \| GGL90_DIAGS.h \|
8	C \| o Header for GGL90 diagnostic output \|
9	C \==========================================================/
10
11	C----------------------------------------------------------------
12	C my_drctrec - next record to dump for GGL90 files
13	C----------------------------------------------------------------
14	INTEGER ggl90_drctrec
15	COMMON /GGL90_RECORDNUM1/ ggl90_drctrec
16
17	#ifdef ALLOW_TIMEAVE
18	C----------------------------------------------------------------
19	C ggl90_drctrecTave - next record to dump for GGL90 averaging files
20	C----------------------------------------------------------------
21
22	INTEGER ggl90_drctrecTave
23	COMMON /GGL90_RECORDNUM2/ ggl90_drctrecTave
24
25	C----------------------------------------------------------------
26	C ggl90_TimeAve - time of temporal integration (s) for each thread
27	C----------------------------------------------------------------
28
29	_RL ggl90_TimeAve(Nr,nSx,nSy)
30	COMMON /GGL90_TAVE/ ggl90_TimeAve
31
32	C----------------------------------------------------------------
33	C GGL90*tave - Time-averaging GGL90 variables
34	C----------------------------------------------------------------
35
36	_RL GGL90TKEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37	_RL GGL90viscArtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
38	_RL GGL90diffKrtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
39	COMMON /GGL90_TAVE_DIAGS/
40	& GGL90TKEtave, GGL90viscArtave, GGL90diffKrtave
41
42	#endif /* ALLOW_TIMEAVE */
43
44	#endif /* ALLOW_GGL90 */