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

Initialize module EQUATIONS in the main program.

Browse Source
This commit is contained in:
Grzegorz Kowal 2012-07-27 16:29:30 -03:00
parent 7e8f4757bd
commit 28ec2b9144
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/driver.F90
View File

@ -36,6 +36,7 @@ program amun
use config , only : fdt use config , only : fdt
#endif /* FORCE */ #endif /* FORCE */
use coordinates, only : initialize_coordinates, finalize_coordinates use coordinates, only : initialize_coordinates, finalize_coordinates
use equations , only : initialize_equations
use evolution, only : evolve, find_new_timestep, n, t, dt, dtn use evolution, only : evolve, find_new_timestep, n, t, dt, dtn
#ifdef FORCE #ifdef FORCE
use forcing , only : init_forcing, clear_forcing use forcing , only : init_forcing, clear_forcing
@ -221,6 +222,10 @@ program amun
! !
call initialize_mesh(.true.) call initialize_mesh(.true.)
! initialize module EQUATIONS
!
call initialize_equations()
! initialize the integrals module ! initialize the integrals module
! !
call init_integrals(.true.) call init_integrals(.true.)

6
src/makefile
View File

@ -208,9 +208,9 @@ boundaries.o : boundaries.F90 blocks.o config.o error.o interpolation.o \
config.o : config.F90 error.o config.o : config.F90 error.o
constants.o : constants.F90 constants.o : constants.F90
coordinates.o : coordinates.F90 parameters.o coordinates.o : coordinates.F90 parameters.o
driver.o : driver.F90 blocks.o config.o coordinates.o evolution.o \ driver.o : driver.F90 blocks.o config.o coordinates.o equations.o \
forcing.o integrals.o io.o mesh.o mpitools.o parameters.o \ evolution.o forcing.o integrals.o io.o mesh.o mpitools.o \
random.o parameters.o random.o
equations.o : equations.F90 parameters.o variables.o equations.o : equations.F90 parameters.o variables.o
error.o : error.F90 error.o : error.F90
evolution.o : evolution.F90 blocks.o boundaries.o config.o coordinates.o \ evolution.o : evolution.F90 blocks.o boundaries.o config.o coordinates.o \