/[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.30 by jmc, Tue Oct 17 18:20:18 2006 UTC revision 1.33 by jmc, Tue Mar 16 00:08:27 2010 UTC
# Line 15  C     integrals and spatial avarages. Th Line 15  C     integrals and spatial avarages. Th
15  C     by each thread and initializes only the region of the domain it is  C     by each thread and initializes only the region of the domain it is
16  C     "responsible" for.  C     "responsible" for.
17    
18    C     !CALLING SEQUENCE:
19    C     INI_GRID
20    C      |   -- LOAD_GRID_SPACING
21    C      |   -- INI_VERTICAL_GRID
22    C      |    / INI_CARTESIAN_GRID
23    C      |   /  INI_SPHERICAL_POLAR_GRID
24    C      |   \  INI_CURVILINEAR_GRID
25    C      |    \ INI_CYLINDER_GRID
26    
27  C     !USES:  C     !USES:
28        IMPLICIT NONE        IMPLICIT NONE
29  #include "SIZE.h"  #include "SIZE.h"
# Line 29  C     !USES: Line 38  C     !USES:
38  #endif  #endif
39    
40  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
41    C     myThid  :: my Thread Id number
42        INTEGER myThid        INTEGER myThid
43  CEOP  CEOP
44    
# Line 37  C     === Functions ==== Line 47  C     === Functions ====
47        EXTERNAL MASTER_CPU_IO        EXTERNAL MASTER_CPU_IO
48    
49  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
50  C     msgBuf - Used for informational I/O.  C     msgBuf  :: Informational/error message buffer
51        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
52  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
53        INTEGER i        INTEGER i
# Line 56  C     can be fitted into this design. In Line 66  C     can be fitted into this design. In
66  C     also need adding to account for the projections of velocity  C     also need adding to account for the projections of velocity
67  C     vectors onto these grids.  The structure used here also makes it  C     vectors onto these grids.  The structure used here also makes it
68  C     possible to implement less regular grid mappings. In particular:  C     possible to implement less regular grid mappings. In particular:
69  C      o Schemes which leave out blocks of the domain that are    C      o Schemes which leave out blocks of the domain that are
70  C        all land could be supported.                              C        all land could be supported.
71  C      o Multi-level schemes such as icosohedral or cubic          C      o Multi-level schemes such as icosohedral or cubic
72  C        grid projectedions onto a sphere can also be fitted      C        grid projectedions onto a sphere can also be fitted
73  C       within the strategy we use.                              C       within the strategy we use.
74  C        Both of the above also require modifying the support      C        Both of the above also require modifying the support
75  C        routines that map computational blocks to simulation      C        routines that map computational blocks to simulation
76  C        domain blocks.                                            C        domain blocks.
77    
78  C     Set up horizontal grid and coordinate system  C     Set up horizontal grid and coordinate system
79        IF ( usingCartesianGrid ) THEN        IF ( usingCartesianGrid ) THEN
# Line 86  C     Set up horizontal grid and coordin Line 96  C     Set up horizontal grid and coordin
96  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
97        IF ( MASTER_CPU_IO(myThid) ) THEN        IF ( MASTER_CPU_IO(myThid) ) THEN
98  C--   only the master thread is allowed to switch On/Off mon_write_stdout  C--   only the master thread is allowed to switch On/Off mon_write_stdout
99  C     & mon_write_mnc (since it's the only thread that uses those flags):  C     & mon_write_mnc (since it is the only thread that uses those flags):
100    
101          IF (monitor_stdio) THEN          IF (monitor_stdio) THEN
102            mon_write_stdout = .TRUE.            mon_write_stdout = .TRUE.
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22