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, |
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 ) |