From c8e42163101dc5918b59af17f64dc916b35bb71a Mon Sep 17 00:00:00 2001 From: Yrisch Date: Sat, 31 Aug 2024 11:45:28 +0200 Subject: [PATCH] (substepping) reverse 0e0cc6d patch on the particle type sent to ptmass_accrete --- src/main/substepping.F90 | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/main/substepping.F90 b/src/main/substepping.F90 index 8ab859be4..6c37b140f 100644 --- a/src/main/substepping.F90 +++ b/src/main/substepping.F90 @@ -773,10 +773,7 @@ subroutine kick(dki,dt,npart,nptmass,ntypes,xyzh,vxyzu,xyzmh_ptmass,vxyz_ptmass, fxi = fext(1,i) fyi = fext(2,i) fzi = fext(3,i) - if (ind_timesteps) then - ibin_wakei = ibin_wake(i) - itype = iphase(i) - endif + if (ind_timesteps) ibin_wakei = ibin_wake(i) call ptmass_accrete(1,nptmass,xyzh(1,i),xyzh(2,i),xyzh(3,i),xyzh(4,i),& vxyzu(1,i),vxyzu(2,i),vxyzu(3,i),fxi,fyi,fzi,&