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