2D AMRCLAW
outtre.f
Go to the documentation of this file.
1 c
2 c --------------------------------------------------------------
3 c
10  subroutine outtre(mlev,outgrd,nvar,naux)
11 c
12  use amr_module
13  implicit double precision (a-h,o-z)
14  logical outgrd
15 
16 c
17 c ::::::::::::::::::::::: OUTTRE :::::::::::::::::::::::::::::::::::
18 c
19 c outtre - output subtree
20 c input parameters:
21 c mlev - ptr to subtree to output i.e., start at level(mlev)
22 c outgrd - if true, output the values on the grid
23 c tree is output from 'level' to finest level.
24 c
25 c :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
26 c
27  write (outunit,1)
28 1 format(1x,14hthe subtree is)
29 c
30  level = node(nestlevel, mlev)
31 10 if (level .gt. lfine) go to 99
32  mptr = lstart(level)
33  20 if (mptr .eq. 0) go to 30
34  call outmsh(mptr,outgrd,nvar,naux)
35  mptr = node(levelptr, mptr)
36  go to 20
37  30 continue
38  write(outunit,2) numgrids(level), level,iregst(level),
39  1 jregst(level),iregend(level),jregend(level)
40  2 format(/,i5," grids at level ",i5," go from ",2i9," to",2i9,/)
41  level = level + 1
42  go to 10
43 c
44  99 return
45  end
46 c
47 c --------------------------------------------------------------
48 c
54  subroutine outlev(mlev,outgrd,nvar,naux)
55 c
56  use amr_module
57  implicit double precision (a-h,o-z)
58  logical outgrd
59 
60 c
61 c ::::::::::::::::::::::: OUTTRE :::::::::::::::::::::::::::::::::::
62 c
63 c outtre - output subtree
64 c input parameters:
65 c mlev - ptr to subtree to output i.e., start at level(mlev)
66 c outgrd - if true, output the values on the grid
67 c tree is output from 'level' to finest level.
68 c
69 c :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
70 c
71  write (outunit,1)
72 1 format(1x,"the partially built new subtree is:")
73 c
74  mptr = mlev
75  20 if (mptr .eq. 0) go to 30
76  call outmsh(mptr,outgrd,nvar,naux)
77  mptr = node(levelptr, mptr)
78  go to 20
79  30 continue
80 c
81  99 return
82  end
integer, dimension(nsize, maxgr) node
Definition: amr_module.f90:198
integer, dimension(maxlv) iregst
Definition: amr_module.f90:198
integer, parameter nestlevel
AMR level of the grid.
Definition: amr_module.f90:44
integer, dimension(maxlv) numgrids
Definition: amr_module.f90:198
integer, dimension(maxlv) jregst
Definition: amr_module.f90:198
integer, dimension(maxlv) lstart
Definition: amr_module.f90:198
subroutine outlev(mlev, outgrd, nvar, naux)
Output all grids on the same level as grid mlev.
Definition: outtre.f:55
integer, parameter outunit
Definition: amr_module.f90:290
integer, dimension(maxlv) jregend
Definition: amr_module.f90:198
subroutine outtre(mlev, outgrd, nvar, naux)
Output a subtree of the grids.
Definition: outtre.f:11
integer, parameter levelptr
node number (index) of next grid on the same level
Definition: amr_module.f90:35
The module contains the definition of a "node descriptor" as well as other global variables used duri...
Definition: amr_module.f90:21
integer, dimension(maxlv) iregend
Definition: amr_module.f90:198
subroutine outmsh(mptr, outgrd, nvar, naux)
Output the grid descriptor of grid mptr and optionally the values on the grid (for a single grid - se...
Definition: outmsh.f:12
integer lfine
Definition: amr_module.f90:198