--- MITgcm/pkg/mnc/mnc_cw_model_attr.F 2004/02/05 00:13:47 1.1 +++ MITgcm/pkg/mnc/mnc_cw_model_attr.F 2004/02/05 05:42:07 1.2 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mnc/mnc_cw_model_attr.F,v 1.1 2004/02/05 00:13:47 edhill Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mnc/mnc_cw_model_attr.F,v 1.2 2004/02/05 05:42:07 edhill Exp $ C $Name: $ #include "MNC_OPTIONS.h" @@ -41,6 +41,20 @@ CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'gravitySign', & 1, gravitySign ) CALL MNC_FILE_ADD_ATTR_DBL(myThid,fname, 'rkFac', 1, rkFac) + +#ifdef ALLOW_EXCH2 +C W2/exch2 information + CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, + & 'exch2_txglobalo', 1, exch2_txglobalo(tnum)) + CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, + & 'exch2_tyglobalo', 1, exch2_tyglobalo(tnum)) + CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, + & 'exch2_myFace', 1, exch2_myFace(tnum)) + CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, + & 'exch2_tbasex', 1, exch2_tbasex(tnum)) + CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, + & 'exch2_tbasey', 1, exch2_tbasey(tnum)) +#endif C Model parameters (SIZE.h) included as attributes CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'sNx', 1, sNx) @@ -55,7 +69,6 @@ CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Ny', 1, Ny) CALL MNC_FILE_ADD_ATTR_INT(myThid,fname, 'Nr', 1, Nr) - RETURN END