/[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.1 by edhill, Thu Feb 5 19:38:55 2004 UTC revision 1.2 by edhill, Mon Feb 23 19:28:29 2004 UTC
# Line 58  C     Create MNC definitions for GRID.h Line 58  C     Create MNC definitions for GRID.h
58        CALL MNC_CW_ADD_VNAME(myThid, 'fCoriG', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME(myThid, 'fCoriG', 'Cen_xy_Hy__-__-', 3,4)
59        CALL MNC_CW_ADD_VNAME(myThid, 'R_low', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME(myThid, 'R_low', 'Cen_xy_Hy__-__-', 3,4)
60        CALL MNC_CW_ADD_VNAME(myThid, 'Ro_surf', 'Cen_xy_Hy__-__-', 3,4)        CALL MNC_CW_ADD_VNAME(myThid, 'Ro_surf', 'Cen_xy_Hy__-__-', 3,4)
61        CALL MNC_CW_ADD_VNAME(myThid, 'HFacC', 'Cen_xy_Hy__C__-', 3,4)        CALL MNC_CW_ADD_VNAME(myThid, 'HFacC', 'Cen_xy_Hy__C__-', 4,5)
62        CALL MNC_CW_ADD_VNAME(myThid, 'HFacW', 'Cen_xy_Hy__C__-', 3,4)        CALL MNC_CW_ADD_VNAME(myThid, 'HFacW', 'Cen_xy_Hy__C__-', 4,5)
63        CALL MNC_CW_ADD_VNAME(myThid, 'HFacS', 'Cen_xy_Hy__C__-', 3,4)        CALL MNC_CW_ADD_VNAME(myThid, 'HFacS', 'Cen_xy_Hy__C__-', 4,5)
64    
65        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'rC',1,'description',        CALL MNC_CW_ADD_VATTR_TEXT(myThid,'rC',1,'description',
66       &     'r of cell center')       &     'r of cell center')
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22