diff --git a/src/simulation/m_global_parameters.fpp b/src/simulation/m_global_parameters.fpp index 63fc21c73f..6e6b20a88e 100644 --- a/src/simulation/m_global_parameters.fpp +++ b/src/simulation/m_global_parameters.fpp @@ -1068,6 +1068,10 @@ contains buff_size = weno_polyn + 2 end if + if (probe_wrt) then + fd_number = max(1, fd_order/2) + end if + ! Configuring Coordinate Direction Indexes ========================= idwint(1)%beg = 0; idwint(2)%beg = 0; idwint(3)%beg = 0 idwint(1)%end = m; idwint(2)%end = n; idwint(3)%end = p @@ -1090,11 +1094,6 @@ contains & idwbuff(3)%beg:idwbuff(3)%end)) end if - if (probe_wrt) then - fd_number = max(1, fd_order/2) - buff_size = buff_size + fd_number - end if - startx = -buff_size starty = 0 startz = 0