Use variables from COORDINATES in module SCHEME.
This commit is contained in:
parent
20b300ab74
commit
24c261afb5
@ -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
|
||||||
|
@ -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 */
|
||||||
|
Loading…
x
Reference in New Issue
Block a user