/[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.15 - (hide annotations) (download)
Sun Aug 30 22:12:50 2009 UTC (14 years, 9 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62x, checkpoint61v, checkpoint61w, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.14: +29 -28 lines 
comment out the writing of xC0 & yC0 (not initialised + their type does not
  match: RS type, not DBL).
1 jmc 1.15 C $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_cw_model_attr.F,v 1.14 2009/05/12 19:56:36 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 "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 jmc 1.14 #include "W2_EXCH2_SIZE.h"
32 edhill 1.3 #include "W2_EXCH2_TOPOLOGY.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 jmc 1.15 CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
78 edhill 1.5 & MNC_TAG_ID, myThid )
79 jmc 1.15 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 jmc 1.15 C jmc: xC0 & yC0 are not initialised + their type does not match (RS type, not DBL)
87     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
88     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
89     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
90 adcroft 1.8 c & 1, gravitySign, myThid )
91     c CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)
92 edhill 1.2
93     #ifdef ALLOW_EXCH2
94     C W2/exch2 information
95 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
96 edhill 1.5 & 'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid)
97 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
98     & 'exch2_neighbourId', exch2_nNeighbours(tnum),
99 edhill 1.5 & exch2_neighbourId(1,tnum), myThid)
100 edhill 1.4
101 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pij',
102 jmc 1.13 & 4*exch2_nNeighbours(tnum), exch2_pij(1,1,tnum), myThid)
103 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
104 edhill 1.5 & exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)
105 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
106 edhill 1.5 & exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)
107    
108 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
109 edhill 1.5 & 'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)
110 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
111 edhill 1.5 & 'exch2_isSedge', 1, exch2_isSedge(tnum), myThid)
112 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
113 edhill 1.5 & 'exch2_isEedge', 1, exch2_isEedge(tnum), myThid)
114 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
115 edhill 1.5 & 'exch2_isWedge', 1, exch2_isWedge(tnum), myThid)
116    
117 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
118 edhill 1.5 & 'exch2_myFace', 1, exch2_myFace(tnum), myThid)
119 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
120 jmc 1.13 & 'exch2_txGlobalo', 1, exch2_txGlobalo(tnum), myThid)
121 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
122 jmc 1.13 & 'exch2_tyGlobalo', 1, exch2_tyGlobalo(tnum), myThid)
123 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
124 jmc 1.13 & 'exch2_tBasex', 1, exch2_tBasex(tnum), myThid)
125 jmc 1.15 CALL MNC_FILE_ADD_ATTR_INT(fname,
126 jmc 1.13 & 'exch2_tBasey', 1, exch2_tBasey(tnum), myThid)
127 edhill 1.2 #endif
128 jmc 1.15
129 edhill 1.1 C Model parameters (SIZE.h) included as attributes
130 edhill 1.5 CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid)
131     CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid)
132     CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid)
133     CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid)
134     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid)
135     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid)
136     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid)
137     CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid)
138     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid)
139     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid)
140     CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid)
141 jmc 1.15
142 edhill 1.1 RETURN
143     END
144    
145     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
146    
  ViewVC Help
Powered by ViewVC 1.1.22