41 |
CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'gravitySign', |
CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'gravitySign', |
42 |
& 1, gravitySign ) |
& 1, gravitySign ) |
43 |
CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'rkFac', 1, rkFac) |
CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'rkFac', 1, rkFac) |
44 |
|
|
45 |
|
#ifdef ALLOW_EXCH2 |
46 |
|
C W2/exch2 information |
47 |
|
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, |
48 |
|
& 'exch2_txglobalo', 1, exch2_txglobalo(tnum)) |
49 |
|
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, |
50 |
|
& 'exch2_tyglobalo', 1, exch2_tyglobalo(tnum)) |
51 |
|
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, |
52 |
|
& 'exch2_myFace', 1, exch2_myFace(tnum)) |
53 |
|
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, |
54 |
|
& 'exch2_tbasex', 1, exch2_tbasex(tnum)) |
55 |
|
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, |
56 |
|
& 'exch2_tbasey', 1, exch2_tbasey(tnum)) |
57 |
|
#endif |
58 |
|
|
59 |
C Model parameters (SIZE.h) included as attributes |
C Model parameters (SIZE.h) included as attributes |
60 |
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNx', 1, sNx) |
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNx', 1, sNx) |
69 |
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Ny', 1, Ny) |
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Ny', 1, Ny) |
70 |
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nr', 1, Nr) |
CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nr', 1, Nr) |
71 |
|
|
|
|
|
72 |
RETURN |
RETURN |
73 |
END |
END |
74 |
|
|