/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_model_attr.F
ViewVC logotype

Annotation of /MITgcm/pkg/mnc/mnc_cw_model_attr.F

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

Revision 1.2 - (hide annotations) (download)
Thu Feb 5 05:42:07 2004 UTC (20 years, 3 months ago) by edhill
Branch: MAIN
CVS Tags: hrcube4, hrcube_3
Changes since 1.1: +15 -2 lines 
 o fix indexing error in mnc_cw_readwrite.template
 o add function calls to initialise_fixed.F and write_state.F
 o add global attributes for w2/exch2
1 edhill 1.2 C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_cw_model_attr.F,v 1.1 2004/02/05 00:13:47 edhill Exp $
2 edhill 1.1 C $Name: $
3    
4     #include "MNC_OPTIONS.h"
5    
6     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    
8     SUBROUTINE MNC_CW_SET_GATTR(
9     I myThid,
10     I fname,
11     I bi, bj, tnum )
12    
13     implicit none
14     #include "SIZE.h"
15     #include "EEPARAMS.h"
16     #include "EESUPPORT.h"
17     #include "PARAMS.h"
18     #include "GRID.h"
19     #include "DYNVARS.h"
20    
21     C Arguments
22     integer myThid, bi,bj, tnum
23     character*(*) fname
24    
25     CALL MNC_FILE_REDEF(myThid,fname)
26    
27     C Global attributes
28     CALL MNC_FILE_ADD_ATTR_STR(myThid,fname, 'MITgcm_ref',
29     & 'http://mitgcm.org' )
30     CALL MNC_FILE_ADD_ATTR_STR(myThid,fname, 'MITgcm_tag_index',
31     & MNC_TAG_ID )
32     CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'MITgcm_mnc_ver',
33     & 1, 0.1D0 )
34    
35     C Grid info included as attributes
36     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'tile_number', 1, tnum)
37     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'bi', 1, bi)
38     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'bj', 1, bj)
39     CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'xC0', 1, xC0)
40     CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'yC0', 1, yC0)
41     CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'gravitySign',
42     & 1, gravitySign )
43     CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'rkFac', 1, rkFac)
44 edhill 1.2
45     #ifdef ALLOW_EXCH2
46     C W2/exch2 information
47     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
48     & 'exch2_txglobalo', 1, exch2_txglobalo(tnum))
49     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
50     & 'exch2_tyglobalo', 1, exch2_tyglobalo(tnum))
51     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
52     & 'exch2_myFace', 1, exch2_myFace(tnum))
53     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
54     & 'exch2_tbasex', 1, exch2_tbasex(tnum))
55     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
56     & 'exch2_tbasey', 1, exch2_tbasey(tnum))
57     #endif
58 edhill 1.1
59     C Model parameters (SIZE.h) included as attributes
60     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNx', 1, sNx)
61     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNy', 1, sNy)
62     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'OLx', 1, OLx)
63     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'OLy', 1, OLy)
64     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nSx', 1, nSx)
65     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nSy', 1, nSy)
66     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nPx', 1, nPx)
67     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nPy', 1, nPy)
68     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nx', 1, Nx)
69     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Ny', 1, Ny)
70     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nr', 1, Nr)
71    
72     RETURN
73     END
74    
75     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
76    
  ViewVC Help
Powered by ViewVC 1.1.22