yqo_convective Subroutine

private subroutine yqo_convective()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine yqo_convective

     use modglobal, only : je, dyi, rk3step, dt
     use modfields, only : qt0, qtm, v0, vouttot

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

     qt0(:, je + 1, :) = qt0(:, je + 1, :) - (qt0(:, je + 1, :) - qt0(:, je, :))*dyi*rk3coef*vouttot
     qtm(:, je + 1, :) = qtm(:, je + 1, :) - (qtm(:, je + 1, :) - qtm(:, je, :))*dyi*rk3coef*vouttot

   end subroutine yqo_convective