/[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.1 by adcroft, Fri Aug 17 18:34:42 2001 UTC revision 1.2 by jmc, Mon Aug 22 23:00:58 2005 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "RW_OPTIONS.h"
5    
6        SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid)        SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid)
7  C WRITE_FLD_XY_RS is a "front-end" interface to the low-level I/O  C WRITE_FLD_XY_RS is a "front-end" interface to the low-level I/O
# Line 44  C Line 44  C
44        fType='RS'        fType='RS'
45        nNz=1        nNz=1
46        irec=1        irec=1
47    #ifdef ALLOW_MDSIO
48        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,
49       &     fType, nNz, field, irec, myIter, myThid )       &     fType, nNz, field, irec, myIter, myThid )
50  C  #endif
51        RETURN        RETURN
52        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22