/[MITgcm]/MITgcm/pkg/diagnostics/diagstats_close_io.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagstats_close_io.F

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

revision 1.2 by jmc, Tue Feb 5 15:31:19 2008 UTC revision 1.3 by jmc, Wed Jan 13 01:44:12 2010 UTC
# Line 21  C     !USES: Line 21  C     !USES:
21  C     == Global variables ===  C     == Global variables ===
22  #include "SIZE.h"  #include "SIZE.h"
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "EESUPPORT.h"  
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "DIAGNOSTICS_SIZE.h"  #include "DIAGNOSTICS_SIZE.h"
26  #include "DIAGNOSTICS.h"  #include "DIAGNOSTICS.h"
27    
28  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
29  C     == Routine arguments ==  C     == Routine arguments ==
30  C     myThid - Thread number for this instance of the routine.  C     myThid  :: my Thread Id number
31        INTEGER myThid        INTEGER myThid
32  CEOP  CEOP
33    
# Line 42  C     == Local variables == Line 41  C     == Local variables ==
41    
42        _BEGIN_MASTER( myThid)        _BEGIN_MASTER( myThid)
43    
44  #ifdef ALLOW_USE_MPI        IF ( diagSt_Ascii .AND. myProcId.EQ.0 ) THEN
       IF ( diagSt_Ascii .AND. mpiMyId.EQ.0 ) THEN  
 #else  
       IF ( diagSt_Ascii ) THEN  
 #endif  
45    
46          DO n=1,diagSt_nbLists          DO n=1,diagSt_nbLists
47    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22