gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use variables from COORDINATES in module SCHEME.

Browse Source
This commit is contained in:
Grzegorz Kowal 2012-07-27 16:06:27 -03:00
parent 20b300ab74
commit 24c261afb5
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/makefile
View File

@ -227,7 +227,8 @@ mpitools.o : mpitools.F90 timers.o
parameters.o : parameters.F90 mpitools.o
problem.o : problem.F90 blocks.o constants.o coordinates.o mpitools.o \
random.o scheme.o variables.o
scheme.o : scheme.F90 blocks.o config.o interpolation.o variables.o
scheme.o : scheme.F90 blocks.o config.o coordinates.o interpolation.o \
variables.o
random.o : random.F90 mpitools.o parameters.o
timers.o : timers.F90
variables.o : variables.F90

6
src/scheme.F90
View File

@ -45,7 +45,7 @@ module scheme
!
subroutine update_flux(idir, dh, u, f)
use config , only : im, jm, km
use coordinates, only : im, jm, km
use variables , only : nqt, nfl
use variables , only : idn, imx, imy, imz
#ifdef ADI
@ -325,7 +325,7 @@ module scheme
!
subroutine update(u, du, dxi, dyi, dzi)
use config , only : im, jm, km
use coordinates, only : im, jm, km
use variables , only : nvr, nqt, nfl
use variables , only : idn, imx, imy, imz
#ifdef ADI
@ -2556,7 +2556,7 @@ module scheme
!
function maxspeed(u)
use config , only : im, jm, km, ib, ie, jb, je, kb, ke
use coordinates, only : im, jm, km, ib, ie, jb, je, kb, ke
#ifdef ADI
use config , only : gamma
#endif /* ADI */