_RL SEAICE_wetAlbTemp, SEAICE_waterAlbedo
& SEAICE_wetAlbTemp, SEAICE_waterAlbedo,
& SEAICEbasalDragK2, SEAICE_wetAlbTemp, SEAICE_waterAlbedo,
SEAICE_wetAlbTemp = -1. _d -3
SurfMeltTemp = TMELT + SEAICE_wetAlbTemp
CALL WRITE_0D_RL( SEAICE_wetAlbTemp ,INDEX_NONE,