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

EVOLUTION: Add missing variable update after adding turbulence forcing.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2023-08-29 17:09:48 -03:00
parent 48f6618121
commit 55b13fb895
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
sources/evolution.F90
View File

@ -1088,30 +1088,29 @@ module evolution
!
subroutine advance(status)
! references
!
use blocks , only : set_blocks_update
use coordinates, only : toplev
use forcing , only : update_forcing, forcing_enabled
use mesh , only : update_mesh
! local variables are not implicit by default
!
implicit none
! input variables
!
integer, intent(out) :: status
!
!-------------------------------------------------------------------------------
!
! advance the solution using the selected method
!
call evolve()
! add forcing contribution
! add forcing contribution, requires the boundary and primitive variable update
!
if (forcing_enabled) call update_forcing(time, dt)
if (forcing_enabled) then
call update_forcing(time, dt)
call update_variables(time + dt, 0.0d+00, status)
if (status /= 0) go to 100
end if
! check if we need to perform the refinement step
!