pkg/shelfice/SHELFICE_TAVE.h

C $Header: /u/gcmpack/MITgcm/pkg/shelfice/SHELFICE_TAVE.h,v 1.2 2009/06/17 15:04:14 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(Nr,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	C $Header: /u/gcmpack/MITgcm/pkg/shelfice/SHELFICE_TAVE.h,v 1.2 2009/06/17 15:04:14 jmc Exp $
2	C $Name: $
3
4	C ==========================================================
5	C \| SHELFICE_TAVE.h
6	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(Nr,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: ***