modify_h_bearing_y Subroutine

  1. mod_test_musst.f90
  2. test_musst
  3. modify_h_bearing_y

private subroutine modify_h_bearing_y(fe_f, ly)

Arguments

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

Called by

proc~~modify_h_bearing_y~~CalledByGraph proc~modify_h_bearing_y modify_h_bearing_y proc~test_bearing_y_fe test_bearing_y_fe proc~test_bearing_y_fe->proc~modify_h_bearing_y proc~run_test run_test proc~run_test->proc~test_bearing_y_fe program~main main program~main->proc~run_test

Contents

Source Code

modify_h_bearing_y

Source Code

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

      integer(kind=I4) :: i

      do i = 1, fe_f%m%n
         fe_f%vn(i, H2_N) = fe_f%data_f%h_0 + 0.5_R8 * fe_f%data_f%h_0 * cos(2 * PI_R8 * fe_f%m%y(i) / ly)
      enddo
      fe_f%vn(:, H_N) = fe_f%vn(:, H2_N) - fe_f%vn(:, H1_N)

   return
   endsubroutine modify_h_bearing_y