/[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.5 by edhill, Fri Mar 19 03:28:36 2004 UTC revision 1.10 by edhill, Fri Sep 10 12:19:30 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP 0
8    C     !ROUTINE: MNC_CW_SET_GATTR
9          
10    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,
14       I     myThid )       I     myThid )
15    
16    C     !DESCRIPTION:
17    C     This subroutine uses the MNC convenience wrapper layer to write
18    C     per-tile grid (grid.xxxxx.nc) files containing all of the grid
19    C     information including locations, spacing, areas, \textit{etc}.
20    
21    C     !USES:
22        implicit none        implicit none
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "EESUPPORT.h"  #include "EESUPPORT.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27    #include "MNC_PARAMS.h"
28  #include "GRID.h"  #include "GRID.h"
 #include "DYNVARS.h"  
29  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
30  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
31  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
32  #endif  #endif
33    C     Functions
34          integer ILNBLNK
35    
36  C     Arguments  C     !INPUT PARAMETERS:
37        integer myThid, bi,bj, tnum        integer myThid, bi,bj, tnum
38        character*(*) fname        character*(*) fname
39    CEOP
40    
41    C     !LOCAL VARIABLES:
42          integer ilnb
43    
44        CALL MNC_FILE_REDEF(fname, myThid)        CALL MNC_FILE_REDEF(fname, myThid)
45    
46  C     Global attributes  C     Global attributes
47        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_ref',        ilnb = ILNBLNK(the_run_name)
48          IF (ilnb .GT. 0) THEN
49            CALL MNC_FILE_ADD_ATTR_STR(fname, 'the_run_name',
50         &       the_run_name, myThid )
51          ENDIF
52    
53    #ifdef THISVER
54          CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_version',
55         &     THISVER ,
56         &     myThid )
57    #endif
58    #ifdef THISUSER
59          CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_user',
60         &     THISUSER ,
61         &     myThid )
62    #endif
63    #ifdef THISHOST
64          CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_host',
65         &     THISHOST ,
66         &     myThid )
67    #endif
68    #ifdef THISDATE
69          CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_date',
70         &     THISDATE ,
71         &     myThid )
72    #endif
73    
74          CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL',
75       &     'http://mitgcm.org', myThid )       &     'http://mitgcm.org', myThid )
76        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_index',        CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id',
77       &     MNC_TAG_ID, myThid )       &     MNC_TAG_ID, myThid )
78        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',        CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver',
79       &     1, 0.1D0, myThid )       &     1, 0.2D0, myThid )
80    
81  C     Grid info included as attributes  C     Grid info included as attributes
82        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid)
# Line 42  C     Grid info included as attributes Line 84  C     Grid info included as attributes
84        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
85        CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
86        CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
87        CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
88       &     1, gravitySign, myThid )  c    &     1, gravitySign, myThid )
89        CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)
90    
91  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
92  C     W2/exch2 information  C     W2/exch2 information
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22