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

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

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

revision 1.2 by jmc, Tue Nov 13 19:41:05 2007 UTC revision 1.3 by jmc, Tue Sep 1 19:28:24 2009 UTC
# Line 25  C Common Line 25  C Common
25        LOGICAL globalFile        LOGICAL globalFile
26  C Local  C Local
27        LOGICAL useCurrentDir        LOGICAL useCurrentDir
28          _RS dummyRS(1)
29        CHARACTER*(2) fType        CHARACTER*(2) fType
30        INTEGER iRec        INTEGER iRec
31        INTEGER s1Lo,s1Hi,s2Lo,s2Hi        INTEGER s1Lo,s1Hi,s2Lo,s2Hi
# Line 52  C     e.g. U.0000000100 Line 53  C     e.g. U.0000000100
53        CALL MDS_WRITE_FIELD(        CALL MDS_WRITE_FIELD(
54       I                      fullName, writeBinaryPrec,       I                      fullName, writeBinaryPrec,
55       I                      globalFile, useCurrentDir,       I                      globalFile, useCurrentDir,
56       I                      fType, nNz, 1, nNz, field,       I                      fType, nNz, 1, nNz, field, dummyRS,
57       I                      iRec, myIter, myThid )       I                      iRec, myIter, myThid )
58  #endif  #endif
59        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22