/[MITgcm]/MITgcm/pkg/mdsio/mdsio_read_whalos.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_read_whalos.F

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

revision 1.6 by gforget, Fri Jan 21 22:02:33 2011 UTC revision 1.7 by jmc, Thu Jun 23 22:11:07 2011 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $fName:  $  C $Name$
3    
4  #include "MDSIO_OPTIONS.h"  #include "MDSIO_OPTIONS.h"
5    
# Line 110  c     == end of interface == Line 110  c     == end of interface ==
110        ELSE        ELSE
111          lengthBuff=sNxWh*gloNyWh          lengthBuff=sNxWh*gloNyWh
112        ENDIF        ENDIF
113          
114  C Only do I/O if I am the master thread (and mpi process 0 IF locSingleCpuIO):  C Only do I/O if I am the master thread (and mpi process 0 IF locSingleCpuIO):
115        iAmDoingIO = .FALSE.        iAmDoingIO = .FALSE.
116        IF ( .NOT.locSingleCpuIO .OR. myProcId.EQ.0 ) THEN        IF ( .NOT.locSingleCpuIO .OR. myProcId.EQ.0 ) THEN
117          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
118          iAmDoingIO = .TRUE.          iAmDoingIO = .TRUE.
119          _END_MASTER( myThid )          _END_MASTER( myThid )
120        ENDIF              ENDIF
121    
122        IF ( iAmDoingIO ) THEN        IF ( iAmDoingIO ) THEN
123  c get the unit and open file  c get the unit and open file
# Line 135  c get the unit and open file Line 135  c get the unit and open file
135       &         access='direct', recl=length_of_rec )       &         access='direct', recl=length_of_rec )
136        ELSE        ELSE
137          dUnit=fid          dUnit=fid
138        ENDIF          ENDIF
139        ENDIF        ENDIF
140    
141    
# Line 242  c copy Line 242  c copy
242    
243  #endif  #endif
244    
245        return        RETURN
246        end        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22