init_ms_prob Subroutine

  1. mod_test_musst.f90
  2. test_musst
  3. init_ms_prob

private subroutine init_ms_prob()

Arguments

None

Calls

proc~~init_ms_prob~~CallsGraph proc~init_ms_prob init_ms_prob proc~multi_scale_create_rect_fe_film multi_scale_create_rect_fe_film proc~init_ms_prob->proc~multi_scale_create_rect_fe_film proc~create_rect_fe_film create_rect_FE_film proc~multi_scale_create_rect_fe_film->proc~create_rect_fe_film proc~create_rect_x_ymesh create_rect_x_ymesh proc~create_rect_fe_film->proc~create_rect_x_ymesh

Called by

proc~~init_ms_prob~~CalledByGraph proc~init_ms_prob init_ms_prob proc~test_slider_ms test_slider_ms proc~test_slider_ms->proc~init_ms_prob proc~test_rough_ms test_rough_ms proc~test_rough_ms->proc~init_ms_prob proc~run_test run_test proc~run_test->proc~test_slider_ms proc~run_test->proc~test_rough_ms program~main main program~main->proc~run_test

Contents

Source Code

init_ms_prob

Source Code

   subroutine init_ms_prob
   implicit none
      n_mic = (nx - 1) / n_mac +1
      ms_fe_f%ts_fe_f%m%nx = n_mac +1
      ms_fe_f%ts_fe_f%m%ny = n_mac +1
      ms_fe_f%ts_fe_f%m%lx = lx
      ms_fe_f%ts_fe_f%m%ly = ly
      ms_fe_f%ts_fe_f%m%zx = 0.
      ms_fe_f%ts_fe_f%m%zy = 0.

      call multi_scale_create_rect_fe_film(data_f = data_f,    &
                                            bs_nx = n_mic,     &
                                            bs_ny = n_mic,     &
                                          num_pts = num_pts,   &
                                          num_pbs = num_pbs,   &
                                          ms_fe_f = ms_fe_f)
      write(OPU,*) 'film created'
   return
   endsubroutine init_ms_prob