GLM-MHD, CONFIG: add parameter alpha_p.
- add a new parameter alpha_p to module 'config' to allow setting it from config.in;
This commit is contained in:
parent
9eef6af9b4
commit
bee4d07135
@ -105,6 +105,12 @@ module config
|
|||||||
character(len = 32), save :: zlbndry = "periodic"
|
character(len = 32), save :: zlbndry = "periodic"
|
||||||
character(len = 32), save :: zubndry = "periodic"
|
character(len = 32), save :: zubndry = "periodic"
|
||||||
|
|
||||||
|
#if defined MHD && defined GLM
|
||||||
|
! coefficient controlling the decay of scalar potential Psi
|
||||||
|
!
|
||||||
|
real , save :: alpha_p = 0.5d0
|
||||||
|
#endif /* MHD & GLM */
|
||||||
|
|
||||||
contains
|
contains
|
||||||
!
|
!
|
||||||
!===============================================================================
|
!===============================================================================
|
||||||
@ -270,6 +276,10 @@ module config
|
|||||||
case ('zubndry')
|
case ('zubndry')
|
||||||
l = len_trim(value)
|
l = len_trim(value)
|
||||||
write(zubndry , "(a)") value(2:l-1)
|
write(zubndry , "(a)") value(2:l-1)
|
||||||
|
#if defined MHD && defined GLM
|
||||||
|
case("alpha_p")
|
||||||
|
read(value, *) alpha_p
|
||||||
|
#endif /* MHD & GLM */
|
||||||
case default
|
case default
|
||||||
call print_warning("config::read_config", "Parameter '" // trim(name) // "' not implemented!")
|
call print_warning("config::read_config", "Parameter '" // trim(name) // "' not implemented!")
|
||||||
end select
|
end select
|
||||||
|
Loading…
x
Reference in New Issue
Block a user