btio_common.f 914 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
c---------------------------------------------------------------------
c---------------------------------------------------------------------

      subroutine clear_timestep

c---------------------------------------------------------------------
c---------------------------------------------------------------------

      include 'header.h'
      include 'mpinpb.h'

      integer cio, kio, jio, ix

      do cio=1,ncells
          do kio=0, cell_size(3,cio)-1
              do jio=0, cell_size(2,cio)-1
                  do ix=0,cell_size(1,cio)-1
                            u(1,ix, jio,kio,cio) = 0
                            u(2,ix, jio,kio,cio) = 0
                            u(3,ix, jio,kio,cio) = 0
                            u(4,ix, jio,kio,cio) = 0
                            u(5,ix, jio,kio,cio) = 0
                  enddo
              enddo
          enddo
      enddo

      return
      end