/[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.31 by jmc, Tue Nov 28 22:47:13 2006 UTC
# Line 29  C     !USES: Line 29  C     !USES:
29  #endif  #endif
30    
31  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
32    C     myThid  :: my Thread Id number
33        INTEGER myThid        INTEGER myThid
34  CEOP  CEOP
35    
# Line 37  C     === Functions ==== Line 38  C     === Functions ====
38        EXTERNAL MASTER_CPU_IO        EXTERNAL MASTER_CPU_IO
39    
40  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
41  C     msgBuf - Used for informational I/O.  C     msgBuf  :: Informational/error message buffer
42        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
43  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
44        INTEGER i        INTEGER i
# Line 46  C     msgBuf - Used for informational I/ Line 47  C     msgBuf - Used for informational I/
47  C     load grid spacing (vector) from files  C     load grid spacing (vector) from files
48        CALL LOAD_GRID_SPACING( myThid )        CALL LOAD_GRID_SPACING( myThid )
49    
50    C     Set up reference vertical profile (vector) for state variables
51    C jmc: this call will not stay here but will move to S/R INITIALISE_FIXED
52    C      (a better place) once anelatic initialisation is cleaned-up.
53          CALL INI_REFERENCE_STATE( myThid )
54    
55  C     Set up vertical grid and coordinate system  C     Set up vertical grid and coordinate system
56        CALL INI_VERTICAL_GRID( myThid )        CALL INI_VERTICAL_GRID( myThid )
57    
# Line 56  C     can be fitted into this design. In Line 62  C     can be fitted into this design. In
62  C     also need adding to account for the projections of velocity  C     also need adding to account for the projections of velocity
63  C     vectors onto these grids.  The structure used here also makes it  C     vectors onto these grids.  The structure used here also makes it
64  C     possible to implement less regular grid mappings. In particular:  C     possible to implement less regular grid mappings. In particular:
65  C      o Schemes which leave out blocks of the domain that are    C      o Schemes which leave out blocks of the domain that are
66  C        all land could be supported.                              C        all land could be supported.
67  C      o Multi-level schemes such as icosohedral or cubic          C      o Multi-level schemes such as icosohedral or cubic
68  C        grid projectedions onto a sphere can also be fitted      C        grid projectedions onto a sphere can also be fitted
69  C       within the strategy we use.                              C       within the strategy we use.
70  C        Both of the above also require modifying the support      C        Both of the above also require modifying the support
71  C        routines that map computational blocks to simulation      C        routines that map computational blocks to simulation
72  C        domain blocks.                                            C        domain blocks.
73    
74  C     Set up horizontal grid and coordinate system  C     Set up horizontal grid and coordinate system
75        IF ( usingCartesianGrid ) THEN        IF ( usingCartesianGrid ) THEN
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22