/[MITgcm]/MITgcm/model/src/ini_curvilinear_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_curvilinear_grid.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by adcroft, Tue May 29 14:01:37 2001 UTC revision 1.3 by cnh, Wed Sep 26 18:09:15 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: INI_CURVILINEAR_GRID
8    C     !INTERFACE:
9        SUBROUTINE INI_CURVILINEAR_GRID( myThid )        SUBROUTINE INI_CURVILINEAR_GRID( myThid )
10  C     /==========================================================\  C     !DESCRIPTION: \bv
11  C     | SUBROUTINE INI_CURVILINEAR_GRID                          |  C     *==========================================================*
12  C     | o Initialise curvilinear coordinate system               |  C     | SUBROUTINE INI_CURVILINEAR_GRID                          
13  C     |==========================================================|  C     | o Initialise curvilinear coordinate system                
14  C     \==========================================================/  C     *==========================================================*
15        IMPLICIT NONE  C     | Curvilinear grid settings are read from a file rather
16    C     | than coded in-line as for cartesian and spherical polar.
17    C     | This is more general but you have to create the grid
18    C     | yourself.
19    C     *==========================================================*
20    C     \ev
21    
22    C     !USES:
23          IMPLICIT NONE
24  C     === Global variables ===  C     === Global variables ===
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28  #include "GRID.h"  #include "GRID.h"
29    
30    C     !INPUT/OUTPUT PARAMETERS:
31  C     == Routine arguments ==  C     == Routine arguments ==
32  C     myThid -  Number of this instance of INI_CARTESIAN_GRID  C     myThid -  Number of this instance of INI_CARTESIAN_GRID
33        INTEGER myThid        INTEGER myThid
34    
35    C     !LOCAL VARIABLES:
36  C     == Local variables ==  C     == Local variables ==
37        INTEGER bi,bj        INTEGER bi,bj
38        INTEGER I,J        INTEGER I,J
39    CEOP
40    
41  C--   Set everything to zero everywhere  C--   Set everything to zero everywhere
42        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22