_RL SEAICEbasalDragK1, SEAICEbasalDragK2
& SEAICEbasalDragK1, SEAICEbasalDragK2,
IF ( SEAICEbasalDragK1 .GT. 0. _d 0 )
& recip_k1 = 1. _d 0/SEAICEbasalDragK1
& SEAICE_cBasalStar, SEAICEbasalDragU0, SEAICEbasalDragK1,
SEAICEbasalDragK1 = 8. _d 0
CALL WRITE_0D_RL( SEAICEbasalDragK1 ,INDEX_NONE,