/[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.13 by jmc, Tue Jul 29 20:26:42 2008 UTC
# Line 97  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 122  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.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22