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) subroutine advance(status)
! references
!
use blocks , only : set_blocks_update use blocks , only : set_blocks_update
use coordinates, only : toplev use coordinates, only : toplev
use forcing , only : update_forcing, forcing_enabled use forcing , only : update_forcing, forcing_enabled
use mesh , only : update_mesh use mesh , only : update_mesh
! local variables are not implicit by default
!
implicit none implicit none
! input variables
!
integer, intent(out) :: status integer, intent(out) :: status
!
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
! advance the solution using the selected method ! advance the solution using the selected method
! !
call evolve() 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 ! check if we need to perform the refinement step
! !