/[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.12 - (hide annotations) (download)
Fri Mar 3 18:36:53 2006 UTC (18 years, 2 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint58e_post, checkpoint58u_post, checkpoint58w_post, checkpoint60, checkpoint61, checkpoint58r_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint58q_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint59, checkpoint58f_post, checkpoint58d_post, checkpoint58c_post, checkpoint58i_post, checkpoint58g_post, checkpoint58o_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint61a, checkpoint58b_post, checkpoint58m_post
Changes since 1.11: +2 -1 lines 
remove the BUILD_INFO.h include from CPP_EEOPTIONS.h
1 edhill 1.12 C $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_cw_model_attr.F,v 1.11 2004/10/20 21:26:14 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 edhill 1.7 CBOP 0
8 edhill 1.9 C !ROUTINE: MNC_CW_SET_GATTR
9    
10     C !INTERFACE:
11 edhill 1.1 SUBROUTINE MNC_CW_SET_GATTR(
12     I fname,
13 edhill 1.5 I bi, bj, tnum,
14     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 "EESUPPORT.h"
27     #include "PARAMS.h"
28 edhill 1.10 #include "MNC_PARAMS.h"
29 edhill 1.1 #include "GRID.h"
30 edhill 1.3 #ifdef ALLOW_EXCH2
31     #include "W2_EXCH2_TOPOLOGY.h"
32     #include "W2_EXCH2_PARAMS.h"
33     #endif
34 edhill 1.9 C Functions
35     integer ILNBLNK
36 edhill 1.1
37 edhill 1.9 C !INPUT PARAMETERS:
38 edhill 1.1 integer myThid, bi,bj, tnum
39     character*(*) fname
40 edhill 1.6 CEOP
41 edhill 1.1
42 edhill 1.9 C !LOCAL VARIABLES:
43     integer ilnb
44    
45 edhill 1.5 CALL MNC_FILE_REDEF(fname, myThid)
46 edhill 1.1
47     C Global attributes
48 edhill 1.9 ilnb = ILNBLNK(the_run_name)
49     IF (ilnb .GT. 0) THEN
50     CALL MNC_FILE_ADD_ATTR_STR(fname, 'the_run_name',
51     & the_run_name, myThid )
52     ENDIF
53    
54     #ifdef THISVER
55     CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_version',
56     & THISVER ,
57     & myThid )
58     #endif
59     #ifdef THISUSER
60     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_user',
61     & THISUSER ,
62     & myThid )
63     #endif
64     #ifdef THISHOST
65     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_host',
66     & THISHOST ,
67     & myThid )
68     #endif
69     #ifdef THISDATE
70     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_date',
71     & THISDATE ,
72     & myThid )
73     #endif
74    
75     CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL',
76 edhill 1.5 & 'http://mitgcm.org', myThid )
77 edhill 1.9 CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
78 edhill 1.5 & MNC_TAG_ID, myThid )
79     CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
80 edhill 1.11 & 1, 0.9D0, myThid )
81 edhill 1.1
82     C Grid info included as attributes
83 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
84     CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid)
85     CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
86     CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
87     CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
88 adcroft 1.8 c CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
89     c & 1, gravitySign, myThid )
90     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)
91 edhill 1.2
92     #ifdef ALLOW_EXCH2
93     C W2/exch2 information
94 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname,
95     & 'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid)
96     CALL MNC_FILE_ADD_ATTR_INT(fname,
97 edhill 1.4 & 'exch2_neighbourId', exch2_nNeighbours(tnum),
98 edhill 1.5 & exch2_neighbourId(1,tnum), myThid)
99 edhill 1.4
100 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pi',
101     & 2*exch2_nNeighbours(tnum), exch2_pi(1,1,tnum), myThid)
102     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pj',
103     & 2*exch2_nNeighbours(tnum), exch2_pj(1,1,tnum), myThid)
104     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
105     & exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)
106     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
107     & exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)
108     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi_f',
109     & exch2_nNeighbours(tnum), exch2_oi_f(1,tnum), myThid)
110     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj_f',
111     & exch2_nNeighbours(tnum), exch2_oj_f(1,tnum), myThid)
112    
113     CALL MNC_FILE_ADD_ATTR_INT(fname,
114     & 'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)
115     CALL MNC_FILE_ADD_ATTR_INT(fname,
116     & 'exch2_isSedge', 1, exch2_isSedge(tnum), myThid)
117     CALL MNC_FILE_ADD_ATTR_INT(fname,
118     & 'exch2_isEedge', 1, exch2_isEedge(tnum), myThid)
119     CALL MNC_FILE_ADD_ATTR_INT(fname,
120     & 'exch2_isWedge', 1, exch2_isWedge(tnum), myThid)
121    
122     CALL MNC_FILE_ADD_ATTR_INT(fname,
123     & 'exch2_myFace', 1, exch2_myFace(tnum), myThid)
124     CALL MNC_FILE_ADD_ATTR_INT(fname,
125     & 'exch2_txglobalo', 1, exch2_txglobalo(tnum), myThid)
126     CALL MNC_FILE_ADD_ATTR_INT(fname,
127     & 'exch2_tyglobalo', 1, exch2_tyglobalo(tnum), myThid)
128     CALL MNC_FILE_ADD_ATTR_INT(fname,
129     & 'exch2_tbasex', 1, exch2_tbasex(tnum), myThid)
130     CALL MNC_FILE_ADD_ATTR_INT(fname,
131     & 'exch2_tbasey', 1, exch2_tbasey(tnum), myThid)
132 edhill 1.2 #endif
133 edhill 1.1
134     C Model parameters (SIZE.h) included as attributes
135 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid)
136     CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid)
137     CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid)
138     CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid)
139     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid)
140     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid)
141     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid)
142     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid)
143     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid)
144     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid)
145     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid)
146 edhill 1.1
147     RETURN
148     END
149    
150     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
151    
  ViewVC Help
Powered by ViewVC 1.1.22