From 0657926966fec9afa31b9b7c23bfdc36580089f5 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 9 May 2011 18:20:52 -0300 Subject: [PATCH] Remove unnecessary pointer in init_problem(). --- src/problem.F90 | 22 +++++++--------------- 1 file changed, 7 insertions(+), 15 deletions(-) diff --git a/src/problem.F90 b/src/problem.F90 index 76fb2ad..e4d2104 100644 --- a/src/problem.F90 +++ b/src/problem.F90 @@ -73,34 +73,26 @@ module problem ! input arguments ! type(block_data), pointer, intent(inout) :: pblock - -! local arguments -! - type(block_data), pointer :: pb ! !------------------------------------------------------------------------------- ! - pb => pblock - select case(trim(problem)) case("blast") - call init_blast(pb) + call init_blast(pblock) case("implosion") - call init_implosion(pb) + call init_implosion(pblock) case("binaries") - call init_binaries(pb) + call init_binaries(pblock) case("reconnection") - call init_reconnection(pb) + call init_reconnection(pblock) case("multi_current_sheet") - call init_multi_current_sheet(pb) + call init_multi_current_sheet(pblock) case("turbulence") - call init_turbulence(pb) + call init_turbulence(pblock) case("orszag_tang") - call init_orszag_tang(pb) + call init_orszag_tang(pblock) end select - nullify(pb) - !------------------------------------------------------------------------------- ! end subroutine init_problem