CHARACTER*(MAX_LEN_FNAM) STREAMICEuShearStressFile
& STREAMICEuShearStressFile,
IF ( STREAMICEuShearStressFile .NE. ' ') THEN
CALL READ_FLD_XY_RL ( STREAMICEuShearStressFile, ' ',
STREAMICEuShearStressFile = ''