/[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.7 by cnh, Sun Feb 4 14:38:47 2001 UTC revision 1.7.2.1 by adcroft, Tue Apr 3 02:42:25 2001 UTC
# Line 56  C--   Set up horizontal grid and coordin Line 56  C--   Set up horizontal grid and coordin
56         CALL INI_CARTESIAN_GRID( myThid )         CALL INI_CARTESIAN_GRID( myThid )
57        ELSEIF ( usingSphericalPolarGrid ) THEN        ELSEIF ( usingSphericalPolarGrid ) THEN
58         CALL INI_SPHERICAL_POLAR_GRID( myThid )         CALL INI_SPHERICAL_POLAR_GRID( myThid )
59          ELSEIF ( usingCurvilinearGrid ) THEN
60           CALL INI_CURVILINEAR_GRID( myThid )
61        ELSE        ELSE
62         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
63          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
# Line 64  C--   Set up horizontal grid and coordin Line 66  C--   Set up horizontal grid and coordin
66           STOP 'ABNORMAL END: S/R INI_GRID'           STOP 'ABNORMAL END: S/R INI_GRID'
67         _END_MASTER(myThid)         _END_MASTER(myThid)
68        ENDIF        ENDIF
69  C  
70    C--   Write certain grid data to files (useful for creating netCDF
71    C     and general post-analysis)
72          CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid)
73          CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid)
74          CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid)
75          CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid)
76    
77        RETURN        RETURN
78        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.7.2.1
  ViewVC Help
Powered by ViewVC 1.1.22