/[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.1 by cnh, Wed Apr 22 19:15:30 1998 UTC revision 1.6 by adcroft, Wed Dec 9 16:11:52 1998 UTC
# Line 1  Line 1 
1  C $Id$  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 30  C     |   Both of the above also require Line 30  C     |   Both of the above also require
30  C     |   routines that map computational blocks to simulation   |  C     |   routines that map computational blocks to simulation   |
31  C     |   domain blocks.                                         |  C     |   domain blocks.                                         |
32  C     \==========================================================/  C     \==========================================================/
33          IMPLICIT NONE
34    
35  C     === Global variables ===  C     === Global variables ===
36  #include "SIZE.h"  #include "SIZE.h"
# Line 46  C     == Local variables == Line 47  C     == Local variables ==
47  C     msgBuf - Used for informational I/O.  C     msgBuf - Used for informational I/O.
48        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
49    
50  C--   Set up grid coordinate system  C--   Set up vertical grid and coordinate system
51          CALL INI_VERTICAL_GRID( myThid )
52    
53    C--   Set up horizontal grid and coordinate system
54        IF ( usingCartesianGrid ) THEN        IF ( usingCartesianGrid ) THEN
55         CALL INI_CARTESIAN_GRID( myThid )         CALL INI_CARTESIAN_GRID( myThid )
56        ELSEIF ( usingSphericalPolarGrid ) THEN        ELSEIF ( usingSphericalPolarGrid ) THEN
# Line 62  C--   Set up grid coordinate system Line 66  C--   Set up grid coordinate system
66  C  C
67        RETURN        RETURN
68        END        END
   
 C     $Id$  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22