pkg/gmredi/GMREDI_DIAGS.h

C $Header: $

#ifdef ALLOW_GMREDI

C     /==========================================================\
C     | GM_DIAGS.h                                               |
C     | o Header for GM?Redi diagnostic output                   |
C     \==========================================================/

#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE

C     Keep track of time
      _RL GM_TimeAve(Nr,nSx,nSy)
      COMMON /GM_TAVE/ GM_TimeAve


C     Storage arrays for time-averages
      _RL GM_Kwx_T    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL GM_Kwy_T    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL GM_Kwz_T    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      COMMON /GM_TAVE_ARRAYS/
     &                       GM_Kwx_T,
     &                       GM_Kwy_T,
     &                       GM_Kwz_T

#ifdef GM_VISBECK_VARIABLE_K
      _RL Visbeck_K_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      COMMON /VIS_TAVE/
     &                       Visbeck_K_T
#endif

#endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */

#endif /* ALLOW_GMREDI */
1	C $Header: $
2
3	#ifdef ALLOW_GMREDI
4
5	C /==========================================================\
6	C \| GM_DIAGS.h \|
7	C \| o Header for GM?Redi diagnostic output \|
8	C \==========================================================/
9
10	#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
11
12	C Keep track of time
13	_RL GM_TimeAve(Nr,nSx,nSy)
14	COMMON /GM_TAVE/ GM_TimeAve
15
16
17	C Storage arrays for time-averages
18	_RL GM_Kwx_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
19	_RL GM_Kwy_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
20	_RL GM_Kwz_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
21	COMMON /GM_TAVE_ARRAYS/
22	& GM_Kwx_T,
23	& GM_Kwy_T,
24	& GM_Kwz_T
25
26	#ifdef GM_VISBECK_VARIABLE_K
27	_RL Visbeck_K_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28	COMMON /VIS_TAVE/
29	& Visbeck_K_T
30	#endif
31
32	#endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */
33
34	#endif /* ALLOW_GMREDI */