gather_and_write_2d Subroutine

public subroutine gather_and_write_2d(state, filename, is_ok, message)

Gather all per-rank tiles to rank 0 and write the global field as ASCII.

Format per line: x y rho u v p (6 × ES24.12E3), i (x) fastest. A blank line is written after each constant-j row so gnuplot/ParaView treat the output as a structured grid — identical to write_result_2d.

Arguments

Type IntentOptional Attributes Name
type(solver_state_2d_t), intent(in) :: state

Solver state (ub(:,1:nx_local,1:ny_local) = interior cells).

character(len=*), intent(in) :: filename

Output path (written by rank 0 only).

logical, intent(out) :: is_ok

.true. on success, .false. on I/O or MPI error.

character(len=*), intent(out) :: message

Human-readable error description on failure.