/[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.3 by edhill, Fri Mar 19 03:28:36 2004 UTC revision 1.4 by edhill, Fri Mar 19 03:55:16 2004 UTC
# Line 38  C     Create MNC definitions for GRID.h Line 38  C     Create MNC definitions for GRID.h
38        CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid)        CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid)
39        CALL MNC_CW_ADD_VNAME('saFac', '-_-_--__C__-', 0,0, myThid)        CALL MNC_CW_ADD_VNAME('saFac', '-_-_--__C__-', 0,0, myThid)
40    
41        CALL MNC_CW_ADD_VNAME('xC', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('xC', 'Cen_xy_Hn__-__-', 3,4, myThid)
42        CALL MNC_CW_ADD_VNAME('yC', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('yC', 'Cen_xy_Hn__-__-', 3,4, myThid)
43        CALL MNC_CW_ADD_VNAME('xG', 'Cor_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('xG', 'Cor_xy_Hn__-__-', 3,4, myThid)
44        CALL MNC_CW_ADD_VNAME('yG', 'Cor_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('yG', 'Cor_xy_Hn__-__-', 3,4, myThid)
45        CALL MNC_CW_ADD_VNAME('dxC', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dxC', 'Cen_xy_Hn__-__-', 3,4, myThid)
46        CALL MNC_CW_ADD_VNAME('dyC', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dyC', 'Cen_xy_Hn__-__-', 3,4, myThid)
47        CALL MNC_CW_ADD_VNAME('dxF', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dxF', 'Cen_xy_Hn__-__-', 3,4, myThid)
48        CALL MNC_CW_ADD_VNAME('dyF', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dyF', 'Cen_xy_Hn__-__-', 3,4, myThid)
49        CALL MNC_CW_ADD_VNAME('dxG', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dxG', 'Cen_xy_Hn__-__-', 3,4, myThid)
50        CALL MNC_CW_ADD_VNAME('dyG', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dyG', 'Cen_xy_Hn__-__-', 3,4, myThid)
51        CALL MNC_CW_ADD_VNAME('dxV', 'U_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dxV', 'U_xy_Hn__-__-', 3,4, myThid)
52        CALL MNC_CW_ADD_VNAME('dyU', 'V_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('dyU', 'V_xy_Hn__-__-', 3,4, myThid)
53        CALL MNC_CW_ADD_VNAME('rA', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('rA', 'Cen_xy_Hn__-__-', 3,4, myThid)
54        CALL MNC_CW_ADD_VNAME('rAw', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('rAw', 'Cen_xy_Hn__-__-', 3,4, myThid)
55        CALL MNC_CW_ADD_VNAME('rAs', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('rAs', 'Cen_xy_Hn__-__-', 3,4, myThid)
56        CALL MNC_CW_ADD_VNAME('rAz', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('rAz', 'Cen_xy_Hn__-__-', 3,4, myThid)
57        CALL MNC_CW_ADD_VNAME('fCori', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('fCori', 'Cen_xy_Hn__-__-', 3,4, myThid)
58        CALL MNC_CW_ADD_VNAME('fCoriG', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('fCoriG', 'Cen_xy_Hn__-__-', 3,4, myThid)
59        CALL MNC_CW_ADD_VNAME('R_low', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('R_low', 'Cen_xy_Hn__-__-', 3,4, myThid)
60        CALL MNC_CW_ADD_VNAME('Ro_surf', 'Cen_xy_Hy__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('Ro_surf', 'Cen_xy_Hn__-__-', 3,4, myThid)
61        CALL MNC_CW_ADD_VNAME('HFacC', 'Cen_xy_Hy__C__-', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('HFacC', 'Cen_xy_Hn__C__-', 4,5, myThid)
62        CALL MNC_CW_ADD_VNAME('HFacW', 'Cen_xy_Hy__C__-', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('HFacW', 'Cen_xy_Hn__C__-', 4,5, myThid)
63        CALL MNC_CW_ADD_VNAME('HFacS', 'Cen_xy_Hy__C__-', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('HFacS', 'Cen_xy_Hn__C__-', 4,5, myThid)
64    
65        CALL MNC_CW_ADD_VATTR_TEXT('rC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT('rC',1,'description',
66       &     'r of cell center',myThid)       &     'r of cell center',myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22