/[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.3 by cnh, Fri Apr 24 02:10:20 1998 UTC revision 1.4 by adcroft, Thu Jul 2 14:16:24 1998 UTC
# Line 46  C     == Local variables == Line 46  C     == Local variables ==
46  C     msgBuf - Used for informational I/O.  C     msgBuf - Used for informational I/O.
47        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
48    
49  C--   Set up grid coordinate system  C--   Set up vertical grid and coordinate system
50          CALL INI_VERTICAL_GRID( myThid )
51    
52    C--   Set up horizontal grid and coordinate system
53        IF ( usingCartesianGrid ) THEN        IF ( usingCartesianGrid ) THEN
54         CALL INI_CARTESIAN_GRID( myThid )         CALL INI_CARTESIAN_GRID( myThid )
55        ELSEIF ( usingSphericalPolarGrid ) THEN        ELSEIF ( usingSphericalPolarGrid ) THEN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22