/[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.16 - (hide annotations) (download)
Mon May 23 01:08:22 2011 UTC (13 years ago) by jmc
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, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint65, checkpoint63, 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, checkpoint62z, checkpoint62y, HEAD
Changes since 1.15: +1 -3 lines 
remove unused EESUPPORT.h include.
1 jmc 1.16 C $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_cw_model_attr.F,v 1.15 2009/08/30 22:12:50 jmc Exp $
2 edhill 1.1 C $Name: $
3 jmc 1.15
4 edhill 1.1 #include "MNC_OPTIONS.h"
5 jmc 1.15
6 edhill 1.1 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7 edhill 1.7 CBOP 0
8 edhill 1.9 C !ROUTINE: MNC_CW_SET_GATTR
9 jmc 1.15
10 edhill 1.9 C !INTERFACE:
11 jmc 1.15 SUBROUTINE MNC_CW_SET_GATTR(
12 edhill 1.1 I fname,
13 edhill 1.5 I bi, bj, tnum,
14 jmc 1.15 I myThid )
15 edhill 1.1
16 edhill 1.6 C !DESCRIPTION:
17     C This subroutine uses the MNC convenience wrapper layer to write
18     C per-tile grid (grid.xxxxx.nc) files containing all of the grid
19     C information including locations, spacing, areas, \textit{etc}.
20    
21     C !USES:
22 edhill 1.1 implicit none
23 edhill 1.12 #include "BUILD_INFO.h"
24 edhill 1.1 #include "SIZE.h"
25     #include "EEPARAMS.h"
26     #include "PARAMS.h"
27 edhill 1.10 #include "MNC_PARAMS.h"
28 edhill 1.3 #ifdef ALLOW_EXCH2
29 jmc 1.14 #include "W2_EXCH2_SIZE.h"
30 edhill 1.3 #include "W2_EXCH2_TOPOLOGY.h"
31     #endif
32 edhill 1.9 C Functions
33     integer ILNBLNK
34 edhill 1.1
35 edhill 1.9 C !INPUT PARAMETERS:
36 edhill 1.1 integer myThid, bi,bj, tnum
37     character*(*) fname
38 edhill 1.6 CEOP
39 edhill 1.1
40 edhill 1.9 C !LOCAL VARIABLES:
41     integer ilnb
42    
43 edhill 1.5 CALL MNC_FILE_REDEF(fname, myThid)
44 edhill 1.1
45     C Global attributes
46 edhill 1.9 ilnb = ILNBLNK(the_run_name)
47     IF (ilnb .GT. 0) THEN
48     CALL MNC_FILE_ADD_ATTR_STR(fname, 'the_run_name',
49     & the_run_name, myThid )
50     ENDIF
51    
52     #ifdef THISVER
53     CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_version',
54     & THISVER ,
55     & myThid )
56     #endif
57     #ifdef THISUSER
58     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_user',
59     & THISUSER ,
60     & myThid )
61     #endif
62     #ifdef THISHOST
63     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_host',
64     & THISHOST ,
65     & myThid )
66     #endif
67     #ifdef THISDATE
68     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_date',
69     & THISDATE ,
70     & myThid )
71     #endif
72    
73     CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL',
74 edhill 1.5 & 'http://mitgcm.org', myThid )
75 jmc 1.15 CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
76 edhill 1.5 & MNC_TAG_ID, myThid )
77 jmc 1.15 CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
78 edhill 1.11 & 1, 0.9D0, myThid )
79 edhill 1.1
80     C Grid info included as attributes
81 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
82     CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid)
83     CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
84 jmc 1.15 C jmc: xC0 & yC0 are not initialised + their type does not match (RS type, not DBL)
85     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
86     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
87     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
88 adcroft 1.8 c & 1, gravitySign, myThid )
89     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)
90 edhill 1.2
91     #ifdef ALLOW_EXCH2
92     C W2/exch2 information
93 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
94 edhill 1.5 & 'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid)
95 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
96     & 'exch2_neighbourId', exch2_nNeighbours(tnum),
97 edhill 1.5 & exch2_neighbourId(1,tnum), myThid)
98 edhill 1.4
99 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pij',
100 jmc 1.13 & 4*exch2_nNeighbours(tnum), exch2_pij(1,1,tnum), myThid)
101 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
102 edhill 1.5 & exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)
103 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
104 edhill 1.5 & exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)
105    
106 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
107 edhill 1.5 & 'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)
108 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
109 edhill 1.5 & 'exch2_isSedge', 1, exch2_isSedge(tnum), myThid)
110 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
111 edhill 1.5 & 'exch2_isEedge', 1, exch2_isEedge(tnum), myThid)
112 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
113 edhill 1.5 & 'exch2_isWedge', 1, exch2_isWedge(tnum), myThid)
114    
115 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
116 edhill 1.5 & 'exch2_myFace', 1, exch2_myFace(tnum), myThid)
117 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
118 jmc 1.13 & 'exch2_txGlobalo', 1, exch2_txGlobalo(tnum), myThid)
119 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
120 jmc 1.13 & 'exch2_tyGlobalo', 1, exch2_tyGlobalo(tnum), myThid)
121 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
122 jmc 1.13 & 'exch2_tBasex', 1, exch2_tBasex(tnum), myThid)
123 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
124 jmc 1.13 & 'exch2_tBasey', 1, exch2_tBasey(tnum), myThid)
125 edhill 1.2 #endif
126 jmc 1.15
127 edhill 1.1 C Model parameters (SIZE.h) included as attributes
128 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid)
129     CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid)
130     CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid)
131     CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid)
132     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid)
133     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid)
134     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid)
135     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid)
136     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid)
137     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid)
138     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid)
139 jmc 1.15
140 edhill 1.1 RETURN
141     END
142    
143     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
144    
  ViewVC Help
Powered by ViewVC 1.1.22