CADJ STORE StoreSEAICE    = tapelev4, key = ilev_4

#ifdef ALLOW_COST_ICE
CADJ STORE objf_ice = tapelev4, key = ilev_4
#endif