CHARACTER*(MAX_LEN_FNAM) SHELFICEtopoFile
& SHELFICEtopoFile,
CALL WRITE_0D_C( SHELFICEtopoFile, -1, INDEX_NONE,
IF ( SHELFICEtopoFile .NE. ' ' ) THEN
CALL READ_REC_XY_RS( SHELFICEtopoFile, R_shelfIce,
SHELFICEtopoFile = ' '