xsi_driver Subroutine

private subroutine xsi_driver()

Uses

  • proc~~xsi_driver~~UsesGraph proc~xsi_driver xsi_driver module~modfields modfields proc~xsi_driver->module~modfields module~modglobal modglobal proc~xsi_driver->module~modglobal module~modinletdata modinletdata proc~xsi_driver->module~modinletdata decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Called by

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

Source Code

   subroutine xsi_driver
     use modglobal,    only : ib, ie, ihc, jb, je, jhc, kb, ke, khc, nsv
     use modinletdata, only : sv0driver, svmdriver
     use modfields,    only : sv0, svm

     integer j, k, n, m

     do j = jb - 1, je + 1
       do k = kb, ke + 1
         do n = 1, nsv
           do m = 1, ihc
             sv0(ib - m, j, k, n) = sv0driver(j, k, n)
             svm(ib - m, j, k, n) = svmdriver(j, k, n)
           end do
         end do
       end do
     end do

   end subroutine xsi_driver