itd/code/SEAICE_TAVE.h

C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TAVE.h,v 1.2 2012/10/22 21:14:06 heimbach Exp $
C $Name:  $

CBOP
C     !ROUTINE: SEAICE_TAVE.h
C     !INTERFACE:
C     include "SEAICE_TAVE.h"
C     !DESCRIPTION:
C     \bv
C     *==========================================================*
C     | SEAICE_TAVE.h
C     | o Header for time-average SEAICE variables
C     *==========================================================*
C     \ev
CEOP

#ifdef ALLOW_TIMEAVE

C--   COMMON /SEAICE_TAVE_VARS/ time-averaged variables
C     SEAICE_timeAve :: cumulated time [s]
      COMMON /SEAICE_TAVE_VARS/
     &        SEAICE_timeAve,
     &        FUtave, FVtave, EmPmRtave, QNETtave, QSWtave,
     &        UICEtave, VICEtave, HEFFtave, AREAtave

      _RL SEAICE_timeAve(nSx,nSy)
      _RL FUtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL FVtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL QNETtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL QSWtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL UICEtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL VICEtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL HEFFtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL AREAtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

#ifdef SEAICE_ITD
      COMMON /SEAICE_TAVE_VARS_ITD/
     &        HEFFITDtave, AREAITDtave
      _RL HEFFITDtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
      _RL AREAITDtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
#endif

#endif /* ALLOW_TIMEAVE */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	torge	1.4	C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TAVE.h,v 1.2 2012/10/22 21:14:06 heimbach Exp $
2	torge	1.1	C $Name: $
3
4			CBOP
5			C !ROUTINE: SEAICE_TAVE.h
6			C !INTERFACE:
7			C include "SEAICE_TAVE.h"
8			C !DESCRIPTION:
9			C \bv
10			C ==========================================================
11			C \| SEAICE_TAVE.h
12			C \| o Header for time-average SEAICE variables
13			C ==========================================================
14			C \ev
15			CEOP
16
17			#ifdef ALLOW_TIMEAVE
18
19			C-- COMMON /SEAICE_TAVE_VARS/ time-averaged variables
20			C SEAICE_timeAve :: cumulated time [s]
21			COMMON /SEAICE_TAVE_VARS/
22			& SEAICE_timeAve,
23			& FUtave, FVtave, EmPmRtave, QNETtave, QSWtave,
24			& UICEtave, VICEtave, HEFFtave, AREAtave
25
26			_RL SEAICE_timeAve(nSx,nSy)
27			_RL FUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28			_RL FVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29			_RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30			_RL QNETtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
31			_RL QSWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32			_RL UICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
33			_RL VICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34			_RL HEFFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35			_RL AREAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36	heimbach	1.3
37	torge	1.2	#ifdef SEAICE_ITD
38	heimbach	1.3	COMMON /SEAICE_TAVE_VARS_ITD/
39			& HEFFITDtave, AREAITDtave
40	torge	1.2	_RL HEFFITDtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
41			_RL AREAITDtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
42			#endif
43	torge	1.1
44			#endif /* ALLOW_TIMEAVE */
45
46			CEH3 ;;; Local Variables: ***
47			CEH3 ;;; mode:fortran ***
48			CEH3 ;;; End: ***