diff --git a/src/post_process/m_global_parameters.fpp b/src/post_process/m_global_parameters.fpp index bd90c28ed8..12957a26fb 100644 --- a/src/post_process/m_global_parameters.fpp +++ b/src/post_process/m_global_parameters.fpp @@ -457,23 +457,6 @@ contains allocate (MPI_IO_DATA%view(1:sys_size)) allocate (MPI_IO_DATA%var(1:sys_size)) end if - - do i = 1, sys_size - if (down_sample) then - allocate (MPI_IO_DATA%var(i)%sf(-1:m + 1,-1:n + 1,-1:p + 1)) - else - allocate (MPI_IO_DATA%var(i)%sf(0:m,0:n,0:p)) - end if - MPI_IO_DATA%var(i)%sf => null() - end do - if (qbmm .and. .not. polytropic) then - do i = sys_size + 1, sys_size + 2*nb*nnode - allocate (MPI_IO_DATA%var(i)%sf(0:m,0:n,0:p)) - MPI_IO_DATA%var(i)%sf => null() - end do - end if - - if (ib) allocate (MPI_IO_IB_DATA%var%sf(0:m,0:n,0:p)) #endif ! Size of the ghost zone layer is non-zero only when post-processing the raw simulation data of a parallel multidimensional diff --git a/src/pre_process/m_global_parameters.fpp b/src/pre_process/m_global_parameters.fpp index b358516fbf..a7451322bd 100644 --- a/src/pre_process/m_global_parameters.fpp +++ b/src/pre_process/m_global_parameters.fpp @@ -562,19 +562,6 @@ contains allocate (MPI_IO_DATA%view(1:sys_size)) allocate (MPI_IO_DATA%var(1:sys_size)) end if - - if (.not. down_sample) then - do i = 1, sys_size - allocate (MPI_IO_DATA%var(i)%sf(0:m,0:n,0:p)) - MPI_IO_DATA%var(i)%sf => null() - end do - end if - if (qbmm .and. .not. polytropic) then - do i = sys_size + 1, sys_size + 2*nb*nnode - allocate (MPI_IO_DATA%var(i)%sf(0:m,0:n,0:p)) - MPI_IO_DATA%var(i)%sf => null() - end do - end if #endif ! Allocating grid variables for the x-direction diff --git a/src/simulation/m_global_parameters.fpp b/src/simulation/m_global_parameters.fpp index 29e4f2d870..dc97528812 100644 --- a/src/simulation/m_global_parameters.fpp +++ b/src/simulation/m_global_parameters.fpp @@ -902,24 +902,6 @@ contains allocate (MPI_IO_DATA%var(1:sys_size)) end if - if (.not. down_sample) then - do i = 1, sys_size - allocate (MPI_IO_DATA%var(i)%sf(0:m,0:n,0:p)) - MPI_IO_DATA%var(i)%sf => null() - end do - end if - if (bubbles_euler .and. qbmm .and. .not. polytropic) then - do i = sys_size + 1, sys_size + 2*nb*nnode - allocate (MPI_IO_DATA%var(i)%sf(0:m,0:n,0:p)) - MPI_IO_DATA%var(i)%sf => null() - end do - else if (bubbles_lagrange) then - do i = 1, sys_size + 1 - allocate (MPI_IO_DATA%var(i)%sf(0:m,0:n,0:p)) - MPI_IO_DATA%var(i)%sf => null() - end do - end if - ! Configure WENO averaging flag (arithmetic mean vs. unaltered values) wa_flg = 0._wp; if (weno_avg) wa_flg = 1._wp $:GPU_UPDATE(device='[wa_flg]') @@ -929,8 +911,6 @@ contains wenojs = .not. (mapped_weno .or. wenoz .or. teno) #:endif - if (ib) allocate (MPI_IO_IB_DATA%var%sf(0:m,0:n,0:p)) - if (hypoelasticity .or. mhd .or. probe_wrt .or. ib .or. bubbles_lagrange) then fd_number = max(1, fd_order/2) end if