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

Remove unnecessary pointer in init_problem().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-09 18:20:52 -03:00
parent ffb197844c
commit 0657926966
1 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/problem.F90
View File

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