modify_h_slider Subroutine

  1. mod_test_musst.f90
  2. test_musst
  3. modify_h_slider

private subroutine modify_h_slider(fe_f, lx)

Arguments

Type IntentOptional AttributesName
type(FE_FILM), intent(inout) :: fe_f
real(kind=R8), intent(in) :: lx

Called by

proc~~modify_h_slider~~CalledByGraph proc~modify_h_slider modify_h_slider proc~modify_h_slider_ms modify_h_slider_MS proc~modify_h_slider_ms->proc~modify_h_slider proc~test_slider_fe test_slider_fe proc~test_slider_fe->proc~modify_h_slider proc~run_test run_test proc~run_test->proc~test_slider_fe proc~test_slider_ms test_slider_ms proc~run_test->proc~test_slider_ms proc~test_slider_ms->proc~modify_h_slider_ms program~main main program~main->proc~run_test

Contents

Source Code

modify_h_slider

Source Code

   subroutine modify_h_slider(fe_f, lx)
   implicit none
   type(FE_FILM), intent(inout) :: fe_f
   real(kind=R8), intent(in)    :: lx

      integer(kind=I4) :: i

      do i = 1, fe_f%m%n
         fe_f%vn(i, H2_N) = fe_f%data_f%h_0 + fe_f%data_f%h_0 * (lx - fe_f%m%x(i)) / lx
      enddo
      fe_f%vn(:, H_N) = fe_f%vn(:, H2_N) - fe_f%vn(:, H1_N)

   return
   endsubroutine modify_h_slider