CoupleTime=120;
dt=5;
Nsteps=CoupleTime/dt;

time=0.0;
for iic=1:Nsteps*5,
  time=time+dt;
  if mod(iic,Nsteps) == 0,
    s=datestr(time/86400-12,13);
    disp([' Coupled, iic = ',num2str(iic,'%4.4i'), ', time = ',s]);
  end,
end,
