_RL SEAICE_snowThick, SEAICE_shortwave
& SEAICE_snowThick, SEAICE_shortwave,
& SEAICE_snowThick, SEAICE_shortwave, SEAICE_freeze, OCEAN_drag,
SEAICE_snowThick = 0.15 _d 0
HCUT = SEAICE_snowThick
CALL WRITE_0D_RL( SEAICE_snowThick ,INDEX_NONE,