& streamice_forcing_period
_RL streamice_forcing_period
if ( streamice_forcing_period .eq. 0.D0 ) THEN
I externForcingCycle, streamice_forcing_period,
I myTime+0.5*streamice_forcing_period,
streamice_forcing_period = 0
& STREAMICE_ADV_SCHEME, streamice_forcing_period,