再開に必要な root-rank 共通状態だけをチェックポイントへ保存する。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | out_dir | |||
| type(mesh_type), | intent(in) | :: | mesh | |||
| type(sim_stats), | intent(in) | :: | stats | |||
| type(app_config), | intent(in) | :: | cfg | |||
| integer(kind=i32), | intent(in), | optional | :: | mpi_world_size | ||
| type(charge_ledger_type), | intent(in), | optional | :: | charge_ledger |
subroutine write_checkpoint_state_files(out_dir, mesh, stats, cfg, mpi_world_size, charge_ledger) character(len=*), intent(in) :: out_dir type(mesh_type), intent(in) :: mesh type(sim_stats), intent(in) :: stats type(app_config), intent(in) :: cfg integer(i32), intent(in), optional :: mpi_world_size type(charge_ledger_type), intent(in), optional :: charge_ledger call ensure_output_dir(out_dir) call begin_checkpoint_publish(out_dir) call write_summary_file( & out_dir, mesh, stats, cfg, mpi_world_size=mpi_world_size, charge_ledger=charge_ledger & ) call write_charges_file(out_dir, mesh) if (present(charge_ledger)) call write_charge_ledger_file(out_dir, charge_ledger) end subroutine write_checkpoint_state_files