/[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.7 by dimitri, Wed Dec 13 18:37:21 2006 UTC revision 1.8 by mlosch, Thu Dec 14 08:17:15 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
72    C check input arguments
73          IF ( .NOT. (filePrec .EQ. 32) )
74         &     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
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22