_RL SEAICE_cBasalStar, SEAICEbasalDragU0
& SEAICE_cBasalStar, SEAICEbasalDragU0,
u0sq = SEAICEbasalDragU0*SEAICEbasalDragU0
& SEAICE_cBasalStar, SEAICEbasalDragU0, SEAICEbasalDragK1,
SEAICEbasalDragU0 = 5. _d -05
CALL WRITE_0D_RL( SEAICEbasalDragU0 ,INDEX_NONE,