detfreestream Subroutine

public subroutine detfreestream(freestream)

Uses

  • proc~~detfreestream~~UsesGraph proc~detfreestream detfreestream module~modfields modfields proc~detfreestream->module~modfields module~modglobal modglobal proc~detfreestream->module~modglobal module~modmpi modmpi proc~detfreestream->module~modmpi decomp_2d decomp_2d module~modfields->decomp_2d mpi mpi module~modmpi->mpi

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: freestream

Called by

proc~~detfreestream~~CalledByGraph proc~detfreestream detfreestream proc~fixuinf2 fixuinf2 proc~fixuinf2->proc~detfreestream program~dalesurban DALESURBAN program~dalesurban->proc~fixuinf2

Source Code

  subroutine detfreestream(freestream)
    use modglobal, only : ib,ie,jb,je,kb,ke,kh,dxf,xh,dt,&
                          Uinf,Vinf,lvinf,dy
    use modfields, only : u0,dpdxl,dgdt,dpdx,v0,u0av,v0av
    use modmpi, only    : myid,comm3d,mpierr,mpi_sum,my_real,nprocs
    implicit none
    real, intent(out) :: freestream

    real  utop,vtop,dum
    integer i,j

    if (lvinf) then
        freestream = v0av(ke)
    else
        freestream = u0av(ke)
    end if

  end subroutine detfreestream