/[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.2 by cnh, Fri Apr 24 02:05:41 1998 UTC revision 1.5 by cnh, Fri Nov 6 22:44:47 1998 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5  CStartOfInterface  CStartOfInterface
6        SUBROUTINE INI_GRID( myThid )        SUBROUTINE INI_GRID( myThid )
# 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
# Line 62  C--   Set up grid coordinate system Line 65  C--   Set up grid coordinate system
65  C  C
66        RETURN        RETURN
67        END        END
   
 C     $Id$  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22