& streamice_vel_update, streamice_cg_tol, streamice_nonlin_tol,
_RL streamice_vel_update
CALL WRITE_0D_RL( streamice_vel_update, INDEX_NONE,
streamice_vel_update = deltaT ! seconds
& streamice_vel_update,streamice_cg_tol,streamice_nonlin_tol,
streamice_nstep_velocity = NINT (streamice_vel_update / deltaT)
do_vel = DIFFERENT_MULTIPLE( streamice_vel_update,