initialize_korc_parameters Subroutine

  1. korc_initialize.f90
  2. korc_initialize
  3. initialize_korc_parameters

public subroutine initialize_korc_parameters(params)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(inout) :: params

Core KORC simulation parameters.

Calls

proc~~initialize_korc_parameters~~CallsGraph proc~initialize_korc_parameters initialize_korc_parameters proc~load_korc_params load_korc_params proc~initialize_korc_parameters->proc~load_korc_params mpi_barrier mpi_barrier proc~initialize_korc_parameters->mpi_barrier proc~read_namelist read_namelist proc~initialize_korc_parameters->proc~read_namelist proc~read_namelist->mpi_barrier proc~korc_abort korc_abort proc~read_namelist->proc~korc_abort proc~rmcoment rmcoment proc~read_namelist->proc~rmcoment mpi_abort mpi_abort proc~korc_abort->mpi_abort

Called by

proc~~initialize_korc_parameters~~CalledByGraph proc~initialize_korc_parameters initialize_korc_parameters program~main main program~main->proc~initialize_korc_parameters

Contents

Source Code

initialize_korc_parameters

Source Code

  subroutine initialize_korc_parameters(params)
    !! @note Interface for calling initialization subroutines @endnote
    TYPE(KORC_PARAMS), INTENT(INOUT) 	:: params
    !! Core KORC simulation parameters.
    INTEGER 							:: mpierr
    !! MPI error status.

    call MPI_BARRIER(MPI_COMM_WORLD,mpierr)

    call read_namelist(params,params%path_to_inputs,.true.,params%path_to_outputs)

    call MPI_BARRIER(MPI_COMM_WORLD,mpierr)

    call load_korc_params(params)

    call MPI_BARRIER(MPI_COMM_WORLD,mpierr)
  end subroutine initialize_korc_parameters