xsi_custom Subroutine

private subroutine xsi_custom()

Uses

  • proc~~xsi_custom~~UsesGraph proc~xsi_custom xsi_custom decomp_2d decomp_2d proc~xsi_custom->decomp_2d module~modfields modfields proc~xsi_custom->module~modfields module~modglobal modglobal proc~xsi_custom->module~modglobal module~modfields->decomp_2d

Arguments

None

Calls

proc~~xsi_custom~~CallsGraph proc~xsi_custom xsi_custom zstart zstart proc~xsi_custom->zstart

Called by

proc~~xsi_custom~~CalledByGraph proc~xsi_custom xsi_custom proc~boundary boundary proc~boundary->proc~xsi_custom program~dalesurban DALESURBAN program~dalesurban->proc~boundary

Source Code

     subroutine xsi_custom
       use modglobal,    only : ib, ie, jb, je, jtot, kb, ke, nsv, ihc
       use modfields,    only : sv0, svm, svprof
       use decomp_2d,    only : zstart

       integer j, k, n, m

       do j = jb, je
          if (j + zstart(2) - 1 == jtot/2) then
             do k = kb, ke + 1
                do n = 1, nsv
                   do m = 1, ihc
                      sv0(ib - m, j-1:j+1, k, n) = 2*svprof(k, n) - sv0(ib - m + 1, j-1:j+1, k, n)
                      svm(ib - m, j-1:j+1, k, n) = 2*svprof(k, n) - svm(ib - m + 1, j-1:j+1, k, n)
                   end do
                end do
             end do
          end if
       end do

   end subroutine xsi_custom