/[MITgcm]/MITgcm/model/src/read_write_rec.F
ViewVC logotype

Diff of /MITgcm/model/src/read_write_rec.F

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

revision 1.5 by cnh, Wed Sep 26 18:09:16 2001 UTC revision 1.6 by dimitri, Sat Sep 27 19:24:28 2003 UTC
# Line 493  C     ENDIF Line 493  C     ENDIF
493  C  C
494        fType='RS'        fType='RS'
495        nNz=1        nNz=1
496        globalFile=.FALSE.  C     globalFile=.FALSE.
497        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,
498       &     fType, nNz, field, irec, myIter, myThid )       &     fType, nNz, field, irec, myIter, myThid )
499  C  C
# Line 548  C     ENDIF Line 548  C     ENDIF
548  C  C
549        fType='RL'        fType='RL'
550        nNz=1        nNz=1
551        globalFile=.FALSE.  C     globalFile=.FALSE.
552        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,
553       &     fType, nNz, field, irec, myIter, myThid )       &     fType, nNz, field, irec, myIter, myThid )
554  C  C
# Line 603  C     ENDIF Line 603  C     ENDIF
603  C  C
604        fType='RS'        fType='RS'
605        nNz=Nr        nNz=Nr
606        globalFile=.FALSE.  C     globalFile=.FALSE.
607        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,
608       &     fType, nNz, field, irec, myIter, myThid )       &     fType, nNz, field, irec, myIter, myThid )
609  C  C
# Line 658  C     ENDIF Line 658  C     ENDIF
658  C  C
659        fType='RL'        fType='RL'
660        nNz=Nr        nNz=Nr
661        globalFile=.FALSE.  C     globalFile=.FALSE.
662        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,
663       &     fType, nNz, field, irec, myIter, myThid )       &     fType, nNz, field, irec, myIter, myThid )
664  C  C
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22