itd/code/SEAICE_TAVE.h

C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TAVE.h,v 1.1 2010/01/03 00:27:36 jmc 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,
#ifdef SEAICE_ITD
     &        UICEtave, VICEtave, HEFFtave, AREAtave,
     &        HEFFITDtave, AREAITDtave
#else
     &        UICEtave, VICEtave, HEFFtave, AREAtave
#endif

      _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
      _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.1	C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TAVE.h,v 1.1 2010/01/03 00:27:36 jmc Exp $
2			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	torge	1.2	#ifdef SEAICE_ITD
25			& UICEtave, VICEtave, HEFFtave, AREAtave,
26			& HEFFITDtave, AREAITDtave
27			#else
28	torge	1.1	& UICEtave, VICEtave, HEFFtave, AREAtave
29	torge	1.2	#endif
30	torge	1.1
31			_RL SEAICE_timeAve(nSx,nSy)
32			_RL FUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
33			_RL FVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34			_RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35			_RL QNETtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36			_RL QSWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37			_RL UICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38			_RL VICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39			_RL HEFFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40			_RL AREAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
41	torge	1.2	#ifdef SEAICE_ITD
42			_RL HEFFITDtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
43			_RL AREAITDtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
44			#endif
45	torge	1.1
46			#endif /* ALLOW_TIMEAVE */
47
48			CEH3 ;;; Local Variables: ***
49			CEH3 ;;; mode:fortran ***
50			CEH3 ;;; End: ***