/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_model_attr.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_model_attr.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by edhill, Mon Feb 23 19:28:29 2004 UTC revision 1.5 by edhill, Fri Mar 19 03:28:36 2004 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    
8        SUBROUTINE MNC_CW_SET_GATTR(        SUBROUTINE MNC_CW_SET_GATTR(
      I     myThid,  
9       I     fname,       I     fname,
10       I     bi, bj, tnum )       I     bi, bj, tnum,
11         I     myThid )
12    
13        implicit none        implicit none
14  #include "SIZE.h"  #include "SIZE.h"
# Line 26  C     Arguments Line 26  C     Arguments
26        integer myThid, bi,bj, tnum        integer myThid, bi,bj, tnum
27        character*(*) fname        character*(*) fname
28    
29        CALL MNC_FILE_REDEF(myThid,fname)        CALL MNC_FILE_REDEF(fname, myThid)
30    
31  C     Global attributes  C     Global attributes
32        CALL MNC_FILE_ADD_ATTR_STR(myThid,fname, 'MITgcm_ref',        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_ref',
33       &     'http://mitgcm.org' )       &     'http://mitgcm.org', myThid )
34        CALL MNC_FILE_ADD_ATTR_STR(myThid,fname, 'MITgcm_tag_index',        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_index',
35       &     MNC_TAG_ID )       &     MNC_TAG_ID, myThid )
36        CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'MITgcm_mnc_ver',        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
37       &     1, 0.1D0 )       &     1, 0.1D0, myThid )
38    
39  C     Grid info included as attributes  C     Grid info included as attributes
40        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'tile_number', 1, tnum)        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
41        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'bi', 1, bi)        CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid)
42        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'bj', 1, bj)        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
43        CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'xC0', 1, xC0)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
44        CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'yC0', 1, yC0)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
45        CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'gravitySign',        CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
46       &     1, gravitySign )       &     1, gravitySign, myThid )
47        CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'rkFac', 1, rkFac)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)
48    
49  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
50  C     W2/exch2 information  C     W2/exch2 information
51        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
52       &     'exch2_nNeighbours', 1, exch2_nNeighbours(tnum))       &     'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid)
53        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
54       &     'exch2_neighbourId', exch2_nNeighbours(tnum),       &     'exch2_neighbourId', exch2_nNeighbours(tnum),
55       &     exch2_neighbourId(1,tnum))       &     exch2_neighbourId(1,tnum), myThid)
56    
57        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pi',
58       &     'exch2_pi', 2*exch2_nNeighbours(tnum), exch2_pi(1,1,tnum))       &     2*exch2_nNeighbours(tnum), exch2_pi(1,1,tnum), myThid)
59        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pj',
60       &     'exch2_pj', 2*exch2_nNeighbours(tnum), exch2_pj(1,1,tnum))       &     2*exch2_nNeighbours(tnum), exch2_pj(1,1,tnum), myThid)
61        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
62       &     'exch2_oi', exch2_nNeighbours(tnum), exch2_oi(1,tnum))       &     exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)
63        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
64       &     'exch2_oj', exch2_nNeighbours(tnum), exch2_oj(1,tnum))       &     exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)
65        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi_f',
66       &     'exch2_oi_f', exch2_nNeighbours(tnum), exch2_oi_f(1,tnum))       &     exch2_nNeighbours(tnum), exch2_oi_f(1,tnum), myThid)
67        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj_f',
68       &     'exch2_oj_f', exch2_nNeighbours(tnum), exch2_oj_f(1,tnum))       &     exch2_nNeighbours(tnum), exch2_oj_f(1,tnum), myThid)
69    
70        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
71       &     'exch2_isNedge', 1, exch2_isNedge(tnum))       &     'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)
72        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
73       &     'exch2_isSedge', 1, exch2_isSedge(tnum))       &     'exch2_isSedge', 1, exch2_isSedge(tnum), myThid)
74        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
75       &     'exch2_isEedge', 1, exch2_isEedge(tnum))       &     'exch2_isEedge', 1, exch2_isEedge(tnum), myThid)
76        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
77       &     'exch2_isWedge', 1, exch2_isWedge(tnum))       &     'exch2_isWedge', 1, exch2_isWedge(tnum), myThid)
78    
79        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
80       &     'exch2_myFace', 1, exch2_myFace(tnum))       &     'exch2_myFace', 1, exch2_myFace(tnum), myThid)
81        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
82       &     'exch2_txglobalo', 1, exch2_txglobalo(tnum))       &     'exch2_txglobalo', 1, exch2_txglobalo(tnum), myThid)
83        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
84       &     'exch2_tyglobalo', 1, exch2_tyglobalo(tnum))       &     'exch2_tyglobalo', 1, exch2_tyglobalo(tnum), myThid)
85        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
86       &     'exch2_tbasex', 1, exch2_tbasex(tnum))       &     'exch2_tbasex', 1, exch2_tbasex(tnum), myThid)
87        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
88       &     'exch2_tbasey', 1, exch2_tbasey(tnum))       &     'exch2_tbasey', 1, exch2_tbasey(tnum), myThid)
89  #endif  #endif
90                
91  C     Model parameters (SIZE.h) included as attributes  C     Model parameters (SIZE.h) included as attributes
92        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNx', 1, sNx)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid)
93        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNy', 1, sNy)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid)
94        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'OLx', 1, OLx)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid)
95        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'OLy', 1, OLy)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid)
96        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nSx', 1, nSx)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid)
97        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nSy', 1, nSy)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid)
98        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nPx', 1, nPx)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid)
99        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'nPy', 1, nPy)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid)
100        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nx', 1, Nx)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid)
101        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Ny', 1, Ny)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid)
102        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nr', 1, Nr)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid)
103                
104        RETURN        RETURN
105        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22