/[MITgcm]/MITgcm/eesupp/src/mdsio.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/mdsio.F

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

revision 1.4 by adcroft, Wed Jul 28 17:39:17 1999 UTC revision 1.6 by adcroft, Mon Mar 27 19:01:14 2000 UTC
# Line 494  C If global file was opened then close i Line 494  C If global file was opened then close i
494    
495  C Create meta-file for the global-file  C Create meta-file for the global-file
496        if (globalFile) then        if (globalFile) then
497  C We can't do this operation using threads (yet) because of the  C We can not do this operation using threads (yet) because of the
498  C "barrier" at the next step. The barrier could be removed but  C "barrier" at the next step. The barrier could be removed but
499  C at the cost of "safe" distributed I/O.  C at the cost of "safe" distributed I/O.
500         if (nThreads.NE.1) then         if (nThreads.NE.1) then
# Line 734  C Global variables / common blocks Line 734  C Global variables / common blocks
734  #include "PARAMS.h"  #include "PARAMS.h"
735    
736  C Functions  C Functions
737        integer ILNBLNK  
738  C Local  C Local
739        integer i,ii,mUnit        integer i,ii,mUnit
740        logical ex        logical ex
# Line 1069  C (This is a place-holder for the active Line 1069  C (This is a place-holder for the active
1069              irec = irecord              irec = irecord
1070            endif            endif
1071            if (filePrec .eq. precFloat32) then            if (filePrec .eq. precFloat32) then
1072             call MDS_READ_RS_VEC( dUnit, irec, narr, arr )             call MDS_READ_RS_VEC( dUnit, irec, narr, arr, myThid )
1073            elseif (filePrec .eq. precFloat64) then            elseif (filePrec .eq. precFloat64) then
1074             call MDS_READ_RL_VEC( dUnit, irec, narr, arr )             call MDS_READ_RL_VEC( dUnit, irec, narr, arr, myThid )
1075            else            else
1076              write(msgbuf,'(a)')              write(msgbuf,'(a)')
1077       &        ' MDSREADVECTOR: illegal value for filePrec'       &        ' MDSREADVECTOR: illegal value for filePrec'
# Line 1236  C If we are writing to a tiled MDS file Line 1236  C If we are writing to a tiled MDS file
1236              irec = irecord              irec = irecord
1237            endif            endif
1238            if (filePrec .eq. precFloat32) then            if (filePrec .eq. precFloat32) then
1239             call MDS_WRITE_RS_VEC( dUnit, irec, narr, arr )             call MDS_WRITE_RS_VEC( dUnit, irec, narr, arr, myThid )
1240            elseif (filePrec .eq. precFloat64) then            elseif (filePrec .eq. precFloat64) then
1241             call MDS_WRITE_RL_VEC( dUnit, irec, narr, arr )             call MDS_WRITE_RL_VEC( dUnit, irec, narr, arr, myThid )
1242            else            else
1243             write(msgbuf,'(a)')             write(msgbuf,'(a)')
1244       &       ' MDSWRITEVECTOR: illegal value for filePrec'       &       ' MDSWRITEVECTOR: illegal value for filePrec'
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22