gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EVOLUTION: Fix unphysical cells after applying shapes.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-11-26 10:50:49 -03:00
parent f453d86bc4
commit 37fdafd28d
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
sources/evolution.F90
View File

@ -2852,6 +2852,17 @@ module evolution
! !
call boundary_variables(tm, dtm) call boundary_variables(tm, dtm)
! apply shapes in blocks which need it
!
pdata => list_data
do while (associated(pdata))
pmeta => pdata%meta
if (pmeta%update) call update_shapes(pdata, tm, dtm)
pdata => pdata%next
end do
! correct unphysical states if detected ! correct unphysical states if detected
! !
if (fix_unphysical_cells) then if (fix_unphysical_cells) then
@ -2882,17 +2893,6 @@ module evolution
end do end do
end if end if
! apply shapes in blocks which need it
!
pdata => list_data
do while (associated(pdata))
pmeta => pdata%meta
if (pmeta%update) call update_shapes(pdata, tm, dtm)
pdata => pdata%next
end do
#ifdef PROFILE #ifdef PROFILE
! stop accounting time for variable update ! stop accounting time for variable update
! !