INTEGER precFloat32
PARAMETER ( precFloat32 = 32 )
CALL MDSWRITEFIELD_NEW(fn,precFloat32,glf,.FALSE.,
IF ( ( (writeBinaryPrec .EQ. precFloat32)
if (filePrec .eq. precFloat32) then
prec = precFloat32
IF (readBinaryPrec.EQ.precFloat32) THEN
if (filePrec .EQ. precFloat32) then
CALL MDSREADFIELD(eddyTauxFile,precFloat32,
CALL MDSREADFIELD(eddyTauyFile,precFloat32,
writeBinaryPrec = precFloat32
readBinaryPrec = precFloat32
IF (filePrec .EQ. precFloat32) THEN