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 parameters.o : parameters.F90 mpitools.o
problem.o : problem.F90 blocks.o constants.o coordinates.o mpitools.o \ problem.o : problem.F90 blocks.o constants.o coordinates.o mpitools.o \
random.o scheme.o variables.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 random.o : random.F90 mpitools.o parameters.o
timers.o : timers.F90 timers.o : timers.F90
variables.o : variables.F90 variables.o : variables.F90

6
src/scheme.F90
View File

@ -45,7 +45,7 @@ module scheme
! !
subroutine update_flux(idir, dh, u, f) 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 : nqt, nfl
use variables , only : idn, imx, imy, imz use variables , only : idn, imx, imy, imz
#ifdef ADI #ifdef ADI
@ -325,7 +325,7 @@ module scheme
! !
subroutine update(u, du, dxi, dyi, dzi) 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 : nvr, nqt, nfl
use variables , only : idn, imx, imy, imz use variables , only : idn, imx, imy, imz
#ifdef ADI #ifdef ADI
@ -2556,7 +2556,7 @@ module scheme
! !
function maxspeed(u) 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 #ifdef ADI
use config , only : gamma use config , only : gamma
#endif /* ADI */ #endif /* ADI */