Skip to content

Commit c0948ea

Browse files
Fixed 3D airfoils moving
1 parent 9c58276 commit c0948ea

1 file changed

Lines changed: 3 additions & 8 deletions

File tree

src/simulation/m_ib_patches.fpp

Lines changed: 3 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -467,15 +467,13 @@ contains
467467
offset(:) = patch_ib(patch_id)%centroid_offset(:)
468468

469469
! rank(dx) is not consistent between pre_process and simulation. This IFDEF prevents compilation errors
470-
#ifdef MFC_PRE_PROCESS
471-
Np1 = int((pa*ca_in/dx)*20)
472-
Np2 = int(((ca_in - pa*ca_in)/dx)*20)
473-
#else
474470
Np1 = int((pa*ca_in/dx(0))*20)
475471
Np2 = int(((ca_in - pa*ca_in)/dx(0))*20)
476-
#endif
477472
Np = Np1 + Np2 + 1
478473

474+
z_max = lz/2
475+
z_min = -lz/2
476+
479477
if (.not. allocated(airfoil_grid_u)) then
480478
allocate (airfoil_grid_u(1:Np))
481479
allocate (airfoil_grid_l(1:Np))
@@ -486,9 +484,6 @@ contains
486484
airfoil_grid_l(1)%x = 0._wp
487485
airfoil_grid_l(1)%y = 0._wp
488486

489-
z_max = lz/2
490-
z_min = -lz/2
491-
492487
do i = 1, Np1 + Np2 - 1
493488
if (i <= Np1) then
494489
xc = i*(pa*ca_in/Np1)

0 commit comments

Comments
 (0)