169 |
C Of course, we only open the file if the tile is "active" |
C Of course, we only open the file if the tile is "active" |
170 |
C (This is a place-holder for the active/passive mechanism |
C (This is a place-holder for the active/passive mechanism |
171 |
if (exst) then |
if (exst) then |
172 |
write(msgbuf,'(a,a)') |
if ( debugLevel .GE. debLevA ) then |
173 |
|
write(msgbuf,'(a,a)') |
174 |
& ' MDSREADFIELD_GL: opening file: ',dataFName |
& ' MDSREADFIELD_GL: opening file: ',dataFName |
175 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
176 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
177 |
|
endif |
178 |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
179 |
open( dUnit, file=dataFName, status='old', |
open( dUnit, file=dataFName, status='old', |
180 |
& access='direct', recl=length_of_rec ) |
& access='direct', recl=length_of_rec ) |
615 |
C Of course, we only open the file if the tile is "active" |
C Of course, we only open the file if the tile is "active" |
616 |
C (This is a place-holder for the active/passive mechanism |
C (This is a place-holder for the active/passive mechanism |
617 |
if (exst) then |
if (exst) then |
618 |
write(msgbuf,'(a,a)') |
if ( debugLevel .GE. debLevA ) then |
619 |
|
write(msgbuf,'(a,a)') |
620 |
& ' MDSREADFIELD_GL: opening file: ',dataFName |
& ' MDSREADFIELD_GL: opening file: ',dataFName |
621 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
622 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
623 |
|
endif |
624 |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
625 |
open( dUnit, file=dataFName, status='old', |
open( dUnit, file=dataFName, status='old', |
626 |
& access='direct', recl=length_of_rec ) |
& access='direct', recl=length_of_rec ) |