/[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.11 - (hide annotations) (download)
Wed Oct 20 21:26:14 2004 UTC (19 years, 7 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint57o_post, checkpoint57v_post, checkpoint57m_post, checkpoint57s_post, checkpoint57k_post, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint57e_post, checkpoint57g_pre, checkpoint56c_post, checkpoint57y_pre, checkpoint57f_pre, checkpoint57a_post, checkpoint57r_post, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, eckpoint57e_pre, checkpoint57h_done, checkpoint57x_post, checkpoint57n_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint57f_post, checkpoint58a_post, checkpoint57q_post, checkpoint57z_post, checkpoint57c_post, checkpoint57j_post, checkpoint57h_pre, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post
Changes since 1.10: +2 -2 lines 
 o add a sequence number to the output file names in preparation for
   automatic handling of the 2GB NetCDF file size limitation
1 edhill 1.11 C $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_cw_model_attr.F,v 1.10 2004/09/10 12:19:30 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     #include "SIZE.h"
24     #include "EEPARAMS.h"
25     #include "EESUPPORT.h"
26     #include "PARAMS.h"
27 edhill 1.10 #include "MNC_PARAMS.h"
28 edhill 1.1 #include "GRID.h"
29 edhill 1.3 #ifdef ALLOW_EXCH2
30     #include "W2_EXCH2_TOPOLOGY.h"
31     #include "W2_EXCH2_PARAMS.h"
32     #endif
33 edhill 1.9 C Functions
34     integer ILNBLNK
35 edhill 1.1
36 edhill 1.9 C !INPUT PARAMETERS:
37 edhill 1.1 integer myThid, bi,bj, tnum
38     character*(*) fname
39 edhill 1.6 CEOP
40 edhill 1.1
41 edhill 1.9 C !LOCAL VARIABLES:
42     integer ilnb
43    
44 edhill 1.5 CALL MNC_FILE_REDEF(fname, myThid)
45 edhill 1.1
46     C Global attributes
47 edhill 1.9 ilnb = ILNBLNK(the_run_name)
48     IF (ilnb .GT. 0) THEN
49     CALL MNC_FILE_ADD_ATTR_STR(fname, 'the_run_name',
50     & the_run_name, myThid )
51     ENDIF
52    
53     #ifdef THISVER
54     CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_version',
55     & THISVER ,
56     & myThid )
57     #endif
58     #ifdef THISUSER
59     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_user',
60     & THISUSER ,
61     & myThid )
62     #endif
63     #ifdef THISHOST
64     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_host',
65     & THISHOST ,
66     & myThid )
67     #endif
68     #ifdef THISDATE
69     CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_date',
70     & THISDATE ,
71     & myThid )
72     #endif
73    
74     CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL',
75 edhill 1.5 & 'http://mitgcm.org', myThid )
76 edhill 1.9 CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
77 edhill 1.5 & MNC_TAG_ID, myThid )
78     CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
79 edhill 1.11 & 1, 0.9D0, myThid )
80 edhill 1.1
81     C Grid info included as attributes
82 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
83     CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid)
84     CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
85     CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
86     CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
87 adcroft 1.8 c CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
88     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 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname,
94     & 'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid)
95     CALL MNC_FILE_ADD_ATTR_INT(fname,
96 edhill 1.4 & 'exch2_neighbourId', exch2_nNeighbours(tnum),
97 edhill 1.5 & exch2_neighbourId(1,tnum), myThid)
98 edhill 1.4
99 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pi',
100     & 2*exch2_nNeighbours(tnum), exch2_pi(1,1,tnum), myThid)
101     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pj',
102     & 2*exch2_nNeighbours(tnum), exch2_pj(1,1,tnum), myThid)
103     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
104     & exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)
105     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
106     & exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)
107     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi_f',
108     & exch2_nNeighbours(tnum), exch2_oi_f(1,tnum), myThid)
109     CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj_f',
110     & exch2_nNeighbours(tnum), exch2_oj_f(1,tnum), myThid)
111    
112     CALL MNC_FILE_ADD_ATTR_INT(fname,
113     & 'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)
114     CALL MNC_FILE_ADD_ATTR_INT(fname,
115     & 'exch2_isSedge', 1, exch2_isSedge(tnum), myThid)
116     CALL MNC_FILE_ADD_ATTR_INT(fname,
117     & 'exch2_isEedge', 1, exch2_isEedge(tnum), myThid)
118     CALL MNC_FILE_ADD_ATTR_INT(fname,
119     & 'exch2_isWedge', 1, exch2_isWedge(tnum), myThid)
120    
121     CALL MNC_FILE_ADD_ATTR_INT(fname,
122     & 'exch2_myFace', 1, exch2_myFace(tnum), myThid)
123     CALL MNC_FILE_ADD_ATTR_INT(fname,
124     & 'exch2_txglobalo', 1, exch2_txglobalo(tnum), myThid)
125     CALL MNC_FILE_ADD_ATTR_INT(fname,
126     & 'exch2_tyglobalo', 1, exch2_tyglobalo(tnum), myThid)
127     CALL MNC_FILE_ADD_ATTR_INT(fname,
128     & 'exch2_tbasex', 1, exch2_tbasex(tnum), myThid)
129     CALL MNC_FILE_ADD_ATTR_INT(fname,
130     & 'exch2_tbasey', 1, exch2_tbasey(tnum), myThid)
131 edhill 1.2 #endif
132 edhill 1.1
133     C Model parameters (SIZE.h) included as attributes
134 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid)
135     CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid)
136     CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid)
137     CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid)
138     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid)
139     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid)
140     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid)
141     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid)
142     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid)
143     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid)
144     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid)
145 edhill 1.1
146     RETURN
147     END
148    
149     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
150    
  ViewVC Help
Powered by ViewVC 1.1.22