/[MITgcm]/MITgcm_contrib/submesoscale/code/ini_grid.F
ViewVC logotype

Diff of /MITgcm_contrib/submesoscale/code/ini_grid.F

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

revision 1.2 by dimitri, Sat May 31 00:47:06 2008 UTC revision 1.3 by jmc, Fri Mar 19 19:24:16 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 47  C     msgBuf  :: Informational/error mes Line 56  C     msgBuf  :: Informational/error mes
56  C     load grid spacing (vector) from files  C     load grid spacing (vector) from files
57        CALL LOAD_GRID_SPACING( myThid )        CALL LOAD_GRID_SPACING( myThid )
58    
 C     Set up reference vertical profile (vector) for state variables  
 C jmc: this call will not stay here but will move to S/R INITIALISE_FIXED  
 C      (a better place) once anelatic initialisation is cleaned-up.  
       CALL INI_REFERENCE_STATE( myThid )  
   
59  C     Set up vertical grid and coordinate system  C     Set up vertical grid and coordinate system
60        CALL INI_VERTICAL_GRID( myThid )        CALL INI_VERTICAL_GRID( myThid )
61    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22