1 c---------------------------------------------------------------------
2 c---------------------------------------------------------------------
4 subroutine clear_timestep
6 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
12 integer cio, kio, jio, ix
15 do kio=0, cell_size(3,cio)-1
16 do jio=0, cell_size(2,cio)-1
17 do ix=0,cell_size(1,cio)-1
18 u(1,ix, jio,kio,cio) = 0
19 u(2,ix, jio,kio,cio) = 0
20 u(3,ix, jio,kio,cio) = 0
21 u(4,ix, jio,kio,cio) = 0
22 u(5,ix, jio,kio,cio) = 0