/[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.8 by adcroft, Fri May 14 17:41:09 2004 UTC revision 1.12 by edhill, Fri Mar 3 18:36:53 2006 UTC
# Line 5  C $Name$ Line 5  C $Name$
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP 0  CBOP 0
8  C !ROUTINE: MNC_CW_SET_GATTR  C     !ROUTINE: MNC_CW_SET_GATTR
9          
10  C !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MNC_CW_SET_GATTR(        SUBROUTINE MNC_CW_SET_GATTR(
12       I     fname,       I     fname,
13       I     bi, bj, tnum,       I     bi, bj, tnum,
# Line 20  C     information including locations, s Line 20  C     information including locations, s
20    
21  C     !USES:  C     !USES:
22        implicit none        implicit none
23    #include "BUILD_INFO.h"
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "EESUPPORT.h"  #include "EESUPPORT.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28    #include "MNC_PARAMS.h"
29  #include "GRID.h"  #include "GRID.h"
30  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
31  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
32  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
33  #endif  #endif
34    C     Functions
35          integer ILNBLNK
36    
37  C !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
38        integer myThid, bi,bj, tnum        integer myThid, bi,bj, tnum
39        character*(*) fname        character*(*) fname
40  CEOP  CEOP
41    
42    C     !LOCAL VARIABLES:
43          integer ilnb
44    
45        CALL MNC_FILE_REDEF(fname, myThid)        CALL MNC_FILE_REDEF(fname, myThid)
46    
47  C     Global attributes  C     Global attributes
48        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_ref',        ilnb = ILNBLNK(the_run_name)
49          IF (ilnb .GT. 0) THEN
50            CALL MNC_FILE_ADD_ATTR_STR(fname, 'the_run_name',
51         &       the_run_name, myThid )
52          ENDIF
53    
54    #ifdef THISVER
55          CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_version',
56         &     THISVER ,
57         &     myThid )
58    #endif
59    #ifdef THISUSER
60          CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_user',
61         &     THISUSER ,
62         &     myThid )
63    #endif
64    #ifdef THISHOST
65          CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_host',
66         &     THISHOST ,
67         &     myThid )
68    #endif
69    #ifdef THISDATE
70          CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_date',
71         &     THISDATE ,
72         &     myThid )
73    #endif
74    
75          CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL',
76       &     'http://mitgcm.org', myThid )       &     'http://mitgcm.org', myThid )
77        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_index',        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
78       &     MNC_TAG_ID, myThid )       &     MNC_TAG_ID, myThid )
79        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
80       &     1, 0.1D0, myThid )       &     1, 0.9D0, myThid )
81    
82  C     Grid info included as attributes  C     Grid info included as attributes
83        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22