From 37fdafd28d02c694ab957f4ac830c04a91269e92 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Thu, 26 Nov 2020 10:50:49 -0300 Subject: [PATCH] EVOLUTION: Fix unphysical cells after applying shapes. Signed-off-by: Grzegorz Kowal --- sources/evolution.F90 | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/sources/evolution.F90 b/sources/evolution.F90 index 5b77bab..4f302d2 100644 --- a/sources/evolution.F90 +++ b/sources/evolution.F90 @@ -2852,6 +2852,17 @@ module evolution ! 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 ! if (fix_unphysical_cells) then @@ -2882,17 +2893,6 @@ module evolution end do 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 ! stop accounting time for variable update !