extraOutput.f90

Go to the documentation of this file.

module extraoutput
!
!       This module contains the logicals which define the variables
!       to be written to the solution file. Both the surface variables
!       to be written as well as the extra volume variables are stored
!       in this module.
!
    use constants, only: inttype, realtype, maxcgnsnamelen
    implicit none
    save
!
!       The logical variables, which define the surface variables to
!       be written.
!
    logical :: surfwriterho, surfwritep, surfwritetemp
    logical :: surfwritevx, surfwritevy, surfwritevz
    logical :: surfwritervx, surfwritervy, surfwritervz
    logical :: surfwritecp, surfwriteptotloss, surfwritemach
    logical :: surfwritermach
    logical :: surfwritecf, surfwritech, surfwriteyplus
    logical :: surfwritecfx, surfwritecfy, surfwritecfz
    logical :: surfwriteblank, surfwritesepsensor, surfwritesepsensorks, surfwritesepsensorksarea
    logical :: surfwritecavitation, surfwritegc, surfwriteaxismoment
    logical :: surfwriteforceindragdir, surfwriteforceinliftdir
!
!       The logical variables, which define the extra volume variables
!       to be written.
!
    logical :: volwritemx, volwritemy, volwritemz
    logical :: volwritervx, volwritervy, volwritervz
    logical :: volwriterhoe, volwritetemp, volwritecp
    logical :: volwritemach, volwritemachturb, volwriteeddyvis
    logical :: volwritermach
    logical :: volwriteratioeddyvis, volwritedist, volwritevortx
    logical :: volwritevorty, volwritevortz, volwritevort
    logical :: volwriteptotloss, volwriteresrho, volwriteresmom
    logical :: volwriteresrhoe, volwriteresturb, volwriteblank
    logical :: volwriteshock, volwritefilteredshock, volwritegc, volwritestatus
    logical :: volwriteintermittency
!
!       The logical variables, which define the isosurface variables
!       to be written.
!
    logical :: isowriterho, isowritevx, isowritevy
    logical :: isowritevz, isowritep, isowriteturb
    logical :: isowritemx, isowritemy, isowritemz
    logical :: isowritervx, isowritervy, isowritervz
    logical :: isowriterhoe, isowritetemp, isowritecp
    logical :: isowritemach, isowritemachturb, isowriteeddyvis
    logical :: isowritermach
    logical :: isowriteratioeddyvis, isowritedist, isowritevortx
    logical :: isowritevorty, isowritevortz, isowritevort
    logical :: isowriteptotloss, isowriteresrho, isowriteresmom
    logical :: isowriteresrhoe, isowriteresturb, isowriteblank
    logical :: isowriteshock, isowritefilteredshock
!
!       Extra variables defining the type and number of iso surfaces
!       to be written.
!
    integer(kind=intType) :: nisosurface = 0
    real(kind=realtype), dimension(:), allocatable :: isovalues
    character(len=maxCGNSNameLen), dimension(:), allocatable :: isosurfacenames
 
end module extraoutput