calcfluidvolumes Subroutine

public subroutine calcfluidvolumes()

Uses

  • proc~~calcfluidvolumes~~UsesGraph proc~calcfluidvolumes modforces::calcfluidvolumes module~modfields modfields proc~calcfluidvolumes->module~modfields

Arguments

None

Calls

proc~~calcfluidvolumes~~CallsGraph proc~calcfluidvolumes modforces::calcfluidvolumes proc~fluidvolume modforces::fluidvolume proc~calcfluidvolumes->proc~fluidvolume proc~uoutletarea modforces::uoutletarea proc~calcfluidvolumes->proc~uoutletarea proc~voutletarea modforces::voutletarea proc~calcfluidvolumes->proc~voutletarea proc~sumy_ibm modmpi::sumy_ibm proc~fluidvolume->proc~sumy_ibm proc~uoutletarea->proc~sumy_ibm mpi_bcast mpi_bcast proc~voutletarea->mpi_bcast mpi_allreduce mpi_allreduce proc~sumy_ibm->mpi_allreduce

Called by

proc~~calcfluidvolumes~~CalledByGraph proc~calcfluidvolumes modforces::calcfluidvolumes proc~startup modstartup::startup proc~startup->proc~calcfluidvolumes program~dalesurban DALESURBAN program~dalesurban->proc~startup

Contents

Source Code

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