/[MITgcm]/MITgcm/pkg/ggl90/GGL90_TAVE.h
ViewVC logotype

Contents of /MITgcm/pkg/ggl90/GGL90_TAVE.h

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

Revision 1.1 - (show annotations) (download)
Wed Jun 17 14:15:34 2009 UTC (15 years ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
File MIME type: text/plain 
rename ggl90_do_diags.F --> ggl90_output.F & GGL90_DIAGS.h --> GGL90_TAVE.h
add a STOP if MULTIPLE_RECORD_GGL90_STATE_FILES is defined
(until it get fixed) ; remove PLOT_FIELD_XYZ calls.
1 C $Header: /u/gcmpack/MITgcm/pkg/ggl90/GGL90_DIAGS.h,v 1.2 2006/06/08 00:12:05 mlosch Exp $
2 C $Name: $
3
4 #ifdef ALLOW_GGL90
5
6 C *==========================================================*
7 C | GGL90_TAVE.h
8 C | o Header for GGL90 time-average output
9 C *==========================================================*
10
11 C----------------------------------------------------------------
12 C my_drctrec - next record to dump for GGL90 files
13 C----------------------------------------------------------------
14 INTEGER ggl90_drctrec
15 COMMON /GGL90_RECORDNUM1/ ggl90_drctrec
16
17 #ifdef ALLOW_TIMEAVE
18 C----------------------------------------------------------------
19 C ggl90_drctrecTave - next record to dump for GGL90 averaging files
20 C----------------------------------------------------------------
21
22 INTEGER ggl90_drctrecTave
23 COMMON /GGL90_RECORDNUM2/ ggl90_drctrecTave
24
25 C----------------------------------------------------------------
26 C ggl90_TimeAve - time of temporal integration (s) for each thread
27 C----------------------------------------------------------------
28
29 _RL ggl90_TimeAve(Nr,nSx,nSy)
30 COMMON /GGL90_TAVE/ ggl90_TimeAve
31
32 C----------------------------------------------------------------
33 C GGL90*tave - Time-averaging GGL90 variables
34 C----------------------------------------------------------------
35
36 _RL GGL90TKEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
37 _RL GGL90viscArtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
38 _RL GGL90diffKrtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
39 COMMON /GGL90_TAVE_DIAGS/
40 & GGL90TKEtave, GGL90viscArtave, GGL90diffKrtave
41
42 #endif /* ALLOW_TIMEAVE */
43
44 #endif /* ALLOW_GGL90 */
  ViewVC Help
Powered by ViewVC 1.1.22