Remove unnecessary pointer in init_problem().
This commit is contained in:
parent
ffb197844c
commit
0657926966
@ -73,34 +73,26 @@ module problem
|
|||||||
! input arguments
|
! input arguments
|
||||||
!
|
!
|
||||||
type(block_data), pointer, intent(inout) :: pblock
|
type(block_data), pointer, intent(inout) :: pblock
|
||||||
|
|
||||||
! local arguments
|
|
||||||
!
|
|
||||||
type(block_data), pointer :: pb
|
|
||||||
!
|
!
|
||||||
!-------------------------------------------------------------------------------
|
!-------------------------------------------------------------------------------
|
||||||
!
|
!
|
||||||
pb => pblock
|
|
||||||
|
|
||||||
select case(trim(problem))
|
select case(trim(problem))
|
||||||
case("blast")
|
case("blast")
|
||||||
call init_blast(pb)
|
call init_blast(pblock)
|
||||||
case("implosion")
|
case("implosion")
|
||||||
call init_implosion(pb)
|
call init_implosion(pblock)
|
||||||
case("binaries")
|
case("binaries")
|
||||||
call init_binaries(pb)
|
call init_binaries(pblock)
|
||||||
case("reconnection")
|
case("reconnection")
|
||||||
call init_reconnection(pb)
|
call init_reconnection(pblock)
|
||||||
case("multi_current_sheet")
|
case("multi_current_sheet")
|
||||||
call init_multi_current_sheet(pb)
|
call init_multi_current_sheet(pblock)
|
||||||
case("turbulence")
|
case("turbulence")
|
||||||
call init_turbulence(pb)
|
call init_turbulence(pblock)
|
||||||
case("orszag_tang")
|
case("orszag_tang")
|
||||||
call init_orszag_tang(pb)
|
call init_orszag_tang(pblock)
|
||||||
end select
|
end select
|
||||||
|
|
||||||
nullify(pb)
|
|
||||||
|
|
||||||
!-------------------------------------------------------------------------------
|
!-------------------------------------------------------------------------------
|
||||||
!
|
!
|
||||||
end subroutine init_problem
|
end subroutine init_problem
|
||||||
|
Loading…
x
Reference in New Issue
Block a user