2D AMRCLAW
copysol.f
Go to the documentation of this file.
1 c
2 c ----------------------------------------------------------
3 c
4  subroutine copysol(valbig,val,nvar,mitot,mjtot,nghost,
5  1 midub,mjdub,ngbig)
6 c
7  implicit double precision (a-h,o-z)
8 
9  dimension valbig(nvar,midub,mjdub), val(nvar,mitot,mjtot)
10 c
11 c copy solution into grid with different number ghsot cells
12 c
13  do 10 j = nghost+1, mjtot-nghost
14  do 10 i = nghost+1, mitot-nghost
15  do 10 ivar = 1, nvar
16  valbig(ivar,i-nghost+ngbig,j-nghost+ngbig) = val(ivar,i,j)
17  10 continue
18 c
19  return
20  end
subroutine copysol(valbig, val, nvar, mitot, mjtot, nghost, midub, mjdub, ngbig)
Definition: copysol.f:6