/[MITgcm]/MITgcm/pkg/seaice/SEAICE_DIAGS.h
ViewVC logotype

Annotation of /MITgcm/pkg/seaice/SEAICE_DIAGS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.8 - (hide annotations) (download)
Sun Jan 3 00:27:36 2010 UTC (14 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
Changes since 1.7: +1 -1 lines
File MIME type: text/plain
FILE REMOVED 
- rename: SEAICE_DIAGS.h --> SEAICE_TAVE.h
- use simpler (no level index) cumulative-time counter: SEAICE_timeAve(bi,bj)
- cumulate fields only if doing time-ave output (SEAICE_taveFreq > 0)
1 jmc 1.8 C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_DIAGS.h,v 1.7 2009/06/24 09:06:11 mlosch Exp $
2 edhill 1.4 C $Name: $
3 heimbach 1.2
4     C /==========================================================\
5     C | SEAICE_DIAGS.h |
6     C | o Header for SEAICE diagnostic output |
7     C \==========================================================/
8    
9     #ifdef ALLOW_TIMEAVE
10    
11     C Keep track of time
12     _RL SEAICE_TimeAve(Nr,nSx,nSy)
13     COMMON /SEAICE_TAVE/ SEAICE_TimeAve
14    
15     C Storage arrays for time-averages
16 mlosch 1.7 _RL FUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
17     _RL FVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
18     _RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
19     _RL QNETtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
20     _RL QSWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
21     _RL UICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
22     _RL VICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23     _RL HEFFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
24     _RL AREAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
25 heimbach 1.2 COMMON /SEAICE_TAVE_DIAGS/
26     & FUtave, FVtave, EmPmRtave, QNETtave, QSWtave,
27     & UICEtave, VICEtave, HEFFtave, AREAtave
28    
29     #endif /* ALLOW_TIMEAVE */
30 edhill 1.6
31     CEH3 ;;; Local Variables: ***
32     CEH3 ;;; mode:fortran ***
33     CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22