diff --git a/sources/evolution.F90 b/sources/evolution.F90 index 3c50ef9..0359800 100644 --- a/sources/evolution.F90 +++ b/sources/evolution.F90 @@ -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))