init_fields_parameters Subroutine

public subroutine init_fields_parameters(fields_config_in)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(fields_config_type), intent(in), optional :: fields_config_in

Contents


Source Code

  subroutine init_fields_parameters(fields_config_in)
    use unit_tests, only: debug_message
    implicit none
    type(fields_config_type), intent(in), optional :: fields_config_in    
    integer, parameter :: verb=3
    if (parameters_read) return
    call debug_message(verb, "init_fields: read_parameters")
    call read_parameters(fields_config_in)
    parameters_read = .true.
  end subroutine init_fields_parameters