2D AMRCLAW
Functions/Subroutines
outvar.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine outvar (rect, mitot, mjtot, nvar, mptr, ng)
 

Function/Subroutine Documentation

◆ outvar()

subroutine outvar ( dimension(nvar,mitot,mjtot)  rect,
  mitot,
  mjtot,
  nvar,
  mptr,
  ng 
)

dump soln for graphics

Definition at line 5 of file outvar.f.

References amr_module::pltunit1.

5 c
6  use amr_module
7  implicit double precision (a-h,o-z)
8 
9 
10  dimension rect(nvar,mitot,mjtot)
11 
12 c ::::::::::::::: OUTVAR ::::::::::::::::::::::::::::::::::
13 c
15 c
16 c only output max - 1 rows and cols, since with cell centered
17 c variables there is one extra cell outside the grid.
18 c
19 c :::::::::::::::::::::::::::::::::::::::::::::::::::::::::
20 c
21  write(pltunit1,100) mptr
22  100 format('*SOLN ',i10,' is the grid - all variables')
23 c
24  do 20 ivar = 1, nvar
25  write(pltunit1,101) ((rect(ivar,i,j),i=ng+1,mitot-ng),
26  . j=ng+1,mjtot-ng)
27  101 format(5e13.6)
28  20 continue
29 c
30  return
The module contains the definition of a "node descriptor" as well as other global variables used duri...
Definition: amr_module.f90:21
integer, parameter pltunit1
Definition: amr_module.f90:291