valuetopscal Subroutine

private subroutine valuetopscal(val)

Uses

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

Arguments

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

Called by

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

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