JGonzalez/vlaplex
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change boundary file module

Browse source
This commit is contained in:
JHendrikx 2025-02-19 12:09:35 +01:00
commit d13146a31c
2 changed files with 8 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
vlaplex.f90
View file

@ -235,7 +235,7 @@ program VlaPlEx
! Main loop
do t = 1, nt
time = t * dt + t0
call boundaryConditions%get(time, n_bc, u_bc, Temp_bc, Zave_bc)
call boundaryConditions%get(time, n_bc, u_bc, Temp_bc)
z_inj = minloc(abs(Z_list - T_to_Z(Temp_bc)),1)
Zave_bc = Z_list(z_inj)
u_bc = sqrt(Zave_bc * Temp_bc)