xTo_Neumann Subroutine

private subroutine xTo_Neumann()

Uses

  • proc~~xto_neumann~~UsesGraph proc~xto_neumann xTo_Neumann module~modfields modfields proc~xto_neumann->module~modfields module~modglobal modglobal proc~xto_neumann->module~modglobal decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Source Code

   subroutine xTo_Neumann
     use modglobal, only : ie
     use modfields, only : thl0, thlm

     thl0(ie + 1, :, :) = thl0(ie, :, :)
     thlm(ie + 1, :, :) = thlm(ie, :, :)

   end subroutine xTo_Neumann