-
Notifications
You must be signed in to change notification settings - Fork 237
/
SEAICE_TAVE.h
45 lines (39 loc) · 1.49 KB
/
SEAICE_TAVE.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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: ***