diff --git a/Exec/science/xrb_mixed/Prob_nd.F90 b/Exec/science/xrb_mixed/Prob_nd.F90 index 53bfe3bb90..595dfed437 100644 --- a/Exec/science/xrb_mixed/Prob_nd.F90 +++ b/Exec/science/xrb_mixed/Prob_nd.F90 @@ -30,8 +30,6 @@ subroutine amrex_probinit(init, name, namlen, problo, probhi) bind(c) ! velocity perturbation stuff offset = (probhi(1) - problo(1)) / (num_vortices + 1) - allocate(xloc_vortices(num_vortices)) - do i = 1, num_vortices xloc_vortices(i) = dble(i) * offset enddo diff --git a/Exec/science/xrb_mixed/_prob_params b/Exec/science/xrb_mixed/_prob_params index ce2b46cd32..ba8b349b1d 100644 --- a/Exec/science/xrb_mixed/_prob_params +++ b/Exec/science/xrb_mixed/_prob_params @@ -12,8 +12,8 @@ velpert_amplitude real 1.0e2_rt y velpert_height_loc real 6.5e3_rt y -num_vortices integer 1 y +num_vortices integer 16 y -max_num_vortices integer 10 n +max_num_vortices integer 16 n -xloc_vortices real 0.0_rt n 10 +xloc_vortices real 0.0_rt n 16 diff --git a/Exec/science/xrb_mixed/probin b/Exec/science/xrb_mixed/probin index 00b73af186..09a6864ebb 100644 --- a/Exec/science/xrb_mixed/probin +++ b/Exec/science/xrb_mixed/probin @@ -8,8 +8,6 @@ velpert_amplitude = 1.d5 num_vortices = 16 - interp_BC = F - / &sponge