rh_read_params Subroutine

public subroutine rh_read_params(files)

Uses

  • proc~~rh_read_params~~UsesGraph proc~rh_read_params rh_read_params module~mod_global_parameters mod_global_parameters proc~rh_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~~rh_read_params~~CalledByGraph proc~rh_read_params rh_read_params proc~rh_init rh_init proc~rh_init->proc~rh_read_params proc~generatetv generateTV proc~generatetv->proc~rh_init

Namelists

Namelist rh_list


Variables

Name Type Default Description
periods double precision 300.d0
variation double precision 75.d0
ntimes integer 100
nwaves integer 1000
si double precision 5.d0/6.d0
vlim1 integer 100
vlim2 integer 100
vlim3 integer 100
trelax double precision 10.d0
tramp double precision 5.d0

Source Code

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

    namelist /rh_list/ periods, variation, ntimes, nwaves, si, &
                        vlim1, vlim2, vlim3, trelax, tramp

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

  end subroutine rh_read_params