(windtunnel) tweaks to default parameters

danieljprice · Sep 28, 2023 · 86b003b · 86b003b
1 parent 8fb3f6c
commit 86b003b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/main/inject_windtunnel.f90 b/src/main/inject_windtunnel.f90
@@ -146,10 +146,10 @@ subroutine init_inject(ierr)
  max_particles = int(max_layers*(nodd+neven)/2) + nstar
  time_between_layers = distance_between_layers/v_inf
 
- if (max_particles > maxp) call fatal('windtunnel', 'maxp too small for this simulation, please increase MAXP!')
-
  call print_summary(v_inf,cs_inf,rho_inf,pres_inf,mach,pmass,distance_between_layers,time_between_layers,max_layers,nstar,max_particles)
 
+ if (max_particles > maxp) call fatal('windtunnel', 'maxp too small for this simulation, please increase MAXP!')
+
 end subroutine init_inject
 
 !-----------------------------------------------------------------------

diff --git a/src/setup/setup_windtunnel.f90 b/src/setup/setup_windtunnel.f90
@@ -80,7 +80,7 @@ subroutine setpart(id,npart,npartoftype,xyzh,massoftype,vxyzu,polyk,gamma,hfact,
 
  ! Wind parameters (see inject_windtunnel module)
  v_inf    = 230e5 / unit_velocity
- rho_inf  = 4.e-4 / unit_density
+ rho_inf  = 4.e-2 / unit_density
  pres_inf = 6.6e10 / unit_pressure
 
  ! Star parameters