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

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

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

Revision 1.8 - (show 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 C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_DIAGS.h,v 1.7 2009/06/24 09:06:11 mlosch Exp $
2 C $Name: $
3
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 _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 COMMON /SEAICE_TAVE_DIAGS/
26 & FUtave, FVtave, EmPmRtave, QNETtave, QSWtave,
27 & UICEtave, VICEtave, HEFFtave, AREAtave
28
29 #endif /* ALLOW_TIMEAVE */
30
31 CEH3 ;;; Local Variables: ***
32 CEH3 ;;; mode:fortran ***
33 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22