/[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.2 - (show annotations) (download)
Thu Feb 5 05:42:07 2004 UTC (20 years, 3 months ago) by edhill
Branch: MAIN
CVS Tags: hrcube4, hrcube_3
Changes since 1.1: +15 -2 lines 
 o fix indexing error in mnc_cw_readwrite.template
 o add function calls to initialise_fixed.F and write_state.F
 o add global attributes for w2/exch2
1 C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_cw_model_attr.F,v 1.1 2004/02/05 00:13:47 edhill Exp $
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 #ifdef ALLOW_EXCH2
46 C W2/exch2 information
47 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
48 & 'exch2_txglobalo', 1, exch2_txglobalo(tnum))
49 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
50 & 'exch2_tyglobalo', 1, exch2_tyglobalo(tnum))
51 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
52 & 'exch2_myFace', 1, exch2_myFace(tnum))
53 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
54 & 'exch2_tbasex', 1, exch2_tbasex(tnum))
55 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
56 & 'exch2_tbasey', 1, exch2_tbasey(tnum))
57 #endif
58
59 C Model parameters (SIZE.h) included as attributes
60 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNx', 1, sNx)
61 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNy', 1, sNy)
62 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'OLx', 1, OLx)
63 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'OLy', 1, OLy)
64 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nSx', 1, nSx)
65 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nSy', 1, nSy)
66 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nPx', 1, nPx)
67 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nPy', 1, nPy)
68 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nx', 1, Nx)
69 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Ny', 1, Ny)
70 CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nr', 1, Nr)
71
72 RETURN
73 END
74
75 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
76
  ViewVC Help
Powered by ViewVC 1.1.22