/[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.19 by jmc, Tue Jul 6 14:40:30 2004 UTC revision 1.20 by adcroft, Fri Jul 9 14:24:19 2004 UTC
# Line 77  C--   Set up horizontal grid and coordin Line 77  C--   Set up horizontal grid and coordin
77         _END_MASTER(myThid)         _END_MASTER(myThid)
78        ENDIF        ENDIF
79    
 C--   Write certain grid data to files (useful for creating netCDF  
 C     and general post-analysis)  
       CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid)  
       CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid)  
   
 C--   Print out statistics of each horizontal grid array (helps when debugging)  
   
80  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
81    C--   Print out statistics of each horizontal grid array (helps when debugging)
82        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)
83        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)
84        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22