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

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

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

revision 1.1 by adcroft, Tue Mar 6 15:28:54 2001 UTC revision 1.2 by heimbach, Tue Jul 8 15:00:27 2003 UTC
# Line 61  C Functions Line 61  C Functions
61        integer ILNBLNK        integer ILNBLNK
62        integer MDS_RECLEN        integer MDS_RECLEN
63  C Local variables  C Local variables
64        character*(80) dataFName,metaFName        character*(80) dataFName,metaFName,pfName
65        integer iG,jG,irec,dUnit,IL        integer iG,jG,irec,dUnit,IL,pIL
66        logical fileIsOpen        logical fileIsOpen
67        integer dimList(3,3),ndims        integer dimList(3,3),ndims
68        integer length_of_rec        integer length_of_rec
# Line 86  C Record number must be >= 1 Line 86  C Record number must be >= 1
86    
87  C Assume nothing  C Assume nothing
88        fileIsOpen = .FALSE.        fileIsOpen = .FALSE.
89        IL=ILNBLNK( fName )        IL  = ILNBLNK( fName )
90          pIL = ILNBLNK( mdsioLocalDir )
91    
92    C Assign special directory
93          if ( mdsioLocalDir .NE. ' ' ) then
94           write(pFname(1:80),'(2a)') mdsioLocalDir(1:pIL), fName(1:IL)
95          else
96           pFname= fName
97          endif
98          pIL=ILNBLNK( pfName )
99    
100  C Assign a free unit number as the I/O channel for this routine  C Assign a free unit number as the I/O channel for this routine
101        call MDSFINDUNIT( dUnit, mythid )        call MDSFINDUNIT( dUnit, mythid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22