yTo_convective Subroutine

private subroutine yTo_convective()

Uses

  • proc~~yto_convective~~UsesGraph proc~yto_convective yTo_convective module~modfields modfields proc~yto_convective->module~modfields module~modglobal modglobal proc~yto_convective->module~modglobal decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Called by

proc~~yto_convective~~CalledByGraph proc~yto_convective yTo_convective proc~boundary boundary proc~boundary->proc~yto_convective program~dalesurban DALESURBAN program~dalesurban->proc~boundary

Source Code

   subroutine yTo_convective

     use modglobal, only : je, dyi, rk3step, dt
     use modfields, only : thl0, thlm, v0, vouttot

     real rk3coef

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

     thl0(:, je + 1, :) = thl0(:, je + 1, :) - (thl0(:, je + 1, :) - thl0(:, je, :))*dyi*rk3coef*vouttot
     thlm(:, je + 1, :) = thlm(:, je + 1, :) - (thlm(:, je + 1, :) - thlm(:, je, :))*dyi*rk3coef*vouttot

   end subroutine yTo_convective