yqi_profile Subroutine

private subroutine yqi_profile()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine yqi_profile
     use modglobal, only : ib, ie, jb, je, kb, ke
     use modfields, only : qt0, qtm, qtprof

     integer i, k

     do i = jb - 1, ie + 1
       do k = kb, ke + 1
         qt0(i, jb - 1, k) = 2*qtprof(k) - qt0(i, jb, k)
         qtm(i, jb - 1, k) = 2*qtprof(k) - qtm(i, jb, k)
       end do
     end do

   end subroutine yqi_profile