/[MITgcm]/MITgcm/pkg/mdsio/mdsio_readvector.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_readvector.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by heimbach, Fri Jul 18 21:10:50 2003 UTC revision 1.5 by heimbach, Tue Nov 30 16:11:10 2004 UTC
# Line 99  C Check first for global file with simpl Line 99  C Check first for global file with simpl
99        dataFName = fName        dataFName = fName
100        inquire( file=dataFname, exist=exst )        inquire( file=dataFname, exist=exst )
101        if (exst) then        if (exst) then
102         if ( debugLevel .GE. debLevA ) then         if ( debugLevel .GE. debLevB ) then
103          write(msgbuf,'(a,a)')          write(msgbuf,'(a,a)')
104       &   ' MDSREADVECTOR: opening global file: ',dataFName       &   ' MDSREADVECTOR: opening global file: ',dataFName
105          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
# Line 113  C If negative check for global file with Line 113  C If negative check for global file with
113         write(dataFname(1:128),'(2a)') fName(1:IL),'.data'         write(dataFname(1:128),'(2a)') fName(1:IL),'.data'
114         inquire( file=dataFname, exist=exst )         inquire( file=dataFname, exist=exst )
115         if (exst) then         if (exst) then
116          if ( debugLevel .GE. debLevA ) then          if ( debugLevel .GE. debLevB ) then
117           write(msgbuf,'(a,a)')           write(msgbuf,'(a,a)')
118       &     ' MDSREADVECTOR: opening global file: ',dataFName       &     ' MDSREADVECTOR: opening global file: ',dataFName
119           call print_message( msgbuf, standardmessageunit,           call print_message( msgbuf, standardmessageunit,
# Line 144  C If we are reading from a tiled MDS fil Line 144  C If we are reading from a tiled MDS fil
144  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"
145  C (This is a place-holder for the active/passive mechanism)  C (This is a place-holder for the active/passive mechanism)
146           if (exst) then           if (exst) then
147            if ( debugLevel .GE. debLevA ) then            if ( debugLevel .GE. debLevB ) then
148             write(msgbuf,'(a,a)')             write(msgbuf,'(a,a)')
149       &      ' MDSREADVECTOR: opening file: ',dataFName       &      ' MDSREADVECTOR: opening file: ',dataFName
150             call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22