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

DRIVER: Replace explicit calls to get_parameter_*() with unified one.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-01-28 21:06:32 -02:00
parent 9c5841d9f3
commit e884804f8c
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
sources/driver.F90
View File

@ -65,8 +65,7 @@ program amun
#ifdef MPI
use parameters , only : redistribute_parameters
#endif /* MPI */
use parameters , only : get_parameter_integer, get_parameter_real &
, get_parameter_string
use parameters , only : get_parameter
use problems , only : initialize_problems, finalize_problems
use random , only : initialize_random, finalize_random
use refinement , only : initialize_refinement, finalize_refinement
@ -274,7 +273,7 @@ program amun
! check if the job is restarted
!
call get_parameter_integer("restart_number", nres)
call get_parameter("restart_number", nres)
job_restart = nres > 0
! if the run is from a restarted job, read the fixed parameters from
@ -285,17 +284,17 @@ program amun
call read_snapshot_parameter("eos" , eos , iret)
call read_snapshot_parameter("maxlev", toplev, iret)
else
call get_parameter_string("equation_system" , eqsys)
call get_parameter_string("equation_of_state", eos )
call get_parameter_integer("maxlev", toplev)
call get_parameter("equation_system" , eqsys )
call get_parameter("equation_of_state", eos )
call get_parameter("maxlev" , toplev)
end if
! get the execution termination parameters
!
call get_parameter_integer("nmax" , nmax)
call get_parameter_real ("tmax" , tmax)
call get_parameter_real ("trun" , trun)
call get_parameter_real ("tsav" , tsav)
call get_parameter("nmax" , nmax)
call get_parameter("tmax" , tmax)
call get_parameter("trun" , trun)
call get_parameter("tsav" , tsav)
! correct the run time by the save time
!
@ -307,7 +306,7 @@ program amun
! get the precise snapshot flag
!
call get_parameter_string ("precise_snapshots", prec_snap)
call get_parameter("precise_snapshots", prec_snap)
! set the precise snapshot flag
!
@ -320,7 +319,7 @@ program amun
! get integral calculation interval
!
call get_parameter_integer("ndat" , ndat)
call get_parameter("ndat" , ndat)
! initialize the random number generator (passes the number of OpenMP threads
! and the current thread number)