write_collision_error Subroutine

public subroutine write_collision_error(gnostics)

Calculate and write the collision error

Arguments

Type IntentOptional Attributes Name
type(diagnostics_type), intent(in) :: gnostics

Contents

Source Code


Source Code

  subroutine write_collision_error (gnostics)
    use diagnostics_config, only: diagnostics_type
    use fields_arrays, only: phinew, bparnew
    type(diagnostics_type), intent(in) :: gnostics
    if (gnostics%write_ascii) call collision_error(gnostics%ascii_files%cres, phinew, bparnew)
  end subroutine write_collision_error