/[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.3 by edhill, Mon Feb 16 22:21:43 2004 UTC revision 1.4 by edhill, Mon Feb 23 19:28:29 2004 UTC
# Line 49  C     Grid info included as attributes Line 49  C     Grid info included as attributes
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(myThid,fname,
52       &     'exch2_txglobalo', 1, exch2_txglobalo(tnum))       &     'exch2_nNeighbours', 1, exch2_nNeighbours(tnum))
53        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
54       &     'exch2_tyglobalo', 1, exch2_tyglobalo(tnum))       &     'exch2_neighbourId', exch2_nNeighbours(tnum),
55         &     exch2_neighbourId(1,tnum))
56    
57          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
58         &     'exch2_pi', 2*exch2_nNeighbours(tnum), exch2_pi(1,1,tnum))
59          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
60         &     'exch2_pj', 2*exch2_nNeighbours(tnum), exch2_pj(1,1,tnum))
61          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
62         &     'exch2_oi', exch2_nNeighbours(tnum), exch2_oi(1,tnum))
63          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
64         &     'exch2_oj', exch2_nNeighbours(tnum), exch2_oj(1,tnum))
65          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
66         &     'exch2_oi_f', exch2_nNeighbours(tnum), exch2_oi_f(1,tnum))
67          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
68         &     'exch2_oj_f', exch2_nNeighbours(tnum), exch2_oj_f(1,tnum))
69    
70          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
71         &     'exch2_isNedge', 1, exch2_isNedge(tnum))
72          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
73         &     'exch2_isSedge', 1, exch2_isSedge(tnum))
74          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
75         &     'exch2_isEedge', 1, exch2_isEedge(tnum))
76          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
77         &     'exch2_isWedge', 1, exch2_isWedge(tnum))
78    
79        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
80       &     'exch2_myFace', 1, exch2_myFace(tnum))       &     'exch2_myFace', 1, exch2_myFace(tnum))
81        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
82         &     'exch2_txglobalo', 1, exch2_txglobalo(tnum))
83          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
84         &     'exch2_tyglobalo', 1, exch2_tyglobalo(tnum))
85          CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
86       &     'exch2_tbasex', 1, exch2_tbasex(tnum))       &     'exch2_tbasex', 1, exch2_tbasex(tnum))
87        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,        CALL MNC_FILE_ADD_ATTR_INT(myThid,fname,
88       &     'exch2_tbasey', 1, exch2_tbasey(tnum))       &     'exch2_tbasey', 1, exch2_tbasey(tnum))
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22