/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_write_grid_info.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_write_grid_info.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by edhill, Mon Feb 23 19:28:29 2004 UTC revision 1.3 by edhill, Fri Mar 19 03:28:36 2004 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    
8        SUBROUTINE MNC_CW_WRITE_GRID_INFO(        SUBROUTINE MNC_CW_WRITE_GRID_INFO(
9       I     myThid,       I     bfname,  
10       I     bfname )       I     myThid )
11    
12        implicit none        implicit none
13  #include "mnc_common.h"  #include "mnc_common.h"
# Line 32  C     Local Variables Line 32  C     Local Variables
32        nl = ILNBLNK(bfname)        nl = ILNBLNK(bfname)
33    
34  C     Create MNC definitions for GRID.h variables  C     Create MNC definitions for GRID.h variables
35        CALL MNC_CW_ADD_VNAME(myThid, 'rC', '-_-_--__C__-', 0,0)        CALL MNC_CW_ADD_VNAME('rC', '-_-_--__C__-', 0,0, myThid)
36        CALL MNC_CW_ADD_VNAME(myThid, 'rF', '-_-_--__I__-', 0,0)        CALL MNC_CW_ADD_VNAME('rF', '-_-_--__I__-', 0,0, myThid)
37        CALL MNC_CW_ADD_VNAME(myThid, 'drC', '-_-_--__C__-', 0,0)        CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid)
38        CALL MNC_CW_ADD_VNAME(myThid, 'drF', '-_-_--__C__-', 0,0)        CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid)
39        CALL MNC_CW_ADD_VNAME(myThid, 'saFac', '-_-_--__C__-', 0,0)        CALL MNC_CW_ADD_VNAME('saFac', '-_-_--__C__-', 0,0, myThid)
40    
41        CALL MNC_CW_ADD_VNAME(myThid, 'xC', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('xC', 'Cen_xy_Hy__-__-', 3,4, myThid)
42        CALL MNC_CW_ADD_VNAME(myThid, 'yC', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('yC', 'Cen_xy_Hy__-__-', 3,4, myThid)
43        CALL MNC_CW_ADD_VNAME(myThid, 'xG', 'Cor_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('xG', 'Cor_xy_Hy__-__-', 3,4, myThid)
44        CALL MNC_CW_ADD_VNAME(myThid, 'yG', 'Cor_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('yG', 'Cor_xy_Hy__-__-', 3,4, myThid)
45        CALL MNC_CW_ADD_VNAME(myThid, 'dxC', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('dxC', 'Cen_xy_Hy__-__-', 3,4, myThid)
46        CALL MNC_CW_ADD_VNAME(myThid, 'dyC', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('dyC', 'Cen_xy_Hy__-__-', 3,4, myThid)
47        CALL MNC_CW_ADD_VNAME(myThid, 'dxF', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('dxF', 'Cen_xy_Hy__-__-', 3,4, myThid)
48        CALL MNC_CW_ADD_VNAME(myThid, 'dyF', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('dyF', 'Cen_xy_Hy__-__-', 3,4, myThid)
49        CALL MNC_CW_ADD_VNAME(myThid, 'dxG', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('dxG', 'Cen_xy_Hy__-__-', 3,4, myThid)
50        CALL MNC_CW_ADD_VNAME(myThid, 'dyG', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('dyG', 'Cen_xy_Hy__-__-', 3,4, myThid)
51        CALL MNC_CW_ADD_VNAME(myThid, 'dxV', 'U_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('dxV', 'U_xy_Hy__-__-', 3,4, myThid)
52        CALL MNC_CW_ADD_VNAME(myThid, 'dyU', 'V_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('dyU', 'V_xy_Hy__-__-', 3,4, myThid)
53        CALL MNC_CW_ADD_VNAME(myThid, 'rA', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('rA', 'Cen_xy_Hy__-__-', 3,4, myThid)
54        CALL MNC_CW_ADD_VNAME(myThid, 'rAw', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('rAw', 'Cen_xy_Hy__-__-', 3,4, myThid)
55        CALL MNC_CW_ADD_VNAME(myThid, 'rAs', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('rAs', 'Cen_xy_Hy__-__-', 3,4, myThid)
56        CALL MNC_CW_ADD_VNAME(myThid, 'rAz', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('rAz', 'Cen_xy_Hy__-__-', 3,4, myThid)
57        CALL MNC_CW_ADD_VNAME(myThid, 'fCori', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('fCori', 'Cen_xy_Hy__-__-', 3,4, myThid)
58        CALL MNC_CW_ADD_VNAME(myThid, 'fCoriG', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('fCoriG', 'Cen_xy_Hy__-__-', 3,4, myThid)
59        CALL MNC_CW_ADD_VNAME(myThid, 'R_low', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('R_low', 'Cen_xy_Hy__-__-', 3,4, myThid)
60        CALL MNC_CW_ADD_VNAME(myThid, 'Ro_surf', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME('Ro_surf', 'Cen_xy_Hy__-__-', 3,4, myThid)
61        CALL MNC_CW_ADD_VNAME(myThid, 'HFacC', 'Cen_xy_Hy__C__-', 4,5)        CALL MNC_CW_ADD_VNAME('HFacC', 'Cen_xy_Hy__C__-', 4,5, myThid)
62        CALL MNC_CW_ADD_VNAME(myThid, 'HFacW', 'Cen_xy_Hy__C__-', 4,5)        CALL MNC_CW_ADD_VNAME('HFacW', 'Cen_xy_Hy__C__-', 4,5, myThid)
63        CALL MNC_CW_ADD_VNAME(myThid, 'HFacS', 'Cen_xy_Hy__C__-', 4,5)        CALL MNC_CW_ADD_VNAME('HFacS', 'Cen_xy_Hy__C__-', 4,5, myThid)
64    
65        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'rC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rC',1,'description',
66       &     'r of cell center')       &     'r of cell center',myThid)
67        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'rF',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rF',1,'description',
68       &     'r of cell face')       &     'r of cell face',myThid)
69        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'drC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('drC',1,'description',
70       &     'r cell center separation')       &     'r cell center separation',myThid)
71        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'drF',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('drF',1,'description',
72       &     'r cell face separation')       &     'r cell face separation',myThid)
73        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'saFac',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('saFac',1,'description',
74       &     'shallow atmosphere factor')       &     'shallow atmosphere factor',myThid)
75        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'xC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('xC',1,'description',
76       &     'x of cell center')       &     'x of cell center',myThid)
77        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'yC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('yC',1,'description',
78       &     'y of cell center')       &     'y of cell center',myThid)
79        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'xG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('xG',1,'description',
80       &     'x of cell corner')       &     'x of cell corner',myThid)
81        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'yG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('yG',1,'description',
82       &     'y of cell corner')       &     'y of cell corner',myThid)
83        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'dxC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dxC',1,'description',
84       &     'x cell center separation')       &     'x cell center separation',myThid)
85        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'dyC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dyC',1,'description',
86       &     'y cell center separation')       &     'y cell center separation',myThid)
87        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'dxF',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dxF',1,'description',
88       &     'x cell face separation')       &     'x cell face separation',myThid)
89        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'dyF',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dyF',1,'description',
90       &     'y cell face separation')       &     'y cell face separation',myThid)
91        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'dxG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dxG',1,'description',
92       &     'x cell face separation')       &     'x cell face separation',myThid)
93        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'dyG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dyG',1,'description',
94       &     'y cell face separation')       &     'y cell face separation',myThid)
95        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'dxV',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dxV',1,'description',
96       &     'x v-velocity separation')       &     'x v-velocity separation',myThid)
97        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'dyU',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('dyU',1,'description',
98       &     'y u-velocity separation')       &     'y u-velocity separation',myThid)
99        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'rA',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rA',1,'description',
100       &     'r-face area')       &     'r-face area',myThid)
101        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'rAw',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rAw',1,'description',
102       &     '')       &     '',myThid)
103        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'rAs',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rAs',1,'description',
104       &     '')       &     '',myThid)
105        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'rAz',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rAz',1,'description',
106       &     '')       &     '',myThid)
107        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'fCori',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('fCori',1,'description',
108       &     'Coriolis f')       &     'Coriolis f',myThid)
109        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'fCoriG',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('fCoriG',1,'description',
110       &     'Coriolis f')       &     'Coriolis f',myThid)
111        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'R_low',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('R_low',1,'description',
112       &     'base of fluid in r-units')       &     'base of fluid in r-units',myThid)
113        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'Ro_surf',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('Ro_surf',1,'description',
114       &     'surface reference (at rest) position')       &     'surface reference (at rest,myThid) position',myThid)
115        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'HFacC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('HFacC',1,'description',
116       &     'C-facing vertical fraction of open cell')       &     'C-facing vertical fraction of open cell',myThid)
117        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'HFacW',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('HFacW',1,'description',
118       &     'W-facing vertical fraction of open cell')       &     'W-facing vertical fraction of open cell',myThid)
119        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'HFacS',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('HFacS',1,'description',
120       &     'S-facing vertical fraction of open cell')       &     'S-facing vertical fraction of open cell',myThid)
121    
122  C     Write the GRID.h variables  C     Write the GRID.h variables
123        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'rC',0,rC)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rC',0,rC,myThid)
124        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'rF',0,rF)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rF',0,rF,myThid)
125        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'drC',0,drC)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drC',0,drC,myThid)
126        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'drF',0,drF)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drF',0,drF,myThid)
127        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'saFac',0,saFac)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'saFac',0,saFac,myThid)
128        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'xC',0,xC)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xC',0,xC,myThid)
129        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'yC',0,yC)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yC',0,yC,myThid)
130        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'xG',0,xG)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xG',0,xG,myThid)
131        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'yG',0,yG)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yG',0,yG,myThid)
132        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'dxC',0,dxC)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxC',0,dxC,myThid)
133        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'dyC',0,dyC)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyC',0,dyC,myThid)
134        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'dxF',0,dxF)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxF',0,dxF,myThid)
135        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'dyF',0,dyF)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyF',0,dyF,myThid)
136        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'dxG',0,dxG)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxG',0,dxG,myThid)
137        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'dyG',0,dyG)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyG',0,dyG,myThid)
138        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'dxV',0,dxV)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxV',0,dxV,myThid)
139        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'dyU',0,dyU)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyU',0,dyU,myThid)
140        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'rA',0,rA)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rA',0,rA,myThid)
141        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'rAw',0,rAw)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAw',0,rAw,myThid)
142        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'rAs',0,rAs)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAs',0,rAs,myThid)
143        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'rAz',0,rAz)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAz',0,rAz,myThid)
144        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'fCori',0,fCori)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCori',0,fCori,myThid)
145        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'fCoriG',0,fCoriG)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCoriG',0,fCoriG,myThid)
146        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'R_low',0,R_low)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'R_low',0,R_low,myThid)
147        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'Ro_surf',0,Ro_surf)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'Ro_surf',0,Ro_surf,myThid)
148        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'HFacC',0,HFacC)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacC',0,HFacC,myThid)
149        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'HFacW',0,HFacW)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacW',0,HFacW,myThid)
150        CALL MNC_CW_RL_W_D(myThid,bfname(nf:nl),0,0,'HFacS',0,HFacS)        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacS',0,HFacS,myThid)
151    
152    
153        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22