Merge pull request #266 from admole/inflow_restart_fix

Read inflow file on init when restarting
xcompact3d · Apr 22, 2024 · ebfe705 · ebfe705
2 parents b114e8b + 2157114
commit ebfe705
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/xcompact3d.f90 b/src/xcompact3d.f90
@@ -106,7 +106,7 @@ subroutine init_xcompact3d()
   use tools, only : test_speed_min_max, test_scalar_min_max, &
        restart, &
        simu_stats, compute_cfldiff, &
-       init_inflow_outflow
+       init_inflow_outflow, read_inflow
 
   use param, only : ilesmod, jles,itype
   use param, only : irestart
@@ -229,6 +229,9 @@ subroutine init_xcompact3d()
 
   if ((ioutflow.eq.1).or.(iin.eq.3)) then
      call init_inflow_outflow()
+     if ((irestart==1).and.(iin.eq.3)) then
+        call read_inflow(ux_inflow,uy_inflow,uz_inflow,itime/ntimesteps)
+     endif
   end if
 
   if ((iibm.eq.2).or.(iibm.eq.3)) then