valuetopscal Subroutine

private subroutine valuetopscal(val)

Uses

  • proc~~valuetopscal~~UsesGraph proc~valuetopscal modboundary::valuetopscal module~modfields modfields proc~valuetopscal->module~modfields module~modglobal modglobal proc~valuetopscal->module~modglobal

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: val(1:nsv)

Called by

proc~~valuetopscal~~CalledByGraph proc~valuetopscal modboundary::valuetopscal proc~boundary modboundary::boundary proc~boundary->proc~valuetopscal proc~readinitfiles modstartup::readinitfiles proc~readinitfiles->proc~boundary program~dalesurban DALESURBAN program~dalesurban->proc~boundary proc~startup modstartup::startup program~dalesurban->proc~startup proc~startup->proc~readinitfiles

Contents

Source Code

valuetopscal

Source Code

   subroutine valuetopscal(val)
      use modglobal, only:ib, ie, ih, jb, je, jh, kb, ke, kh, eps1, nsv, khc
      use modfields, only:sv0, svm
      real, intent(in)    :: val(1:nsv)
      integer :: m, n
      !
      ! all the ghost cells have the same vlaue?
      do m = 1, khc
      do n = 1, nsv
         sv0(: , : , ke + m, n) = 2*val(n) - sv0(: , : , ke, n)
         svm(: , : , ke + m, n) = 2*val(n) - svm(: , : , ke, n)
      end do
      end do
      !
   end subroutine valuetopscal