xTo_convective Subroutine

private subroutine xTo_convective()

Uses

  • proc~~xto_convective~~UsesGraph proc~xto_convective xTo_convective module~modfields modfields proc~xto_convective->module~modfields module~modglobal modglobal proc~xto_convective->module~modglobal decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Called by

proc~~xto_convective~~CalledByGraph proc~xto_convective xTo_convective proc~boundary boundary proc~boundary->proc~xto_convective program~dalesurban DALESURBAN program~dalesurban->proc~boundary

Source Code

   subroutine xTo_convective
     use modglobal, only : ie, dxi, rk3step, dt
     use modfields, only : thl0, thlm, uouttot
     real rk3coef

     rk3coef = dt/(4.-dble(rk3step))

     thl0(ie + 1, :, :) = thl0(ie+1, :, :) - (thl0(ie + 1, :, :) - thl0(ie, :, :))*dxi*rk3coef*uouttot
     thlm(ie + 1, :, :) = thlm(ie+1, :, :) - (thlm(ie + 1, :, :) - thlm(ie, :, :))*dxi*rk3coef*uouttot

   end subroutine xTo_convective