valuetop Subroutine

private subroutine valuetop(field, val)

Uses

  • proc~~valuetop~~UsesGraph proc~valuetop modboundary::valuetop module~modglobal modglobal proc~valuetop->module~modglobal

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

Called by

proc~~valuetop~~CalledByGraph proc~valuetop modboundary::valuetop proc~boundary modboundary::boundary proc~boundary->proc~valuetop proc~readinitfiles modstartup::readinitfiles proc~readinitfiles->proc~boundary program~dalesurban DALESURBAN program~dalesurban->proc~boundary proc~startup modstartup::startup program~dalesurban->proc~startup proc~startup->proc~readinitfiles

Contents

Source Code

valuetop

Source Code

   subroutine valuetop(field, val)
      use modglobal, only:ib, ie, ih, jb, je, jh, kb, ke, kh, eps1
      real, intent(inout) :: field(ib - ih:ie + ih, jb - jh:je + jh, kb - kh:ke + kh)
      real, intent(in)    :: val
      !
      field(:, :, ke + 1) = 2*val - field(:, :, ke)
      !
   end subroutine valuetop