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

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

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

revision 1.18 by jmc, Tue Aug 24 14:56:24 2010 UTC revision 1.19 by jmc, Tue Jun 7 22:30:29 2011 UTC
# Line 227  C If we are reading from a tiled MDS fil Line 227  C If we are reading from a tiled MDS fil
227  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"
228  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
229           if (exst) then           if (exst) then
230            if ( debugLevel .GE. debLevA ) then            if ( debugLevel .GE. debLevB ) then
231             write(msgbuf,'(a,a)')             write(msgbuf,'(a,a)')
232       &      ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13)       &      ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13)
233             call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
# Line 988  C If we are reading from a tiled MDS fil Line 988  C If we are reading from a tiled MDS fil
988  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"
989  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
990           if (exst) then           if (exst) then
991            if ( debugLevel .GE. debLevA ) then            if ( debugLevel .GE. debLevB ) then
992             write(msgbuf,'(a,a)')             write(msgbuf,'(a,a)')
993       &      ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13)       &      ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13)
994             call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22