/[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.8 by adcroft, Tue May 29 14:01:37 2001 UTC revision 1.9 by adcroft, Mon Jun 4 19:46:22 2001 UTC
# Line 75  C     and general post-analysis) Line 75  C     and general post-analysis)
75        CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid)        CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid)
76        CALL WRITE_FLD_XY_RS( 'AC',' ',rA,0,myThid)        CALL WRITE_FLD_XY_RS( 'AC',' ',rA,0,myThid)
77    
78    C--   Print out statistics of each horizontal grid array (helps when debugging)
79          CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)
80          CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)
81          CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)
82          CALL MON_PRINTSTATS_RS(1,DXF,'DXF',myThid)
83          CALL MON_PRINTSTATS_RS(1,DXG,'DXG',myThid)
84          CALL MON_PRINTSTATS_RS(1,DXV,'DXV',myThid)
85          CALL MON_PRINTSTATS_RS(1,YC,'YC',myThid)
86          CALL MON_PRINTSTATS_RS(1,YG,'YG',myThid)
87          CALL MON_PRINTSTATS_RS(1,DYC,'DYC',myThid)
88          CALL MON_PRINTSTATS_RS(1,DYF,'DYF',myThid)
89          CALL MON_PRINTSTATS_RS(1,DYG,'DYG',myThid)
90          CALL MON_PRINTSTATS_RS(1,DYU,'DYU',myThid)
91          CALL MON_PRINTSTATS_RS(1,RA,'RA',myThid)
92          CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)
93          CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)
94          CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)
95    
96        RETURN        RETURN
97        END        END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22