errormsg Subroutine

public subroutine errormsg(message)

Exit MPI-AMRVAC with an error message

Arguments

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

The error message

Called by

proc~~errormsg~~CalledByGraph proc~errormsg errormsg proc~var_set_bfield var_set_bfield proc~var_set_bfield->proc~errormsg proc~var_set_extravar var_set_extravar proc~var_set_extravar->proc~errormsg proc~var_set_momentum var_set_momentum proc~var_set_momentum->proc~errormsg proc~var_set_qvec var_set_qvec proc~var_set_qvec->proc~errormsg proc~phys_init phys_init proc~phys_init->proc~var_set_momentum proc~phys_init~2 phys_init proc~phys_init~2->proc~var_set_bfield proc~phys_init~2->proc~var_set_momentum proc~phys_init~2->proc~var_set_qvec proc~phys_init~3 phys_init proc~phys_init~3->proc~var_set_extravar proc~phys_init~3->proc~var_set_momentum proc~phys_init~4 phys_init proc~phys_init~4->proc~var_set_momentum proc~phys_activate phys_activate proc~phys_activate->proc~phys_init proc~phys_activate~2 phys_activate proc~phys_activate~2->proc~phys_init~2 proc~phys_activate~3 phys_activate proc~phys_activate~3->proc~phys_init~3 proc~phys_activate~4 phys_activate proc~phys_activate~4->proc~phys_init~4

Source Code

  subroutine errormsg(message)
  
    character(len=*), intent(in) :: message
    !< The error message
  
    write(*, *) "ERROR for processor"
    write(*, *) trim(message)
  
  
  end subroutine errormsg