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)) |