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

Merge branch 'master' into reconnection

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2022-09-30 19:16:09 -03:00
commit 3be65db3b2
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sources/user_problem.F90
View File

@ -918,21 +918,19 @@ module user_problem
!
! Arguments:
!
! pdata - the pointer to a data block;
! t, dt - the time and time increment;
! du - the array of variable increment;
! pdata - the pointer to a data block;
!
!===============================================================================
!
subroutine update_user_sources(pdata, t, dt, du)
subroutine update_user_sources(t, dt, pdata)
use blocks, only : block_data
implicit none
type(block_data), pointer , intent(inout) :: pdata
real(kind=8) , intent(in) :: t, dt
real(kind=8), dimension(:,:,:,:), intent(inout) :: du
real(kind=8) , intent(in) :: t, dt
type(block_data), pointer, intent(inout) :: pdata
!-------------------------------------------------------------------------------
!