/[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.12 by edhill, Fri Mar 3 18:36:53 2006 UTC revision 1.16 by jmc, Mon May 23 01:08:22 2011 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3          
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5          
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP 0  CBOP 0
8  C     !ROUTINE: MNC_CW_SET_GATTR  C     !ROUTINE: MNC_CW_SET_GATTR
9          
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MNC_CW_SET_GATTR(        SUBROUTINE MNC_CW_SET_GATTR(
12       I     fname,       I     fname,
13       I     bi, bj, tnum,       I     bi, bj, tnum,
14       I     myThid )       I     myThid )
15    
16  C     !DESCRIPTION:  C     !DESCRIPTION:
17  C     This subroutine uses the MNC convenience wrapper layer to write  C     This subroutine uses the MNC convenience wrapper layer to write
# Line 23  C     !USES: Line 23  C     !USES:
23  #include "BUILD_INFO.h"  #include "BUILD_INFO.h"
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "EESUPPORT.h"  
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "MNC_PARAMS.h"  #include "MNC_PARAMS.h"
 #include "GRID.h"  
28  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
29    #include "W2_EXCH2_SIZE.h"
30  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
 #include "W2_EXCH2_PARAMS.h"  
31  #endif  #endif
32  C     Functions  C     Functions
33        integer ILNBLNK        integer ILNBLNK
# Line 74  C     Global attributes Line 72  C     Global attributes
72    
73        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL',        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL',
74       &     'http://mitgcm.org', myThid )       &     'http://mitgcm.org', myThid )
75        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
76       &     MNC_TAG_ID, myThid )       &     MNC_TAG_ID, myThid )
77        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
78       &     1, 0.9D0, myThid )       &     1, 0.9D0, myThid )
79    
80  C     Grid info included as attributes  C     Grid info included as attributes
81        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
82        CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid)
83        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
84        CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)  C jmc: xC0 & yC0 are not initialised + their type does not match (RS type, not DBL)
85        CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
86  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
87    c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
88  c    &     1, gravitySign, myThid )  c    &     1, gravitySign, myThid )
89  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)
90    
91  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
92  C     W2/exch2 information  C     W2/exch2 information
93        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
94       &     'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid)       &     'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid)
95        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
96       &     'exch2_neighbourId', exch2_nNeighbours(tnum),       &     'exch2_neighbourId', exch2_nNeighbours(tnum),
97       &     exch2_neighbourId(1,tnum), myThid)       &     exch2_neighbourId(1,tnum), myThid)
98    
99        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pi',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pij',
100       &     2*exch2_nNeighbours(tnum), exch2_pi(1,1,tnum), myThid)       &     4*exch2_nNeighbours(tnum), exch2_pij(1,1,tnum), myThid)
101        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pj',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
      &     2*exch2_nNeighbours(tnum), exch2_pj(1,1,tnum), myThid)  
       CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',  
102       &     exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)       &     exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)
103        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
104       &     exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)       &     exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)
       CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi_f',  
      &     exch2_nNeighbours(tnum), exch2_oi_f(1,tnum), myThid)  
       CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj_f',  
      &     exch2_nNeighbours(tnum), exch2_oj_f(1,tnum), myThid)  
105    
106        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
107       &     'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)       &     'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)
108        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
109       &     'exch2_isSedge', 1, exch2_isSedge(tnum), myThid)       &     'exch2_isSedge', 1, exch2_isSedge(tnum), myThid)
110        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
111       &     'exch2_isEedge', 1, exch2_isEedge(tnum), myThid)       &     'exch2_isEedge', 1, exch2_isEedge(tnum), myThid)
112        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
113       &     'exch2_isWedge', 1, exch2_isWedge(tnum), myThid)       &     'exch2_isWedge', 1, exch2_isWedge(tnum), myThid)
114    
115        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
116       &     'exch2_myFace', 1, exch2_myFace(tnum), myThid)       &     'exch2_myFace', 1, exch2_myFace(tnum), myThid)
117        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
118       &     'exch2_txglobalo', 1, exch2_txglobalo(tnum), myThid)       &     'exch2_txGlobalo', 1, exch2_txGlobalo(tnum), myThid)
119        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
120       &     'exch2_tyglobalo', 1, exch2_tyglobalo(tnum), myThid)       &     'exch2_tyGlobalo', 1, exch2_tyGlobalo(tnum), myThid)
121        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
122       &     'exch2_tbasex', 1, exch2_tbasex(tnum), myThid)       &     'exch2_tBasex', 1, exch2_tBasex(tnum), myThid)
123        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
124       &     'exch2_tbasey', 1, exch2_tbasey(tnum), myThid)       &     'exch2_tBasey', 1, exch2_tBasey(tnum), myThid)
125  #endif  #endif
126          
127  C     Model parameters (SIZE.h) included as attributes  C     Model parameters (SIZE.h) included as attributes
128        CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid)
129        CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid)
# Line 143  C     Model parameters (SIZE.h) included Line 136  C     Model parameters (SIZE.h) included
136        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid)
137        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid)
138        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid)
139          
140        RETURN        RETURN
141        END        END
142    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22