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

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

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

Revision 1.2 - (show annotations) (download)
Mon Oct 22 21:14:06 2012 UTC (11 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint65, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, HEAD
Changes since 1.1: +8 -1 lines
File MIME type: text/plain 
Step 1 of merging ice-thickness distribution (ITD) code from
MITgcm_contrib/torge/itd/code/ to main repository
(author: Torge Martin)
1 C $Header: /u/gcmpack/MITgcm_contrib/torge/itd/code/SEAICE_TAVE.h,v 1.3 2012/10/22 19:56:37 heimbach 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 & 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
37 #ifdef SEAICE_ITD
38 COMMON /SEAICE_TAVE_VARS_ITD/
39 & HEFFITDtave, AREAITDtave
40 _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
44 #endif /* ALLOW_TIMEAVE */
45
46 CEH3 ;;; Local Variables: ***
47 CEH3 ;;; mode:fortran ***
48 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22