CHARACTER*(MAX_LEN_FNAM) SHELFICEtopoFile
& SHELFICEtopoFile
& SHELFICEtopoFile, SHELFICEloadAnomalyFile
SHELFICEtopoFile = ' '
IF ( SHELFICEtopoFile .NE. ' ' ) THEN
CALL READ_REC_XY_RS( SHELFICEtopoFile, R_shelfIce,