_RL SEAICE_snowThick, SEAICE_shortwave
& SEAICE_snowThick, SEAICE_shortwave,
& SEAICE_snowThick, SEAICE_shortwave, SEAICE_freeze, OCEAN_drag,
SEAICE_shortwave = 0.30 _d 0
XIO=SEAICE_shortwave
CALL WRITE_0D_RL( SEAICE_shortwave ,INDEX_NONE,