/[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.4 by adcroft, Thu Jul 2 14:16:24 1998 UTC revision 1.7.2.2 by jmc, Wed May 16 20:54:49 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 54  C--   Set up horizontal grid and coordin Line 56  C--   Set up horizontal grid and coordin
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 62  C--   Set up horizontal grid and coordin Line 66  C--   Set up horizontal grid and coordin
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.4  
changed lines
  Added in v.1.7.2.2
  ViewVC Help
Powered by ViewVC 1.1.22