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 decomp_2d decomp_2d module~modfields->decomp_2d

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~udales uDALES program~udales->proc~fixuinf2

Source Code

  subroutine detfreestream(freestream)
    use modglobal, only : ke,&
                          lvinf
    use modfields, only : u0av,v0av
    implicit none
    real, intent(out) :: freestream

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

  end subroutine detfreestream