/[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.10 by edhill, Fri Sep 10 12:19:30 2004 UTC revision 1.14 by jmc, Tue May 12 19:56:36 2009 UTC
# Line 20  C     information including locations, s Line 20  C     information including locations, s
20    
21  C     !USES:  C     !USES:
22        implicit none        implicit none
23    #include "BUILD_INFO.h"
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "EESUPPORT.h"  #include "EESUPPORT.h"
# Line 27  C     !USES: Line 28  C     !USES:
28  #include "MNC_PARAMS.h"  #include "MNC_PARAMS.h"
29  #include "GRID.h"  #include "GRID.h"
30  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
31    #include "W2_EXCH2_SIZE.h"
32  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
 #include "W2_EXCH2_PARAMS.h"  
33  #endif  #endif
34  C     Functions  C     Functions
35        integer ILNBLNK        integer ILNBLNK
# Line 76  C     Global attributes Line 77  C     Global attributes
77        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
78       &     MNC_TAG_ID, myThid )       &     MNC_TAG_ID, myThid )
79        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
80       &     1, 0.2D0, myThid )       &     1, 0.9D0, myThid )
81    
82  C     Grid info included as attributes  C     Grid info included as attributes
83        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
# Line 96  C     W2/exch2 information Line 97  C     W2/exch2 information
97       &     'exch2_neighbourId', exch2_nNeighbours(tnum),       &     'exch2_neighbourId', exch2_nNeighbours(tnum),
98       &     exch2_neighbourId(1,tnum), myThid)       &     exch2_neighbourId(1,tnum), myThid)
99    
100        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pi',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pij',
101       &     2*exch2_nNeighbours(tnum), exch2_pi(1,1,tnum), myThid)       &     4*exch2_nNeighbours(tnum), exch2_pij(1,1,tnum), myThid)
       CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pj',  
      &     2*exch2_nNeighbours(tnum), exch2_pj(1,1,tnum), myThid)  
102        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
103       &     exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)       &     exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)
104        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
105       &     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)  
106    
107        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
108       &     'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)       &     'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)
# Line 121  C     W2/exch2 information Line 116  C     W2/exch2 information
116        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
117       &     'exch2_myFace', 1, exch2_myFace(tnum), myThid)       &     'exch2_myFace', 1, exch2_myFace(tnum), myThid)
118        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
119       &     'exch2_txglobalo', 1, exch2_txglobalo(tnum), myThid)       &     'exch2_txGlobalo', 1, exch2_txGlobalo(tnum), myThid)
120        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
121       &     'exch2_tyglobalo', 1, exch2_tyglobalo(tnum), myThid)       &     'exch2_tyGlobalo', 1, exch2_tyGlobalo(tnum), myThid)
122        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
123       &     'exch2_tbasex', 1, exch2_tbasex(tnum), myThid)       &     'exch2_tBasex', 1, exch2_tBasex(tnum), myThid)
124        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
125       &     'exch2_tbasey', 1, exch2_tbasey(tnum), myThid)       &     'exch2_tBasey', 1, exch2_tBasey(tnum), myThid)
126  #endif  #endif
127                
128  C     Model parameters (SIZE.h) included as attributes  C     Model parameters (SIZE.h) included as attributes
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22