/[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.7 by cnh, Sun Feb 4 14:38:47 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE INI_GRID( myThid )        SUBROUTINE INI_GRID( myThid )
# Line 30  C     |   Both of the above also require Line 31  C     |   Both of the above also require
31  C     |   routines that map computational blocks to simulation   |  C     |   routines that map computational blocks to simulation   |
32  C     |   domain blocks.                                         |  C     |   domain blocks.                                         |
33  C     \==========================================================/  C     \==========================================================/
34          IMPLICIT NONE
35    
36  C     === Global variables ===  C     === Global variables ===
37  #include "SIZE.h"  #include "SIZE.h"
# Line 46  C     == Local variables == Line 48  C     == Local variables ==
48  C     msgBuf - Used for informational I/O.  C     msgBuf - Used for informational I/O.
49        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
50    
51  C--   Set up grid coordinate system  C--   Set up vertical grid and coordinate system
52          CALL INI_VERTICAL_GRID( myThid )
53    
54    C--   Set up horizontal grid and coordinate system
55        IF ( usingCartesianGrid ) THEN        IF ( usingCartesianGrid ) THEN
56         CALL INI_CARTESIAN_GRID( myThid )         CALL INI_CARTESIAN_GRID( myThid )
57        ELSEIF ( usingSphericalPolarGrid ) THEN        ELSEIF ( usingSphericalPolarGrid ) THEN
# Line 62  C--   Set up grid coordinate system Line 67  C--   Set up grid coordinate system
67  C  C
68        RETURN        RETURN
69        END        END
   
 C     $Id$  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22