init_rough_prob Subroutine

  1. mod_test_musst.f90
  2. test_musst
  3. init_rough_prob

private subroutine init_rough_prob()

Arguments

None

Called by

proc~~init_rough_prob~~CalledByGraph proc~init_rough_prob init_rough_prob proc~test_rough_fe test_rough_fe proc~test_rough_fe->proc~init_rough_prob proc~test_rough_ms test_rough_ms proc~test_rough_ms->proc~init_rough_prob proc~run_test run_test proc~run_test->proc~test_rough_fe proc~run_test->proc~test_rough_ms program~main main program~main->proc~run_test

Contents

Source Code

init_rough_prob

Source Code

   subroutine init_rough_prob
   implicit none
      allocate(tab_s(nx, ny))
      tab_s = 0._R8
      call read_surf(nom_fic=trim(surface_file), mu=1._R8, sq=sq, tab_s=tab_s, scal=scal_tmp)
   return
   endsubroutine init_rough_prob