/[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.13 by heimbach, Mon Jun 29 21:31:09 2009 UTC revision 1.14 by jmc, Tue Jun 7 22:19:48 2011 UTC
# Line 109  C---  read in input data Line 109  C---  read in input data
109        IF ( MASTER_CPU_IO(myThid) ) THEN        IF ( MASTER_CPU_IO(myThid) ) THEN
110  C--   master thread of process 0, only, opens a global file  C--   master thread of process 0, only, opens a global file
111    
 #ifndef ALLOW_ECCO  
112          IL  = ILNBLNK( infile )          IL  = ILNBLNK( infile )
113          INQUIRE( file=infile, exist=exst )          INQUIRE( file=infile, exist=exst )
114          IF (exst) THEN          IF (exst) THEN
115           IF ( debugLevel .GT. debLevA ) THEN           IF ( debugLevel.GE.debLevB ) THEN
116            WRITE(msgBuf,'(A,A)')            WRITE(msgBuf,'(A,A)')
117       &         ' EXF_INTERP_READ: opening file: ',infile(1:IL)       &         ' EXF_INTERP_READ: opening file: ',infile(1:IL)
118            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 132  C--   master thread of process 0, only, Line 131  C--   master thread of process 0, only,
131           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
132           STOP 'ABNORMAL END: S/R EXF_INTERP_READ'           STOP 'ABNORMAL END: S/R EXF_INTERP_READ'
133          ENDIF          ENDIF
 #endif /* ALLOW_ECCO */  
134    
135          CALL MDSFINDUNIT( ioUnit, myThid )          CALL MDSFINDUNIT( ioUnit, myThid )
136          length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid )          length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid )
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22