modboundary Module


Used by

  • module~~modboundary~~UsedByGraph module~modboundary modboundary proc~closure modsubgrid::closure proc~closure->module~modboundary proc~fillps modpois::fillps proc~fillps->module~modboundary proc~readinitfiles modstartup::readinitfiles proc~readinitfiles->module~modboundary proc~startup modstartup::startup proc~startup->module~modboundary proc~tderive modpois::tderive proc~tderive->module~modboundary program~dalesurban DALESURBAN program~dalesurban->module~modboundary

Contents


Variables

Type Visibility Attributes Name Initial
integer, public :: ksp = -1
real, private, allocatable :: tsc(:)
real, private :: rnu0 = 2.75e-3

Subroutines

public subroutine initboundary()

Arguments

None

public subroutine boundary()

Arguments

None

public subroutine closurebc()

Arguments

None

private subroutine iosi()

Arguments

None

private subroutine scalrec()

Arguments

None

private subroutine scalSIRANE()

Arguments

None

private subroutine cyclichi()

Arguments

None

private subroutine cyclicqi()

Arguments

None

private subroutine cyclicsi()

Arguments

None

private subroutine ioqi()

Arguments

None

private subroutine iohi()

Arguments

None

private subroutine cyclichj()

Arguments

None

private subroutine cyclicqj()

Arguments

None

private subroutine cyclicsj()

Arguments

None

private subroutine cyclicmi()

Arguments

None

private subroutine cyclicmj()

Arguments

None

private subroutine iolet()

Arguments

None

public subroutine bcpup(pup, pvp, pwp, rk3coef)

Arguments

Type IntentOptional Attributes Name
real, intent(inout), dimension(ib - ih:ie + ih, jb - jh:je + jh, kb:ke + kh) :: pup
real, intent(inout), dimension(ib - ih:ie + ih, jb - jh:je + jh, kb:ke + kh) :: pvp
real, intent(inout), dimension(ib - ih:ie + ih, jb - jh:je + jh, kb:ke + kh) :: pwp
real, intent(in) :: rk3coef

public subroutine bcp(p)

Arguments

Type IntentOptional Attributes Name
real, intent(inout), dimension(ib - ih:ie + ih, jb - jh:je + jh, kb - kh:ke + kh) :: p

public subroutine grwdamp()

Arguments

None

private subroutine fluxtop(field, ek, flux)

Arguments

Type IntentOptional Attributes Name
real, intent(inout) :: field(ib-ih:ie+ih,jb-jh:je+jh,kb-kh:ke+kh)
real, intent(in) :: ek(ib-ih:ie+ih,jb-jh:je+jh,kb-kh:ke+kh)
real, intent(in) :: flux

private subroutine valuetop(field, val)

Arguments

Type IntentOptional Attributes Name
real, intent(inout) :: field(ib-ih:ie+ih,jb-jh:je+jh,kb-kh:ke+kh)
real, intent(in) :: val

private subroutine fluxtopscal(flux)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: flux(1:nsv)

private subroutine valuetopscal(val)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: val(1:nsv)

private subroutine inlettop()

Arguments

None

public subroutine tqaver()

Arguments

None