File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff 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)
You can’t perform that action at this time.
0 commit comments