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

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

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

revision 1.2 by jmc, Wed Oct 24 22:07:47 2007 UTC revision 1.3 by jmc, Sun Apr 6 00:01:55 2008 UTC
# Line 127  C     this S/R, using, e.g., common bloc Line 127  C     this S/R, using, e.g., common bloc
127        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
128    
129  C     Assign special directory  C     Assign special directory
       useCurrentDir = .FALSE.  
130        iL = ILNBLNK(fileName)        iL = ILNBLNK(fileName)
131        pL = ILNBLNK( mdsioLocalDir )        pL = ILNBLNK( mdsioLocalDir )
132        IF ( useCurrentDir .OR. pL.EQ.0 ) THEN        IF ( useCurrentDir .OR. pL.EQ.0 ) THEN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22