/[MITgcm]/MITgcm/model/src/ini_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_grid.F

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

revision 1.10 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.11 by adcroft, Mon Nov 26 15:43:28 2001 UTC
# Line 80  C     and general post-analysis) Line 80  C     and general post-analysis)
80        CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid)        CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid)
81        CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid)        CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid)
82        CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid)        CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid)
83        CALL WRITE_FLD_XY_RS( 'AC',' ',rA,0,myThid)        CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid)
84          CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid)
85          CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid)
86          CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid)
87          CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid)
88          CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid)
89          CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid)
90    
91  C--   Print out statistics of each horizontal grid array (helps when debugging)  C--   Print out statistics of each horizontal grid array (helps when debugging)
92        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22