Remove dependency of module SCHEME on CONFIG.

This commit is contained in:
Grzegorz Kowal 2012-07-27 16:30:55 -03:00
parent 28ec2b9144
commit dbd38c9399
2 changed files with 17 additions and 13 deletions

View File

@ -229,8 +229,7 @@ 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 coordinates.o interpolation.o \ scheme.o : scheme.F90 blocks.o coordinates.o interpolation.o variables.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

View File

@ -1193,7 +1193,7 @@ module scheme
! !
subroutine hlld(n, h, u, f) subroutine hlld(n, h, u, f)
use config , only : gamma use equations , only : gamma
use interpolation, only : reconstruct use interpolation, only : reconstruct
use variables , only : nvr, nfl, nqt use variables , only : nvr, nfl, nqt
use variables , only : idn, imx, imy, imz, ien, ivx, ivy, ivz, ipr use variables , only : idn, imx, imy, imz, ien, ivx, ivy, ivz, ipr
@ -1545,7 +1545,7 @@ module scheme
! !
subroutine roe(n, h, u, f) subroutine roe(n, h, u, f)
use config , only : gamma use equations , only : gamma
use interpolation, only : reconstruct use interpolation, only : reconstruct
use variables , only : nvr, nfl, nqt use variables , only : nvr, nfl, nqt
use variables , only : idn, ivx, ivy, ivz use variables , only : idn, ivx, ivy, ivz
@ -1764,7 +1764,7 @@ module scheme
#ifdef ADI #ifdef ADI
subroutine eigensystem(q, c, r, l) subroutine eigensystem(q, c, r, l)
use config , only : gamma use equations, only : gamma
use variables, only : nqt use variables, only : nqt
use variables, only : idn, ivx, ivy, ivz use variables, only : idn, ivx, ivy, ivz
use variables, only : ien use variables, only : ien
@ -1865,7 +1865,7 @@ module scheme
#ifdef ISO #ifdef ISO
subroutine eigensystem(q, c, r, l) subroutine eigensystem(q, c, r, l)
use config , only : csnd use equations, only : csnd
use variables, only : nqt use variables, only : nqt
use variables, only : idn, ivx, ivy, ivz use variables, only : idn, ivx, ivy, ivz
@ -1934,7 +1934,7 @@ module scheme
#ifdef ADI #ifdef ADI
subroutine eigensystem(q, c, r, l, x, y) subroutine eigensystem(q, c, r, l, x, y)
use config , only : gamma use equations, only : gamma
use variables, only : nqt use variables, only : nqt
use variables, only : idn, ivx, ivy, ivz, ibx, iby, ibz, ien use variables, only : idn, ivx, ivy, ivz, ibx, iby, ibz, ien
@ -2002,7 +2002,7 @@ module scheme
#ifdef ISO #ifdef ISO
subroutine eigensystem(q, c, r, l, x, y) subroutine eigensystem(q, c, r, l, x, y)
use config , only : csnd use equations, only : csnd
use variables, only : nqt use variables, only : nqt
use variables, only : idn, ivx, ivy, ivz, ibx, iby, ibz use variables, only : idn, ivx, ivy, ivz, ibx, iby, ibz
@ -2056,7 +2056,12 @@ module scheme
! !
subroutine fluxspeed(n, q, u, f, c) subroutine fluxspeed(n, q, u, f, c)
use config , only : gamma, csnd, csnd2 #ifdef ADI
use equations, only : gamma
#endif /* ADI */
#ifdef ISO
use equations, only : csnd, csnd2
#endif /* ISO */
use variables, only : nvr, nqt use variables, only : nvr, nqt
use variables, only : idn, imx, imy, imz, ivx, ivy, ivz use variables, only : idn, imx, imy, imz, ivx, ivy, ivz
#ifdef ADI #ifdef ADI
@ -2156,7 +2161,7 @@ module scheme
! !
subroutine cons2prim(n, u, q) subroutine cons2prim(n, u, q)
use config , only : gammam1 use equations, only : gammam1
use variables, only : nvr use variables, only : nvr
use variables, only : idn, imx, imy, imz, ivx, ivy, ivz use variables, only : idn, imx, imy, imz, ivx, ivy, ivz
#ifdef ADI #ifdef ADI
@ -2222,7 +2227,7 @@ module scheme
! !
subroutine prim2cons(n, q, u) subroutine prim2cons(n, q, u)
use config , only : gammam1i use equations, only : gammam1i
use variables, only : nvr use variables, only : nvr
use variables, only : idn, imx, imy, imz, ivx, ivy, ivz use variables, only : idn, imx, imy, imz, ivx, ivy, ivz
#ifdef ADI #ifdef ADI
@ -2288,10 +2293,10 @@ module scheme
use coordinates, 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 equations , only : gamma
#endif /* ADI */ #endif /* ADI */
#ifdef ISO #ifdef ISO
use config , only : csnd, csnd2 use equations , only : csnd, csnd2
#endif /* ISO */ #endif /* ISO */
use variables , only : nvr, nqt use variables , only : nvr, nqt
use variables , only : idn, ivx, ivz use variables , only : idn, ivx, ivz