2D AMRCLAW
domcopy.f
Go to the documentation of this file.
1 c
2 c ----------------------------------------------------
3 c
4  subroutine domcopy(iflags2,iflags,isize,jsize)
5 
6  use amr_module
7  implicit double precision (a-h, o-z)
8 
9 
10  integer(kind=1) iflags2(0:isize+1,0:jsize+1)
11  integer(kind=1) iflags (0:isize+1,0:jsize+1)
12 
13 c
14 c ::::::::::::::::::::::::::: DOMCOPY :::::::::::::::::::::
15 c
17 c
18 c :::::::::::::::::::::::::::::::::::::::::::::::::::::::
19 
20 
21  do 10 j = 0, jsize+1
22  do 10 i = 0, isize+1
23  iflags2(i,j) = iflags(i,j)
24  10 continue
25 c
26 c take care of periodicity again
27 c
28  if (xperdom) then
29  do 35 j = 0, jsize+1
30  iflags2(0,j) = iflags2(isize,j)
31  iflags2(isize+1,j) = iflags2(1,j)
32  35 continue
33  else
34  do 55 j = 1, jsize
35  if (iflags2(1,j) .eq. 1) iflags2(0,j) = 1
36  if (iflags2(isize,j) .eq. 1) iflags2(isize+1,j) = 1
37  55 continue
38  endif
39  if (yperdom) then
40  do 45 i = 0, isize+1
41  iflags2(i,0) = iflags2(i,jsize)
42  iflags2(i,jsize+1) = iflags2(i,1)
43  45 continue
44  else if (spheredom) then
45  do 46 i = 0, isize+1
46  iflags2(i,0) = iflags2(isize+1-i,1)
47  iflags2(i,jsize+1) = iflags2(isize+1-i,jsize)
48  46 continue
49  else
50  do 65 i = 1, isize
51  if (iflags2(i,1) .eq. 1) iflags2(i,0) = 1
52  if (iflags2(i,jsize) .eq. 1) iflags2(i,jsize+1) = 1
53  65 continue
54  endif
55 
56  if (dprint) then
57  write(outunit,*)" from domcopy: domflags "
58  do 40 jj = 1, jsize
59  j = jsize + 1 - jj
60  write(outunit,100)(iflags2(i,j),i=1,isize)
61  100 format(80i1)
62  40 continue
63  endif
64 
65 
66  return
67  end
subroutine domcopy(iflags2, iflags, isize, jsize)
Definition: domcopy.f:5
logical yperdom
Definition: amr_module.f90:230
logical spheredom
Definition: amr_module.f90:230
integer, parameter outunit
Definition: amr_module.f90:290
logical dprint
Definition: amr_module.f90:297
logical xperdom
Definition: amr_module.f90:230
The module contains the definition of a "node descriptor" as well as other global variables used duri...
Definition: amr_module.f90:21