/[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.6 by edhill, Mon Mar 29 03:33:51 2004 UTC revision 1.13 by jmc, Tue Jul 29 20:26:42 2008 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  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"
 #include "DYNVARS.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)
# Line 52  C     Grid info included as attributes Line 85  C     Grid info included as attributes
85        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)        CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
86        CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'xC0', 1, xC0, myThid)
87        CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)        CALL MNC_FILE_ADD_ATTR_DBL(fname,'yC0', 1, yC0, myThid)
88        CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'gravitySign',
89       &     1, gravitySign, myThid )  c    &     1, gravitySign, myThid )
90        CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)  c     CALL MNC_FILE_ADD_ATTR_DBL(fname,'rkFac', 1, rkFac, myThid)
91    
92  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
93  C     W2/exch2 information  C     W2/exch2 information
# Line 64  C     W2/exch2 information Line 97  C     W2/exch2 information
97       &     'exch2_neighbourId', exch2_nNeighbours(tnum),       &     'exch2_neighbourId', exch2_nNeighbours(tnum),
98       &     exch2_neighbourId(1,tnum), myThid)       &     exch2_neighbourId(1,tnum), myThid)
99    
100        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pi',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pij',
101       &     2*exch2_nNeighbours(tnum), exch2_pi(1,1,tnum), myThid)       &     4*exch2_nNeighbours(tnum), exch2_pij(1,1,tnum), myThid)
       CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pj',  
      &     2*exch2_nNeighbours(tnum), exch2_pj(1,1,tnum), myThid)  
102        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi',
103       &     exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)       &     exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid)
104        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',        CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj',
105       &     exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)       &     exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid)
       CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi_f',  
      &     exch2_nNeighbours(tnum), exch2_oi_f(1,tnum), myThid)  
       CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj_f',  
      &     exch2_nNeighbours(tnum), exch2_oj_f(1,tnum), myThid)  
106    
107        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
108       &     'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)       &     'exch2_isNedge', 1, exch2_isNedge(tnum), myThid)
# Line 89  C     W2/exch2 information Line 116  C     W2/exch2 information
116        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
117       &     'exch2_myFace', 1, exch2_myFace(tnum), myThid)       &     'exch2_myFace', 1, exch2_myFace(tnum), myThid)
118        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
119       &     'exch2_txglobalo', 1, exch2_txglobalo(tnum), myThid)       &     'exch2_txGlobalo', 1, exch2_txGlobalo(tnum), myThid)
120        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
121       &     'exch2_tyglobalo', 1, exch2_tyglobalo(tnum), myThid)       &     'exch2_tyGlobalo', 1, exch2_tyGlobalo(tnum), myThid)
122        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
123       &     'exch2_tbasex', 1, exch2_tbasex(tnum), myThid)       &     'exch2_tBasex', 1, exch2_tBasex(tnum), myThid)
124        CALL MNC_FILE_ADD_ATTR_INT(fname,        CALL MNC_FILE_ADD_ATTR_INT(fname,
125       &     'exch2_tbasey', 1, exch2_tbasey(tnum), myThid)       &     'exch2_tBasey', 1, exch2_tBasey(tnum), myThid)
126  #endif  #endif
127                
128  C     Model parameters (SIZE.h) included as attributes  C     Model parameters (SIZE.h) included as attributes
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22