xso_convective Subroutine

private subroutine xso_convective()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine xso_convective
     use modglobal, only : ie, rk3step, dt, dxi, nsv
     use modfields, only :sv0, svm, uouttot
     real rk3coef
     integer n

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

     do n = 1, nsv
       sv0(ie + 1, :, :, n) = sv0(ie + 1, :, :, n) - (sv0(ie + 1, :, :, n) - sv0(ie, :, :, n))*dxi*rk3coef*uouttot
       svm(ie + 1, :, :, n) = svm(ie + 1, :, :, n) - (svm(ie + 1, :, :, n) - svm(ie, :, :, n))*dxi*rk3coef*uouttot
     end do

   end subroutine xso_convective