CHARACTER*(MAX_LEN_FNAM) STREAMICEcalveMaskFile
& STREAMICEcalveMaskFile,
CALL WRITE_0D_C( STREAMICEcalveMaskFile,-1,INDEX_NONE,
IF ( STREAMICEcalveMaskFile .NE. ' ') THEN
CALL READ_FLD_XY_RS( STREAMICEcalveMaskFile, ' ',
STREAMICEcalveMaskFile = ' '