yTi_profile Subroutine

private subroutine yTi_profile()

Uses

  • proc~~yti_profile~~UsesGraph proc~yti_profile yTi_profile module~modfields modfields proc~yti_profile->module~modfields module~modglobal modglobal proc~yti_profile->module~modglobal decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Called by

proc~~yti_profile~~CalledByGraph proc~yti_profile yTi_profile proc~boundary boundary proc~boundary->proc~yti_profile program~dalesurban DALESURBAN program~dalesurban->proc~boundary

Source Code

   subroutine yTi_profile
     use modglobal, only : ib, ie, jb, je, kb, ke
     use modfields, only : thl0, thlm, thlprof

     integer i, k

     do i = ib - 1, ie + 1
       do k = kb, ke + 1
         thl0(i, jb - 1, k) = 2*thlprof(k) - thl0(i, jb, k)
         thlm(i, jb - 1, k) = 2*thlprof(k) - thlm(i, jb, k)
       end do
     end do

   end subroutine yTi_profile