/[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.13 by edhill, Mon Nov 3 22:40:22 2003 UTC revision 1.17 by afe, Thu Jun 24 20:25:44 2004 UTC
# Line 65  C--   Set up horizontal grid and coordin Line 65  C--   Set up horizontal grid and coordin
65         CALL INI_SPHERICAL_POLAR_GRID( myThid )         CALL INI_SPHERICAL_POLAR_GRID( myThid )
66        ELSEIF ( usingCurvilinearGrid ) THEN        ELSEIF ( usingCurvilinearGrid ) THEN
67         CALL INI_CURVILINEAR_GRID( myThid )         CALL INI_CURVILINEAR_GRID( myThid )
68          ELSEIF ( usingCylindricalGrid ) THEN
69           CALL INI_CYLINDER( myThid )
70        ELSE        ELSE
71         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
72          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
# Line 90  C     and general post-analysis) Line 92  C     and general post-analysis)
92    
93  C--   Print out statistics of each horizontal grid array (helps when debugging)  C--   Print out statistics of each horizontal grid array (helps when debugging)
94    
95  #ifdef ALLOW_MONITOR  #ifndef EXCLUDE_MONITOR
96        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)
97        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)
98        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22