vanLeer Subroutine

subroutine vanLeer(dvp, dvm, dv)

Uses

  • proc~~vanleer~~UsesGraph proc~vanleer vanLeer module~fluxmod fluxmod proc~vanleer->module~fluxmod module~basicmod basicmod module~fluxmod->module~basicmod module~config config module~basicmod->module~config

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in), dimension(nhyd) :: dvp
real(kind=8), intent(in), dimension(nhyd) :: dvm
real(kind=8), intent(out), dimension(nhyd) :: dv

Source Code

      subroutine vanLeer(dvp,dvm,dv)
!$acc routine seq
      use fluxmod, only : nhyd
      implicit none
      real(8),dimension(nhyd),intent(in)::dvp,dvm
      real(8),dimension(nhyd),intent(out)::dv
      integer:: n

      do n=1,nhyd
         if(dvp(n)*dvm(n) .gt. 0.0d0)then
            dv(n) =2.0d0*dvp(n)*dvm(n)/(dvp(n)+dvm(n))
         else
            dv(n) = 0.0d0
         endif

      enddo

      return
      end subroutine vanLeer