xqi_driver Subroutine

private subroutine xqi_driver()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine xqi_driver
     use modglobal,    only : ib, ie, jb, je, kb, ke
     use modinletdata, only : qt0driver, qtmdriver
     use modfields,    only : qt0, qtm

     integer j, k

     do j = jb - 1, je + 1
       do k = kb, ke + 1
         qt0(ib - 1, j, k) = qt0driver(j, k)
         qtm(ib - 1, j, k) = qtmdriver(j, k)
       end do
     end do

   end subroutine xqi_driver