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

Remove dependency of PROBLEMS on module SCHEME.

Browse Source
This commit is contained in:
Grzegorz Kowal 2012-07-27 21:42:10 -03:00
parent fcac1db487
commit 5b2d79a0c4
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/makefile
View File

@ -232,7 +232,7 @@ mesh.o : mesh.F90 blocks.o coordinates.o domains.o error.o \
mpitools.o : mpitools.F90 timers.o
parameters.o : parameters.F90 mpitools.o
problems.o : problems.F90 blocks.o coordinates.o equations.o error.o \
parameters.o scheme.o variables.o
parameters.o variables.o
refinement.o : refinement.F90 blocks.o coordinates.o parameters.o \
scheme.o variables.o
scheme.o : scheme.F90 blocks.o coordinates.o interpolations.o \

8
src/problems.F90
View File

@ -69,7 +69,7 @@ module problems
! include external procedures and variables
!
use parameters, only : get_parameter_string
use parameters , only : get_parameter_string
! local variables are not implicit by default
!
@ -104,8 +104,8 @@ module problems
! include external procedures and variables
!
use blocks, only : block_data
use error , only : print_error
use blocks , only : block_data
use error , only : print_error
! local variables are not implicit by default
!
@ -163,9 +163,9 @@ module problems
use blocks , only : block_data
use coordinates, only : im, jm, km
use coordinates, only : ax, ay, az
use equations , only : prim2cons
use equations , only : gamma
use parameters , only : get_parameter_real
use scheme , only : prim2cons
use variables , only : nvr, nqt, idn, ivx, ivy, ivz
#ifdef ADI
use variables , only : ipr