/[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.6 by dimitri, Sun Oct 15 14:08:10 2006 UTC revision 1.7 by dimitri, Wed Dec 13 18:37:21 2006 UTC
# Line 69  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
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22