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_XY_RL( pref,suff,field,myIter,myThid) |
SUBROUTINE READ_FLD_XY_RL( pref,suff,field,myIter,myThid) |
7 |
C READ_FLD_XY_RL is a "front-end" interface to the low-level I/O |
C READ_FLD_XY_RL is a "front-end" interface to the low-level I/O |
41 |
fType='RL' |
fType='RL' |
42 |
nNz=1 |
nNz=1 |
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 |