diff --git a/src/makefile b/src/makefile index 3d04e05..a2cfb76 100644 --- a/src/makefile +++ b/src/makefile @@ -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 diff --git a/src/scheme.F90 b/src/scheme.F90 index 3306f90..db8953f 100644 --- a/src/scheme.F90 +++ b/src/scheme.F90 @@ -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 */