ibmwallfun Subroutine

public subroutine ibmwallfun()

Uses

  • proc~~ibmwallfun~~UsesGraph proc~ibmwallfun modibm::ibmwallfun module~modfields modfields proc~ibmwallfun->module~modfields module~modglobal modglobal proc~ibmwallfun->module~modglobal

Arguments

None

Calls

proc~~ibmwallfun~~CallsGraph proc~ibmwallfun modibm::ibmwallfun proc~xwallfun modibm::xwallfun proc~ibmwallfun->proc~xwallfun proc~ywallfunmin modibm::ywallfunmin proc~ibmwallfun->proc~ywallfunmin proc~ywallfunplus modibm::ywallfunplus proc~ibmwallfun->proc~ywallfunplus proc~zwallfun modibm::zwallfun proc~ibmwallfun->proc~zwallfun proc~wfgr wf_gr.f90::wfGR proc~xwallfun->proc~wfgr proc~wfmneutral wfmneutral.f90::wfmneutral proc~xwallfun->proc~wfmneutral proc~wfuno wf_uno.f90::wfuno proc~xwallfun->proc~wfuno proc~xwallscalar modibm::xwallscalar proc~xwallfun->proc~xwallscalar proc~ywallfunmin->proc~wfgr proc~ywallfunmin->proc~wfmneutral proc~ywallfunmin->proc~wfuno proc~ywallscalarmin modibm::ywallscalarmin proc~ywallfunmin->proc~ywallscalarmin proc~ywallfunplus->proc~wfgr proc~ywallfunplus->proc~wfmneutral proc~ywallfunplus->proc~wfuno proc~ywallscalarplus modibm::ywallscalarplus proc~ywallfunplus->proc~ywallscalarplus proc~zwallfun->proc~wfgr proc~zwallfun->proc~wfmneutral proc~zwallfun->proc~wfuno proc~zwallscalar modibm::zwallscalar proc~zwallfun->proc~zwallscalar proc~unoh wf_uno.f90::unoh proc~wfuno->proc~unoh

Called by

proc~~ibmwallfun~~CalledByGraph proc~ibmwallfun modibm::ibmwallfun program~dalesurban DALESURBAN program~dalesurban->proc~ibmwallfun

Contents

Source Code


Source Code

   subroutine ibmwallfun
      use modglobal, only:libm
      use modfields, only:momfluxb, tfluxb, qfluxb

      if (libm) then
         ! compute fluxes at IBM
         momfluxb = 0.
         tfluxb = 0.
         qfluxb = 0.

         call xwallfun
         call ywallfunplus ! due to parallellisation differentiation between + and - side
         call ywallfunmin ! due to parallellisation differentiation between + and - side
         call zwallfun
      end if
   end subroutine ibmwallfun