tem_load_cylindricalWave Subroutine

public subroutine tem_load_cylindricalWave(conf, thandle, me)

Load definition of the scalar cylindrical wave.

Arguments

Type IntentOptional AttributesName
type(flu_State) :: conf

lua state type

integer, intent(in) :: thandle

aotus parent handle

type(tem_cylindricalWave_type), intent(out) :: me

Calls

proc~~tem_load_cylindricalwave~~CallsGraph proc~tem_load_cylindricalwave tem_load_cylindricalWave interface~aot_get_val aot_get_val proc~tem_load_cylindricalwave->interface~aot_get_val proc~tem_abort tem_abort proc~tem_load_cylindricalwave->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~tem_load_cylindricalwave~~CalledByGraph proc~tem_load_cylindricalwave tem_load_cylindricalWave proc~load_spatial_predefined load_spatial_predefined proc~load_spatial_predefined->proc~tem_load_cylindricalwave proc~load_spacetime_predefined load_spacetime_predefined proc~load_spacetime_predefined->proc~tem_load_cylindricalwave proc~tem_load_spatial tem_load_spatial proc~load_spacetime_predefined->proc~tem_load_spatial proc~tem_load_spacetime_single tem_load_spacetime_single proc~tem_load_spacetime_single->proc~load_spacetime_predefined proc~tem_load_spacetime_single->proc~tem_load_spacetime_single proc~tem_load_spatial->proc~load_spatial_predefined proc~tem_load_ic tem_load_ic proc~tem_load_ic->proc~tem_load_spatial proc~tem_load_spacetime_table tem_load_spacetime_table proc~tem_load_spacetime_table->proc~tem_load_spacetime_single interface~tem_load_spacetime tem_load_spacetime interface~tem_load_spacetime->proc~tem_load_spacetime_single interface~tem_load_spacetime->proc~tem_load_spacetime_table proc~tem_variable_loadmapping_single tem_variable_loadMapping_single proc~tem_variable_loadmapping_single->interface~tem_load_spacetime program~tem_spacetime_fun_test tem_spacetime_fun_test program~tem_spacetime_fun_test->interface~tem_load_spacetime proc~tem_variable_load_single tem_variable_load_single proc~tem_variable_load_single->interface~tem_load_spacetime

Contents


Source Code

  subroutine tem_load_cylindricalWave(conf, thandle, me)
    ! ---------------------------------------------------------------------------
    !> lua state type
    type(flu_State) :: conf
    !> aotus parent handle
    integer, intent(in) :: thandle
    type(tem_cylindricalWave_type), intent(out) :: me
    ! ---------------------------------------------------------------------------
    integer :: iError
    ! ---------------------------------------------------------------------------

    write(logUnit(1),*) 'Loading predefined function for cylindrical wave: '

    ! radius
    call aot_get_val( L       = conf,        &
      &               thandle = thandle,     &
      &               key     = 'radius',    &
      &               val     = me%radius,   &
      &               ErrCode = iError )
    if(iError.ne.0) then
      write(logUnit(1),*) 'ERROR in tem_load_cylindricalWave: not able '
      write(logUnit(1),*) 'to read radius for cylin. wave form config file.'
      call tem_abort()
    end if
    write(logUnit(1),*) ' * radius =', me%radius

    ! order
    call aot_get_val( L       = conf,     &
      &               thandle = thandle,  &
      &               key     = 'order',  &
      &               val     = me%order, &
      &               ErrCode = iError    )
    if(iError.ne.0) then
      write(logUnit(1),*) 'ERROR in tem_load_cylindricalWave: not able '
      write(logUnit(1),*) 'to read order for cylin. wave form config file.'
      call tem_abort()
    end if
    write(logUnit(1),*) ' * order =', me%order

    ! radial constant
    call aot_get_val( L       = conf,              &
      &               thandle = thandle,           &
      &               key     = 'radialconstant',  &
      &               val     = me%radialconstant, &
      &               ErrCode = iError             )
    if(iError.ne.0) then
      write(logUnit(1),*) 'ERROR in tem_load_cylindricalWave: not able '
      write(logUnit(1),*) 'to read radialconstant for cylin. '// &
        &                 'wave form config file.'
      call tem_abort()
    end if
    write(logUnit(1),*) ' * radialconstant =', me%radialconstant


  end subroutine tem_load_cylindricalWave