Revert "EVOLUTION: Update all blocks after the mesh update."
This reverts commit 8b36ce58e18bdc5af35c03571e77c5566efb2ae0.
This commit is contained in:
parent
dfe7310408
commit
48f6618121
@ -1090,6 +1090,7 @@ module evolution
|
||||
|
||||
! references
|
||||
!
|
||||
use blocks , only : set_blocks_update
|
||||
use coordinates, only : toplev
|
||||
use forcing , only : update_forcing, forcing_enabled
|
||||
use mesh , only : update_mesh
|
||||
@ -1116,6 +1117,10 @@ module evolution
|
||||
!
|
||||
if (toplev > 1) then
|
||||
|
||||
! set all meta blocks to not be updated
|
||||
!
|
||||
call set_blocks_update(.false.)
|
||||
|
||||
! check refinement and refine
|
||||
!
|
||||
call update_mesh(status)
|
||||
@ -1126,6 +1131,10 @@ module evolution
|
||||
call update_variables(time + dt, 0.0d+00, status)
|
||||
if (status /= 0) go to 100
|
||||
|
||||
! set all meta blocks to be updated
|
||||
!
|
||||
call set_blocks_update(.true.)
|
||||
|
||||
end if ! toplev > 1
|
||||
|
||||
! error entry point
|
||||
|
Loading…
x
Reference in New Issue
Block a user