/[MITgcm]/MITgcm/model/src/ini_model_io.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_model_io.F

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

revision 1.21 by jmc, Thu Nov 3 16:26:35 2005 UTC revision 1.22 by jmc, Fri Aug 4 01:22:18 2006 UTC
# Line 30  CEOP Line 30  CEOP
30    
31  C-    Safety check:  C-    Safety check:
32        IF ( nPx*nPy.NE.1 .AND. globalFiles ) THEN        IF ( nPx*nPy.NE.1 .AND. globalFiles ) THEN
33            _BEGIN_MASTER( myThid )
34  c       WRITE(msgBuf,'(2A)')  c       WRITE(msgBuf,'(2A)')
35  c    &   'INI_MODEL_IO: globalFiles=TRUE is not safe',  c    &   'INI_MODEL_IO: globalFiles=TRUE is not safe',
36  c    &   ' in Multi-processors (MPI) run'  c    &   ' in Multi-processors (MPI) run'
# Line 58  C----- Line 59  C-----
59       &   ' use instead "useSingleCpuIO=.TRUE."'       &   ' use instead "useSingleCpuIO=.TRUE."'
60          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
61       &                      SQUEEZE_RIGHT , myThid)       &                      SQUEEZE_RIGHT , myThid)
62            _END_MASTER( myThid )
63        ENDIF        ENDIF
64    
65  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
66    
67  C-    Flags specific to RW and MDSIO  C-    Flags specific to RW and MDSIO
68    
69    C-    Only Master-thread updates IO-parameter in Common blocks:
70          _BEGIN_MASTER( myThid )
71    
72  C     Set globalFiles flag for READ_WRITE_FLD package  C     Set globalFiles flag for READ_WRITE_FLD package
73        CALL SET_WRITE_GLOBAL_FLD( globalFiles )        CALL SET_WRITE_GLOBAL_FLD( globalFiles )
74  C     Set globalFiles flag for READ_WRITE_REC package  C     Set globalFiles flag for READ_WRITE_REC package
# Line 71  C     Set globalFiles flag for READ_WRIT Line 76  C     Set globalFiles flag for READ_WRIT
76  C     Set globalFiles flag for READ_WRITE_PICKUP  C     Set globalFiles flag for READ_WRITE_PICKUP
77        CALL SET_WRITE_GLOBAL_PICKUP( globalFiles )        CALL SET_WRITE_GLOBAL_PICKUP( globalFiles )
78    
79          _END_MASTER( myThid )
80    C-    Everyone else must wait for the IO-parameters to be set
81          _BARRIER
82    
83  C-    MNC model-io initialisation  C-    MNC model-io initialisation
84    
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22