_RL SEAICE_wetAlbTemp, SEAICE_waterAlbedo
& SEAICE_wetAlbTemp, SEAICE_waterAlbedo,
SWHeatFlux(I,J) = (SEAICE_waterAlbedo - 1. _d 0)
IF ( SEAICE_waterAlbedo .NE. UNSET_RL ) THEN
& SEAICEbasalDragK2, SEAICE_wetAlbTemp, SEAICE_waterAlbedo,
SEAICE_waterAlbedo = UNSET_RL
SEAICE_waterAlbedo = 0.1 _d +00
CALL WRITE_0D_RL( SEAICE_waterAlbedo,INDEX_NONE,