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

Contents 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 - (show 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 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