/[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.7 by dimitri, Wed Dec 13 18:37:21 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 65  C     case of nThreads > 1. Stop if it i Line 69  C     case of nThreads > 1. Stop if it i
69       &'EXF_INTERP_READ: nThreads > 1 needs EXF_IREAD_USE_GLOBAL_POINTER'       &'EXF_INTERP_READ: nThreads > 1 needs EXF_IREAD_USE_GLOBAL_POINTER'
70        ENDIF        ENDIF
71  #endif  #endif
 C check input arguments  
        if ( .NOT. (filePrec .EQ. 32) )  
      &     stop 'stop in exf_interp.F: value of filePrec not allowed'  
72    
73  C read in input data  C read in input data
74  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
75  C      if (useSingleCPUIO) then  #ifdef EXF_IREAD_USE_GLOBAL_POINTER
76         if (.FALSE.) then         if (.FALSE.) then
77    #else
78          if (useSingleCPUIO) then
79    #endif
80    
81  C master thread of process 0, only, opens a global file  C master thread of process 0, only, opens a global file
82          IF( mpiMyId .EQ. 0 ) THEN          IF( mpiMyId .EQ. 0 ) THEN
# 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.7

  ViewVC Help
Powered by ViewVC 1.1.22