xqo_convective Subroutine

private subroutine xqo_convective()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine xqo_convective
     use modglobal, only : ie, dxi, rk3step, dt
     use modfields, only : qt0, qtm, uouttot
     real rk3coef

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

     qt0(ie + 1, :, :) = qt0(ie, :, :) - (qt0(ie + 1, :, :) - qt0(ie, :, :))*dxi*rk3coef*uouttot
     qtm(ie + 1, :, :) = qtm(ie, :, :) - (qtm(ie + 1, :, :) - qtm(ie, :, :))*dxi*rk3coef*uouttot

   end subroutine xqo_convective