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

EVOLUTION: Fix alignment.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2021-12-03 19:56:26 -03:00
parent 67835ffdff
commit e1fa68b54f
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
sources/evolution.F90
View File

@ -3323,19 +3323,19 @@ module evolution
!
do i = 2, stages
dtm = c(i) * dt
tm = time + dtm
dtm = c(i) * dt
tm = time + dtm
pdata => list_data
do while (associated(pdata))
pdata => list_data
do while (associated(pdata))
call update_increment(pdata)
call update_sources(pdata, tm, dtm, pdata%du(:,:,:,:))
call update_increment(pdata)
call update_sources(pdata, tm, dtm, pdata%du(:,:,:,:))
pdata => pdata%next
end do
pdata => pdata%next
end do
call boundary_fluxes()
call boundary_fluxes()
pdata => list_data
do while (associated(pdata))