calcfluidvolumes Subroutine

public subroutine calcfluidvolumes()

Uses

  • proc~~calcfluidvolumes~~UsesGraph proc~calcfluidvolumes calcfluidvolumes module~modfields modfields proc~calcfluidvolumes->module~modfields decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Calls

proc~~calcfluidvolumes~~CallsGraph proc~calcfluidvolumes calcfluidvolumes proc~fluidvolume fluidvolume proc~calcfluidvolumes->proc~fluidvolume proc~uoutletarea uoutletarea proc~calcfluidvolumes->proc~uoutletarea proc~voutletarea voutletarea proc~calcfluidvolumes->proc~voutletarea proc~avexy_ibm avexy_ibm proc~fluidvolume->proc~avexy_ibm proc~sumy_ibm sumy_ibm proc~uoutletarea->proc~sumy_ibm proc~sumx_ibm sumx_ibm proc~voutletarea->proc~sumx_ibm mpi_allreduce mpi_allreduce proc~avexy_ibm->mpi_allreduce proc~sumx_ibm->mpi_allreduce proc~sumy_ibm->mpi_allreduce

Called by

proc~~calcfluidvolumes~~CalledByGraph proc~calcfluidvolumes calcfluidvolumes program~dalesurban DALESURBAN program~dalesurban->proc~calcfluidvolumes

Source Code

  subroutine calcfluidvolumes
    !> calculates fluid volume and outlet areas, excluding blocks
    !> and saves it to variables from modfields

    use modfields, only : uoutarea, voutarea, fluidvol
    implicit none
    real :: volume

    ! calculate outlet area
    call uoutletarea(volume)
    uoutarea = volume
    ! calculate outlet area
    call voutletarea(volume)
    voutarea = volume
    ! calculate fluid volume
    call fluidvolume(volume)
    fluidvol = volume

  end subroutine calcfluidvolumes