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