_RL SEAICE_cBasalStar, SEAICEbasalDragU0
& SEAICE_cBasalStar, SEAICEbasalDragU0,
& * EXP( - SEAICE_cBasalStar
& SEAICE_cBasalStar, SEAICEbasalDragU0, SEAICEbasalDragK1,
SEAICE_cBasalStar = UNSET_RL
IF (SEAICE_cBasalStar .EQ. UNSET_RL)
& SEAICE_cBasalStar = SEAICE_cStar
CALL WRITE_0D_RL( SEAICE_cBasalStar ,INDEX_NONE,