diff --git a/src/simulation_code/m_global_parameters.f90 b/src/simulation_code/m_global_parameters.f90 index 6d5784a631..cf09ab7dc3 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