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

GLM-MHD, CONFIG: add parameter alpha_p.

Browse Source 
- add a new parameter alpha_p to module 'config' to allow setting it
   from config.in;
This commit is contained in:
Grzegorz Kowal 2010-12-01 11:24:57 -02:00
parent 9eef6af9b4
commit bee4d07135
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/config.F90
View File

@ -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