/[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.21 by edhill, Wed Sep 15 21:23:32 2004 UTC revision 1.25 by jmc, Sun Jul 31 22:07:47 2005 UTC
# Line 20  C     !USES: Line 20  C     !USES:
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23    #ifdef ALLOW_MNC
24    #include "MNC_PARAMS.h"
25    #endif
26  #include "GRID.h"  #include "GRID.h"
27  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
28  #include "MONITOR.h"  #include "MONITOR.h"
29  #endif  #endif
 #ifdef ALLOW_MNC  
 #include "MNC_PARAMS.h"  
 #endif  
30    
31  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
32        INTEGER myThid        INTEGER myThid
# Line 37  C     msgBuf - Used for informational I/ Line 37  C     msgBuf - Used for informational I/
37        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
38        INTEGER i        INTEGER i
39    
40    C     load grid spacing (vector) from files
41          CALL LOAD_GRID_SPACING( myThid )
42    
43  C     Set up vertical grid and coordinate system  C     Set up vertical grid and coordinate system
44        CALL INI_VERTICAL_GRID( myThid )        CALL INI_VERTICAL_GRID( myThid )
45    
# Line 64  C     Set up horizontal grid and coordin Line 67  C     Set up horizontal grid and coordin
67        ELSEIF ( usingCurvilinearGrid ) THEN        ELSEIF ( usingCurvilinearGrid ) THEN
68          CALL INI_CURVILINEAR_GRID( myThid )          CALL INI_CURVILINEAR_GRID( myThid )
69        ELSEIF ( usingCylindricalGrid ) THEN        ELSEIF ( usingCylindricalGrid ) THEN
70          CALL INI_CYLINDER( myThid )          CALL INI_CYLINDER_GRID( myThid )
71        ELSE        ELSE
72          _BEGIN_MASTER(myThid)          _BEGIN_MASTER(myThid)
73          WRITE(msgBuf,'(2A)') 'S/R INI_GRID: ',          WRITE(msgBuf,'(2A)') 'S/R INI_GRID: ',
# Line 110  C     debugging) Line 113  C     debugging)
113        CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)        CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)
114        CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)        CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)
115        CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)        CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)
116          CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid)
117          CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid)
118    
119        mon_write_stdout = .FALSE.        mon_write_stdout = .FALSE.
120        mon_write_mnc    = .FALSE.        mon_write_mnc    = .FALSE.
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22