/[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.1 by edhill, Thu Feb 5 00:13:47 2004 UTC revision 1.2 by edhill, Thu Feb 5 05:42:07 2004 UTC
# Line 41  C     Grid info included as attributes Line 41  C     Grid info included as attributes
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)
# Line 55  C     Model parameters (SIZE.h) included Line 69  C     Model parameters (SIZE.h) included
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22