/[MITgcm]/MITgcm/pkg/exf/exf_interp_read.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_interp_read.F

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

revision 1.4 by dimitri, Fri Jun 30 12:05:42 2006 UTC revision 1.5 by jmc, Thu Aug 31 20:57:47 2006 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "EXF_OPTIONS.h"  #include "EXF_OPTIONS.h"
5    
6         SUBROUTINE exf_interp_read(         SUBROUTINE exf_interp_read(
# Line 55  C local variables Line 58  C local variables
58        real*4   global(nx_in,ny_in)        real*4   global(nx_in,ny_in)
59  #endif  #endif
60    
61          _BARRIER
62        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
63    
64  #ifndef EXF_IREAD_USE_GLOBAL_POINTER  #ifndef EXF_IREAD_USE_GLOBAL_POINTER
# Line 124  C broadcast to all processes Line 128  C broadcast to all processes
128         call MDS_BYTESWAPR4((nx_in+4)*(ny_in+4), arrayin )         call MDS_BYTESWAPR4((nx_in+4)*(ny_in+4), arrayin )
129  #endif /* _BYTESWAPIO */  #endif /* _BYTESWAPIO */
130    
131          RETURN
132        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22