CALL WRITE_0D_R8( SEAICE_waterAlbedo,INDEX_NONE,
ALB(I,J)=SEAICE_waterAlbedo
SEAICE_waterAlbedo = 0.1 _d +00
& SEAICE_waterAlbedo, SEAICE_strength,
_RL SEAICE_waterAlbedo, SEAICE_strength