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

Replace pointer pblock with pdata in init_problem().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-12 09:07:11 -03:00
parent 7a656e07c7
commit fb6a44a675
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/problem.F90
View File

@ -65,32 +65,32 @@ module problem
! !
!=============================================================================== !===============================================================================
! !
subroutine init_problem(pblock) subroutine init_problem(pdata)
use blocks, only : block_data use blocks, only : block_data
use config, only : problem use config, only : problem
! input arguments ! input arguments
! !
type(block_data), pointer, intent(inout) :: pblock type(block_data), pointer, intent(inout) :: pdata
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
select case(trim(problem)) select case(trim(problem))
case("blast") case("blast")
call init_blast(pblock) call init_blast(pdata)
case("implosion") case("implosion")
call init_implosion(pblock) call init_implosion(pdata)
case("binaries") case("binaries")
call init_binaries(pblock) call init_binaries(pdata)
case("reconnection") case("reconnection")
call init_reconnection(pblock) call init_reconnection(pdata)
case("multi_current_sheet") case("multi_current_sheet")
call init_multi_current_sheet(pblock) call init_multi_current_sheet(pdata)
case("turbulence") case("turbulence")
call init_turbulence(pblock) call init_turbulence(pdata)
case("orszag_tang") case("orszag_tang")
call init_orszag_tang(pblock) call init_orszag_tang(pdata)
end select end select
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------