/[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.8 by adcroft, Tue May 29 14:01:37 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
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 59  C--   Set up grid coordinate system Line 66  C--   Set up grid coordinate system
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          CALL WRITE_FLD_XY_RS( 'AC',' ',rA,0,myThid)
77    
78        RETURN        RETURN
79        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22