ysi_profile Subroutine

private subroutine ysi_profile()

Uses

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

Arguments

None

Called by

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

Source Code

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

     integer i, k, n, m

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

   end subroutine ysi_profile