yso_convective Subroutine

private subroutine yso_convective()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine yso_convective

     use modglobal, only : je, rk3step, dt, dyi, nsv
     use modfields, only :sv0, svm, v0, vouttot

     real rk3coef
     integer n

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

     do n = 1, nsv
       sv0(:, je + 1, :, n) = sv0(:, je + 1, :, n) - (sv0(:, je + 1, :, n) - sv0(:, je, :, n))*dyi*rk3coef*vouttot
       svm(:, je + 1, :, n) = svm(:, je + 1, :, n) - (svm(:, je + 1, :, n) - svm(:, je, :, n))*dyi*rk3coef*vouttot
     end do

   end subroutine yso_convective