xsi_profile Subroutine

private subroutine xsi_profile()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine xsi_profile
     use modglobal,    only : ib, ie, jb, je, kb, ke, nsv, ihc
     use modfields,    only : sv0, svm, svprof

     integer j, k, n, m

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

   end subroutine xsi_profile