Corrections and some basic printing
This commit is contained in:
parent
d7d0d6b47f
commit
a48e5111e7
4 changed files with 42 additions and 3 deletions
|
|
@ -523,6 +523,8 @@ MODULE moduleSolver
|
|||
USE moduleCaseParam, ONLY: timeStep
|
||||
IMPLICIT NONE
|
||||
|
||||
integer:: b ! TEMPORARY
|
||||
|
||||
CALL outputProbes()
|
||||
|
||||
counterOutput = counterOutput + 1
|
||||
|
|
@ -551,6 +553,17 @@ MODULE moduleSolver
|
|||
END IF
|
||||
WRITE(*,*)
|
||||
|
||||
! TEMPORARY
|
||||
! Output of boundaries. TODO: Move this to mesh module
|
||||
do b = 1, nBoundariesParticle
|
||||
if (associated(boundariesParticle(b)%obj%print)) then
|
||||
print *, b
|
||||
call boundariesParticle(b)%obj%print()
|
||||
|
||||
end if
|
||||
|
||||
end do
|
||||
|
||||
END IF
|
||||
|
||||
counterCPUTime = counterCPUTime + 1
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue