/[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.8 by mlosch, Thu Dec 14 08:17:15 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 66  C     case of nThreads > 1. Stop if it i Line 70  C     case of nThreads > 1. Stop if it i
70        ENDIF        ENDIF
71  #endif  #endif
72  C check input arguments  C check input arguments
73         if ( .NOT. (filePrec .EQ. 32) )        IF ( .NOT. (filePrec .EQ. 32) )
74       &     stop 'stop in exf_interp.F: value of filePrec not allowed'       &     STOP 'stop in exf_interp.F: value of filePrec not allowed'
75    
76  C read in input data  C read in input data
77  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
78  C      if (useSingleCPUIO) then  #ifdef EXF_IREAD_USE_GLOBAL_POINTER
79         if (.FALSE.) then         if (.FALSE.) then
80    #else
81          if (useSingleCPUIO) then
82    #endif
83    
84  C master thread of process 0, only, opens a global file  C master thread of process 0, only, opens a global file
85          IF( mpiMyId .EQ. 0 ) THEN          IF( mpiMyId .EQ. 0 ) THEN
# Line 124  C broadcast to all processes Line 131  C broadcast to all processes
131         call MDS_BYTESWAPR4((nx_in+4)*(ny_in+4), arrayin )         call MDS_BYTESWAPR4((nx_in+4)*(ny_in+4), arrayin )
132  #endif /* _BYTESWAPIO */  #endif /* _BYTESWAPIO */
133    
134          RETURN
135        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22