/[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.9 by edhill, Wed Sep 22 21:19:44 2004 UTC revision 1.10 by jmc, Tue Nov 28 20:23:56 2006 UTC
# Line 45  C     Create MNC definitions for GRID.h Line 45  C     Create MNC definitions for GRID.h
45        CALL MNC_CW_ADD_VNAME('rF', '-_-_--__I__-', 0,0, myThid)        CALL MNC_CW_ADD_VNAME('rF', '-_-_--__I__-', 0,0, myThid)
46        CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid)        CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid)
47        CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid)        CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid)
       CALL MNC_CW_ADD_VNAME('saFac', '-_-_--__C__-', 0,0, myThid)  
48    
49        CALL MNC_CW_ADD_VNAME('xC', 'Cen_xy_Hn__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('xC', 'Cen_xy_Hn__-__-', 3,4, myThid)
50        CALL MNC_CW_ADD_VNAME('yC', 'Cen_xy_Hn__-__-', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('yC', 'Cen_xy_Hn__-__-', 3,4, myThid)
# Line 79  C     Create MNC definitions for GRID.h Line 78  C     Create MNC definitions for GRID.h
78       &     'r cell center separation',myThid)       &     'r cell center separation',myThid)
79        CALL MNC_CW_ADD_VATTR_TEXT('drF','description',        CALL MNC_CW_ADD_VATTR_TEXT('drF','description',
80       &     'r cell face separation',myThid)       &     'r cell face separation',myThid)
       CALL MNC_CW_ADD_VATTR_TEXT('saFac','description',  
      &     'shallow atmosphere factor',myThid)  
81        CALL MNC_CW_ADD_VATTR_TEXT('xC','description',        CALL MNC_CW_ADD_VATTR_TEXT('xC','description',
82       &     'x of cell center',myThid)       &     'x of cell center',myThid)
83        CALL MNC_CW_ADD_VATTR_TEXT('yC','description',        CALL MNC_CW_ADD_VATTR_TEXT('yC','description',
# Line 134  C     Write the GRID.h variables Line 131  C     Write the GRID.h variables
131        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rF',rF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rF',rF,myThid)
132        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drC',drC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drC',drC,myThid)
133        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)
       CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'saFac',saFac,myThid)  
134        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xC',xC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xC',xC,myThid)
135        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yC',yC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yC',yC,myThid)
136        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xG',xG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xG',xG,myThid)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22