/[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.2.1 by adcroft, Tue Feb 26 16:04:47 2002 UTC revision 1.19 by jmc, Tue Jul 6 14:40:30 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 65  C--   Set up horizontal grid and coordin Line 66  C--   Set up horizontal grid and coordin
66         CALL INI_SPHERICAL_POLAR_GRID( myThid )         CALL INI_SPHERICAL_POLAR_GRID( myThid )
67        ELSEIF ( usingCurvilinearGrid ) THEN        ELSEIF ( usingCurvilinearGrid ) THEN
68         CALL INI_CURVILINEAR_GRID( myThid )         CALL INI_CURVILINEAR_GRID( myThid )
69          ELSEIF ( usingCylindricalGrid ) THEN
70           CALL INI_CYLINDER( myThid )
71        ELSE        ELSE
72         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
73          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
# Line 89  C     and general post-analysis) Line 92  C     and general post-analysis)
92        CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid)        CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid)
93    
94  C--   Print out statistics of each horizontal grid array (helps when debugging)  C--   Print out statistics of each horizontal grid array (helps when debugging)
95    
96    #ifdef ALLOW_MONITOR
97        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)
98        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)
99        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)
# Line 105  C--   Print out statistics of each horiz Line 110  C--   Print out statistics of each horiz
110        CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)        CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)
111        CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)        CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)
112        CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)        CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)
113    #endif
114    
115        RETURN        RETURN
116        END        END
Legend:
Removed from v.1.10.2.1  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22