/[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.29 by heimbach, Wed Sep 6 02:44:11 2006 UTC revision 1.30 by jmc, Tue Oct 17 18:20:18 2006 UTC
# Line 19  C     !USES: Line 19  C     !USES:
19        IMPLICIT NONE        IMPLICIT NONE
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #ifndef ALLOW_AUTODIFF_TAMC  
 # include "EESUPPORT.h"  
 #endif  
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "GRID.h"  #include "GRID.h"
24  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
# Line 35  C     !INPUT/OUTPUT PARAMETERS: Line 32  C     !INPUT/OUTPUT PARAMETERS:
32        INTEGER myThid        INTEGER myThid
33  CEOP  CEOP
34    
35    C     === Functions ====
36          LOGICAL  MASTER_CPU_IO
37          EXTERNAL MASTER_CPU_IO
38    
39  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
40  C     msgBuf - Used for informational I/O.  C     msgBuf - Used for informational I/O.
41        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 43  C     msgBuf - Used for informational I/ Line 44  C     msgBuf - Used for informational I/
44  #endif  #endif
45    
46  C     load grid spacing (vector) from files  C     load grid spacing (vector) from files
       _BARRIER  
47        CALL LOAD_GRID_SPACING( myThid )        CALL LOAD_GRID_SPACING( myThid )
       _BARRIER  
48    
49  C     Set up vertical grid and coordinate system  C     Set up vertical grid and coordinate system
50        CALL INI_VERTICAL_GRID( myThid )        CALL INI_VERTICAL_GRID( myThid )
# Line 84  C     Set up horizontal grid and coordin Line 83  C     Set up horizontal grid and coordin
83          _END_MASTER(myThid)          _END_MASTER(myThid)
84        ENDIF        ENDIF
85    
 #ifndef ALLOW_AUTODIFF_TAMC  
86  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
87  #ifdef ALLOW_USE_MPI        IF ( MASTER_CPU_IO(myThid) ) THEN
       IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN  
 #endif /* ALLOW_USE_MPI */  
         _BEGIN_MASTER(myThid)  
88  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
89  C     & mon_write_mnc (since it's the only thread that uses those flags):  C     & mon_write_mnc (since it's the only thread that uses those flags):
90    
# Line 110  C     & mon_write_mnc (since it's the on Line 105  C     & mon_write_mnc (since it's the on
105          ENDIF          ENDIF
106  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
107    
         _END_MASTER(myThid)  
 #ifdef ALLOW_USE_MPI  
108        ENDIF        ENDIF
 #endif /* ALLOW_USE_MPI */  
109    
110  C     Print out statistics of each horizontal grid array (helps when  C     Print out statistics of each horizontal grid array (helps when
111  C     debugging)  C     debugging)
# Line 136  C     debugging) Line 128  C     debugging)
128        CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid)        CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid)
129        CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid)        CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid)
130    
131  #ifdef ALLOW_USE_MPI        IF ( MASTER_CPU_IO(myThid) ) THEN
       IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN  
 #endif /* ALLOW_USE_MPI */  
         _BEGIN_MASTER(myThid)  
   
132          mon_write_stdout = .FALSE.          mon_write_stdout = .FALSE.
133          mon_write_mnc    = .FALSE.          mon_write_mnc    = .FALSE.
   
         _END_MASTER(myThid)  
 #ifdef ALLOW_USE_MPI  
134        ENDIF        ENDIF
 #endif /* ALLOW_USE_MPI */  
135  #endif /* ALLOW_MONITOR */  #endif /* ALLOW_MONITOR */
136  #endif /* ALLOW_AUTODIFF_TAMC */  
137    C--   Everyone else must wait for the grid to be set
138          _BARRIER
139    
140        RETURN        RETURN
141        END        END
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22