/[MITgcm]/MITgcm/pkg/rw/read_mflds.F
ViewVC logotype

Diff of /MITgcm/pkg/rw/read_mflds.F

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

revision 1.4 by jmc, Sun Nov 25 21:34:01 2007 UTC revision 1.5 by jmc, Tue Sep 1 19:28:24 2009 UTC
# Line 278  C     !FUNCTIONS Line 278  C     !FUNCTIONS
278  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
279        INTEGER j, iL, ioUnit        INTEGER j, iL, ioUnit
280        LOGICAL useCurrentDir        LOGICAL useCurrentDir
281          _RS     dummyRS(1)
282        CHARACTER*(2) fType        CHARACTER*(2) fType
283        CHARACTER*(MAX_LEN_FNAM) fName        CHARACTER*(MAX_LEN_FNAM) fName
284        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 344  C--   read in array "field" Line 345  C--   read in array "field"
345          CALL MDS_READ_FIELD(          CALL MDS_READ_FIELD(
346       I                       fName, fPrec, useCurrentDir,       I                       fName, fPrec, useCurrentDir,
347       I                       fType, nNz, 1, nNz,       I                       fType, nNz, 1, nNz,
348       O                       field,       O                       field, dummyRS,
349       I                       nj, myThid )       I                       nj, myThid )
350    
351  #endif  #endif
# Line 404  C     !FUNCTIONS Line 405  C     !FUNCTIONS
405  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
406        INTEGER j, iL, ioUnit        INTEGER j, iL, ioUnit
407        LOGICAL useCurrentDir        LOGICAL useCurrentDir
408          _RS     dummyRS(1)
409        CHARACTER*(2) fType        CHARACTER*(2) fType
410        CHARACTER*(MAX_LEN_FNAM) fName        CHARACTER*(MAX_LEN_FNAM) fName
411        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 470  C--   read in array "field" Line 472  C--   read in array "field"
472          CALL MDS_READ_FIELD(          CALL MDS_READ_FIELD(
473       I                       fName, fPrec, useCurrentDir,       I                       fName, fPrec, useCurrentDir,
474       I                       fType, kSiz, kLo, kHi,       I                       fType, kSiz, kLo, kHi,
475       O                       field,       O                       field, dummyRS,
476       I                       nj, myThid )       I                       nj, myThid )
477    
478  #endif  #endif
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22