From 133d6e8c515ec4e350c28faada0adc03114e050f Mon Sep 17 00:00:00 2001 From: anandrdbz <62814442+anandrdbz@users.noreply.github.com> Date: Fri, 1 Oct 2021 23:07:33 -0400 Subject: [PATCH 1/3] Update m_global_parameters.f90 Bubble radius and radial velocity indices updated --- src/simulation_code/m_global_parameters.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/simulation_code/m_global_parameters.f90 b/src/simulation_code/m_global_parameters.f90 index 6d5784a631..7dda02cb9b 100755 --- a/src/simulation_code/m_global_parameters.f90 +++ b/src/simulation_code/m_global_parameters.f90 @@ -627,8 +627,8 @@ SUBROUTINE s_initialize_global_parameters_module() ! ------------------- DO j = 1, nmom bub_idx%moms(i,j) = bub_idx%beg+(j-1)+(i-1)*nmom END DO - bub_idx%rs(i) = bub_idx%moms(i,1) - bub_idx%vs(i) = bub_idx%moms(i,2) + bub_idx%rs(i) = bub_idx%moms(i,2) + bub_idx%vs(i) = bub_idx%moms(i,3) END DO ELSE DO i = 1, nb From 51d741d3a71d7d1cac71eb57147fbd294977198f Mon Sep 17 00:00:00 2001 From: Anand Date: Sat, 2 Oct 2021 00:14:23 -0400 Subject: [PATCH 2/3] Test_Comment --- src/simulation_code/m_global_parameters.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/simulation_code/m_global_parameters.f90 b/src/simulation_code/m_global_parameters.f90 index 7dda02cb9b..c43ea67de4 100755 --- a/src/simulation_code/m_global_parameters.f90 +++ b/src/simulation_code/m_global_parameters.f90 @@ -627,7 +627,7 @@ SUBROUTINE s_initialize_global_parameters_module() ! ------------------- DO j = 1, nmom bub_idx%moms(i,j) = bub_idx%beg+(j-1)+(i-1)*nmom END DO - bub_idx%rs(i) = bub_idx%moms(i,2) + bub_idx%rs(i) = bub_idx%moms(i,2) #Change Here bub_idx%vs(i) = bub_idx%moms(i,3) END DO ELSE From e5b28946e120fd8706d2d234154cf24176c69dd0 Mon Sep 17 00:00:00 2001 From: anandrdbz <62814442+anandrdbz@users.noreply.github.com> Date: Sat, 2 Oct 2021 00:26:20 -0400 Subject: [PATCH 3/3] Update m_global_parameters.f90 --- src/simulation_code/m_global_parameters.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/simulation_code/m_global_parameters.f90 b/src/simulation_code/m_global_parameters.f90 index c43ea67de4..cf09ab7dc3 100755 --- a/src/simulation_code/m_global_parameters.f90 +++ b/src/simulation_code/m_global_parameters.f90 @@ -627,7 +627,7 @@ SUBROUTINE s_initialize_global_parameters_module() ! ------------------- DO j = 1, nmom bub_idx%moms(i,j) = bub_idx%beg+(j-1)+(i-1)*nmom END DO - bub_idx%rs(i) = bub_idx%moms(i,2) #Change Here + bub_idx%rs(i) = bub_idx%moms(i,2) bub_idx%vs(i) = bub_idx%moms(i,3) END DO ELSE