xTi_driver Subroutine

private subroutine xTi_driver()

Uses

  • proc~~xti_driver~~UsesGraph proc~xti_driver xTi_driver module~modfields modfields proc~xti_driver->module~modfields module~modglobal modglobal proc~xti_driver->module~modglobal module~modinletdata modinletdata proc~xti_driver->module~modinletdata decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Called by

proc~~xti_driver~~CalledByGraph proc~xti_driver xTi_driver proc~boundary boundary proc~boundary->proc~xti_driver program~dalesurban DALESURBAN program~dalesurban->proc~boundary

Source Code

     subroutine xTi_driver
       use modglobal,    only : ib, ie, jb, je, kb, ke
       use modinletdata, only : thl0driver, thlmdriver
       use modfields,    only : thl0, thlm
       integer j, k

       do j = jb - 1, je + 1
         do k = kb, ke + 1
           thl0(ib - 1, j, k) = thl0driver(j, k)
           thlm(ib - 1, j, k) = thlmdriver(j, k)
         end do
       end do

     end subroutine xTi_driver