xqi_profile Subroutine

private subroutine xqi_profile()

Uses

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

Arguments

None

Called by

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

Source Code

     subroutine xqi_profile
       use modglobal,    only : ib, ie, jb, je, kb, ke
       use modfields,    only : qt0, qtm, qtprof
       integer j, k

       do j = jb - 1, je + 1
         do k = kb, ke + 1
           qt0(ib - 1, j, k) = 2*qtprof(k) - qt0(ib, j, k)
           qtm(ib - 1, j, k) = 2*qtprof(k) - qtm(ib, j, k)
         end do
       end do

   end subroutine xqi_profile