/[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.7 by edhill, Fri Apr 2 16:12:47 2004 UTC revision 1.8 by adcroft, Fri May 14 17:41:09 2004 UTC
# Line 25  C     !USES: Line 25  C     !USES:
25  #include "EESUPPORT.h"  #include "EESUPPORT.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "GRID.h"  #include "GRID.h"
 #include "DYNVARS.h"  
28  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
29  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
30  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
# Line 52  C     Grid info included as attributes Line 51  C     Grid info included as attributes
51        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
52        CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
53        CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
54        CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
55       &     1, gravitySign, myThid )  c    &     1, gravitySign, myThid )
56        CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)
57    
58  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
59  C     W2/exch2 information  C     W2/exch2 information
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22