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

Use module COORDINATES in INTEGRALS.

Browse Source
This commit is contained in:
Grzegorz Kowal 2012-07-27 16:49:46 -03:00
parent 7f38a53bb2
commit 9596b29671
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/integrals.F90
View File

@ -136,12 +136,12 @@ module integrals
subroutine store_integrals() subroutine store_integrals()
use blocks , only : block_meta, block_data, list_data use blocks , only : block_meta, block_data, list_data
use config , only : ib, ie, jb, je, kb, ke use coordinates, only : ib, ie, jb, je, kb, ke
use coordinates, only : advol
use evolution, only : n, t, dt use evolution, only : n, t, dt
#ifdef FORCE #ifdef FORCE
use forcing , only : fcor, finp use forcing , only : fcor, finp
#endif /* FORCE */ #endif /* FORCE */
use coordinates, only : advol
use mpitools , only : master use mpitools , only : master
#ifdef MPI #ifdef MPI
use mpitools , only : reduce_sum_real_array use mpitools , only : reduce_sum_real_array

4
src/makefile
View File

@ -218,8 +218,8 @@ evolution.o : evolution.F90 blocks.o boundaries.o config.o coordinates.o \
scheme.o variables.o scheme.o variables.o
forcing.o : forcing.F90 config.o constants.o coordinates.o mpitools.o \ forcing.o : forcing.F90 config.o constants.o coordinates.o mpitools.o \
random.o variables.o random.o variables.o
integrals.o : integrals.F90 blocks.o config.o coordinates.o evolution.o \ integrals.o : integrals.F90 blocks.o coordinates.o evolution.o mpitools.o \
mpitools.o variables.o variables.o
interpolations.o : interpolations.F90 blocks.o coordinates.o parameters.o \ interpolations.o : interpolations.F90 blocks.o coordinates.o parameters.o \
variables.o variables.o
io.o : io.F90 blocks.o coordinates.o error.o evolution.o \ io.o : io.F90 blocks.o coordinates.o error.o evolution.o \