xmo_Neumann Subroutine

private subroutine xmo_Neumann()

Uses

  • proc~~xmo_neumann~~UsesGraph proc~xmo_neumann xmo_Neumann module~modfields modfields proc~xmo_neumann->module~modfields module~modglobal modglobal proc~xmo_neumann->module~modglobal module~modsubgriddata modsubgriddata proc~xmo_neumann->module~modsubgriddata decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Source Code

   subroutine xmo_Neumann
     use modglobal,      only : ie
     use modfields,      only : u0, um, v0, vm, w0, wm, e120, e12m
     use modsubgriddata, only : loneeqn

     v0(ie + 1, :, :) = v0(ie, :, :)
     w0(ie + 1, :, :) = w0(ie, :, :)
     vm(ie + 1, :, :) = vm(ie, :, :)
     wm(ie + 1, :, :) = wm(ie, :, :)

     if (loneeqn) then
       e120(ie + 1, :, :) = e120(ie, :, :)
       e12m(ie + 1, :, :) = e12m(ie, :, :)
     end if

   end subroutine xmo_Neumann