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

Diff of /MITgcm/pkg/rw/write_fld_xy_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 23  C Common Line 23  C Common
23        LOGICAL globalFile        LOGICAL globalFile
24  C Local  C Local
25        LOGICAL useCurrentDir        LOGICAL useCurrentDir
26          _RL dummyRL(1)
27        CHARACTER*(2) fType        CHARACTER*(2) fType
28        INTEGER nNz        INTEGER nNz
29        INTEGER iRec        INTEGER iRec
# Line 50  C     e.g. U.0000000100 Line 51  C     e.g. U.0000000100
51        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
52       I                      fullName, writeBinaryPrec,       I                      fullName, writeBinaryPrec,
53       I                      globalFile, useCurrentDir,       I                      globalFile, useCurrentDir,
54       I                      fType, nNz, 1, nNz, field,       I                      fType, nNz, 1, nNz, dummyRL, field,
55       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
56  #endif  #endif
57        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22