/[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.1 - (hide annotations) (download)
Thu Feb 5 00:13:47 2004 UTC (20 years, 3 months ago) by edhill
Branch: MAIN 
 o getting closer to a usable MNC package through the "cw" layer:
   - numerous bug fixes
   - global attributes added
   - improved handling of the unlimited dimension
   - "cw" can handle variables with up to 7 dimensions
   - added list of pre-defined grid types
1 edhill 1.1 C $Header: $
2     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    
45     C Model parameters (SIZE.h) included as attributes
46     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNx', 1, sNx)
47     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNy', 1, sNy)
48     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'OLx', 1, OLx)
49     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'OLy', 1, OLy)
50     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nSx', 1, nSx)
51     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nSy', 1, nSy)
52     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nPx', 1, nPx)
53     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nPy', 1, nPy)
54     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nx', 1, Nx)
55     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Ny', 1, Ny)
56     CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nr', 1, Nr)
57    
58    
59     RETURN
60     END
61    
62     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
63    
  ViewVC Help
Powered by ViewVC 1.1.22