/[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.23 by edhill, Wed Oct 13 04:37:37 2004 UTC revision 1.24 by jmc, Wed Jul 13 00:34:39 2005 UTC
# Line 64  C     Set up horizontal grid and coordin Line 64  C     Set up horizontal grid and coordin
64        ELSEIF ( usingCurvilinearGrid ) THEN        ELSEIF ( usingCurvilinearGrid ) THEN
65          CALL INI_CURVILINEAR_GRID( myThid )          CALL INI_CURVILINEAR_GRID( myThid )
66        ELSEIF ( usingCylindricalGrid ) THEN        ELSEIF ( usingCylindricalGrid ) THEN
67          CALL INI_CYLINDER( myThid )          CALL INI_CYLINDER_GRID( myThid )
68        ELSE        ELSE
69          _BEGIN_MASTER(myThid)          _BEGIN_MASTER(myThid)
70          WRITE(msgBuf,'(2A)') 'S/R INI_GRID: ',          WRITE(msgBuf,'(2A)') 'S/R INI_GRID: ',
# Line 110  C     debugging) Line 110  C     debugging)
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          CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid)
114          CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid)
115    
116        mon_write_stdout = .FALSE.        mon_write_stdout = .FALSE.
117        mon_write_mnc    = .FALSE.        mon_write_mnc    = .FALSE.
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22