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

Diff of /MITgcm/pkg/rw/read_fld_xyz_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 READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid)        SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid)
7  C READ_FLD_XYZ_RS is a "front-end" interface to the low-level I/O  C READ_FLD_XYZ_RS is a "front-end" interface to the low-level I/O
# Line 41  C Line 41  C
41        fType='RS'        fType='RS'
42        nNz=Nr        nNz=Nr
43        irec=1        irec=1
44    #ifdef ALLOW_MDSIO
45        CALL MDSREADFIELD( fullName, readBinaryPrec, fType,        CALL MDSREADFIELD( fullName, readBinaryPrec, fType,
46       &     nNz, field, irec, myThid )       &     nNz, field, irec, myThid )
47  C  #endif
48        RETURN        RETURN
49        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22