smooth_ms_fe_f Subroutine

  1. mod_ms_film.f90
  2. ms_film
  3. smooth_ms_fe_f

private subroutine smooth_ms_fe_f(ms_fe_f, code, nodal)

Arguments

Type IntentOptional AttributesName
type(MS_FE_FILM), intent(inout) :: ms_fe_f
integer(kind=I4), intent(in) :: code

saved information like P_N
logical(kind=I4), intent(in) :: nodal

if false : cell value, if true : nodal value

Calls

proc~~smooth_ms_fe_f~~CallsGraph proc~smooth_ms_fe_f smooth_ms_fe_f proc~smooth_mat smooth_mat proc~smooth_ms_fe_f->proc~smooth_mat proc~ms_fe_f_2_mat ms_fe_f_2_mat proc~smooth_ms_fe_f->proc~ms_fe_f_2_mat proc~mat_2_ms_fe_f mat_2_ms_fe_f proc~smooth_ms_fe_f->proc~mat_2_ms_fe_f

Contents

Source Code

smooth_ms_fe_f

Source Code

   subroutine smooth_ms_fe_f(ms_fe_f, code, nodal)
   implicit none
   type(MS_FE_FILM), intent(inout) :: ms_fe_f
   integer(kind=I4), intent(in)    :: code      !! *saved information like P_N*
   logical(kind=I4), intent(in)    :: nodal     !! *if false : cell value, if true : nodal value*

      integer(kind=I4) :: nx, ny
      real(kind=R8), allocatable, dimension(:,:) :: mat

      call ms_fe_f_2_mat(ms_fe_f, code, nodal, mat)
      nx = ubound(mat, 1) ; ny = ubound(mat, 2)

      call smooth_mat(mat, nx, ny, s=5)

      call mat_2_ms_fe_f(ms_fe_f, code, nodal, mat)

      deallocate(mat)
   return
   endsubroutine smooth_ms_fe_f