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

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

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

revision 1.4 by jmc, Tue Nov 13 19:41:05 2007 UTC revision 1.5 by jmc, Tue Sep 1 19:28:24 2009 UTC
# Line 20  C Functions Line 20  C Functions
20        INTEGER ILNBLNK,IFNBLNK        INTEGER ILNBLNK,IFNBLNK
21  C Local  C Local
22        LOGICAL useCurrentDir        LOGICAL useCurrentDir
23          _RL dummyRL(1)
24        CHARACTER*(2) fType        CHARACTER*(2) fType
25        INTEGER nNz        INTEGER nNz
26        INTEGER iRec        INTEGER iRec
# Line 47  C     e.g. U.0000000100 Line 48  C     e.g. U.0000000100
48        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
49       I                     fullName, readBinaryPrec, useCurrentDir,       I                     fullName, readBinaryPrec, useCurrentDir,
50       I                     fType, nNz, 1, nNz,       I                     fType, nNz, 1, nNz,
51       O                     field,       O                     dummyRL, field,
52       I                     iRec, myThid )       I                     iRec, myThid )
53  #endif  #endif
54        RETURN        RETURN

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.22