D:/demona/2.0/manual/doc/2-31set/postprocessor/postprocessor.f90

Go to the documentation of this file.

subroutine postprocessor

use global

!use postprocessorParameters

implicit none

integer myP,myD

!just visualization routines and extra functions.


print*,'|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|'
print*,'POST-PROCESSOR STARTS'
print*,'|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|'


! this routine is needed for calculations like drag,lift,nusselt number etc.
!call postModel()





do myP=1,myModel%numberOfPhysics

        currentPhysics=myP


        do myD=1,myModel%physics(currentPhysics)%numberOfDomains

                
                currentDomain=myD


                call tecFD


        end do



end do


print*,'|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|'
print*,'POST-PROCESSOR ENDS'
print*,'|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|+|'








end subroutine postprocessor

---