bc_read_params Subroutine

private subroutine bc_read_params(files)

Uses

  • proc~~bc_read_params~~UsesGraph proc~bc_read_params bc_read_params module~mod_global_parameters mod_global_parameters proc~bc_read_params->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Read this module"s parameters from a file

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: files(:)

Called by

proc~~bc_read_params~~CalledByGraph proc~bc_read_params bc_read_params proc~bc_data_init bc_data_init proc~bc_data_init->proc~bc_read_params proc~initialize_amrvac initialize_amrvac proc~initialize_amrvac->proc~bc_data_init proc~main main proc~main->proc~initialize_amrvac program~agile agile program~agile->proc~main

Namelists

Namelist bd_list


Variables

Name Type Default Description
boundary_data_file_name character(len=std_len) None

data file name
interp_phy_first_row logical .true.
bc_phy_first_row logical .false.
boundary_data_primitive logical .false.

Source Code

  subroutine bc_read_params(files)
    use mod_global_parameters
    character(len=*), intent(in) :: files(:)
    integer                      :: n

    namelist /bd_list/ boundary_data_file_name, interp_phy_first_row,&
        bc_phy_first_row,boundary_data_primitive

    do n = 1, size(files)
       open(unitpar, file=trim(files(n)), status="old")
       read(unitpar, bd_list, end=111)
111    close(unitpar)
    end do
 
  end subroutine bc_read_params