pkg/shelfice/SHELFICE_TAVE.h

C $Header: /u/gcmpack/MITgcm/pkg/shelfice/SHELFICE_TAVE.h,v 1.1 2009/06/17 14:48:04 jmc Exp $
C $Name:  $

C     *==========================================================*
C     | SHELFICE_TAVE.h
C     | o Header for SHELFICE time-average output
C     *==========================================================*

#ifdef ALLOW_TIMEAVE

C     Keep track of time
      _RL SHELFICE_TimeAve(1,nSx,nSy)
      COMMON /SHELFICE_TAVE/ SHELFICE_TimeAve

C     Storage arrays for time-averages
      _RL shelfice_heatFluxtave
     &     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
      _RL shelfice_frshFluxtave
     &     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
      COMMON /SHELFICE_TAVE_DIAGS/
     &     shelfice_heatFluxtave,
     &     shelfice_frshFluxtave

#endif /* ALLOW_TIMEAVE */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	jmc	1.2	C $Header: /u/gcmpack/MITgcm/pkg/shelfice/SHELFICE_TAVE.h,v 1.1 2009/06/17 14:48:04 jmc Exp $
2	jmc	1.1	C $Name: $
3
4			C ==========================================================
5	jmc	1.2	C \| SHELFICE_TAVE.h
6	jmc	1.1	C \| o Header for SHELFICE time-average output
7			C ==========================================================
8
9			#ifdef ALLOW_TIMEAVE
10
11			C Keep track of time
12			_RL SHELFICE_TimeAve(1,nSx,nSy)
13			COMMON /SHELFICE_TAVE/ SHELFICE_TimeAve
14
15			C Storage arrays for time-averages
16			_RL shelfice_heatFluxtave
17			& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
18			_RL shelfice_frshFluxtave
19			& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
20			COMMON /SHELFICE_TAVE_DIAGS/
21			& shelfice_heatFluxtave,
22			& shelfice_frshFluxtave
23
24			#endif /* ALLOW_TIMEAVE */
25
26			CEH3 ;;; Local Variables: ***
27			CEH3 ;;; mode:fortran ***
28			CEH3 ;;; End: ***