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

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

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

revision 1.7 by jmc, Tue Jun 9 22:52:57 2009 UTC revision 1.8 by jmc, Tue Sep 1 19:28:24 2009 UTC
# Line 49  C     Common block Line 49  C     Common block
49    
50  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
51        LOGICAL useCurrentDir        LOGICAL useCurrentDir
52          _RS dummyRS(1)
53        CHARACTER*(2) fType        CHARACTER*(2) fType
54        CHARACTER*(MAX_LEN_FNAM) fullName        CHARACTER*(MAX_LEN_FNAM) fullName
55        INTEGER s1Lo,s1Hi,s2Lo,s2Hi        INTEGER s1Lo,s1Hi,s2Lo,s2Hi
# Line 79  C singleCpuIo option. This is a placehol Line 80  C singleCpuIo option. This is a placehol
80  C functionality is superseded by pkg/diagnostics.  C functionality is superseded by pkg/diagnostics.
81           myThid = MAX(myThArg,1)           myThid = MAX(myThArg,1)
82           CALL MDS_WRITE_FIELD(           CALL MDS_WRITE_FIELD(
83       I        fullName, writeBinaryPrec, globalFile, useCurrentDir,       I                        fullName, writeBinaryPrec,
84       I        fType, nNr, 1, nNr, field, iRec, myIter, myThid )       I                        globalFile, useCurrentDir,
85         I                        fType, nNr, 1, nNr, field, dummyRS,
86         I                        iRec, myIter, myThid )
87        ELSE        ELSE
88           CALL MDS_WRITELOCAL(           CALL MDS_WRITELOCAL(
89       I        fullName, writeBinaryPrec, globalFile,       I                        fullName, writeBinaryPrec, globalFile,
90       I        fType, nNr, field, bi, bj, iRec, myIter, myThArg )       I                        fType, nNr, field, dummyRS,
91         I                        bi, bj, iRec, myIter, myThArg )
92        ENDIF        ENDIF
93  #endif  #endif
94    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22