/[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.12 by heimbach, Fri Feb 15 21:25:09 2002 UTC revision 1.18 by heimbach, Wed Jun 30 23:45:35 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  #ifndef EXCLUDE_MONITOR  #ifdef ALLOW_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.12  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22