/[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.10.2.2 by heimbach, Mon Apr 8 20:10:37 2002 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    
93    #ifndef EXCLUDE_MONITOR
94        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)
95        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)
96        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)
# Line 99  C--   Print out statistics of each horiz Line 107  C--   Print out statistics of each horiz
107        CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)        CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)
108        CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)        CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)
109        CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)        CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)
110    #endif
111    
112        RETURN        RETURN
113        END        END
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.10.2.2
  ViewVC Help
Powered by ViewVC 1.1.22