Run serial GMBE calculation
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(gmbe_context_t), | intent(inout) | :: | this | |||
| type(json_output_data_t), | intent(out), | optional | :: | json_data |
subroutine gmbe_run_serial(this, json_data) !! Run serial GMBE calculation use mqc_gmbe_fragment_distribution_scheme, only: serial_gmbe_pie_processor use pic_logger, only: logger => global_logger class(gmbe_context_t), intent(inout) :: this type(json_output_data_t), intent(out), optional :: json_data if (.not. this%has_geometry()) then call logger%error("gmbe_run_serial: sys_geom required but not set") return end if call serial_gmbe_pie_processor(this%pie_atom_sets, this%pie_coefficients, & this%n_pie_terms, this%sys_geom, this%method_config, & this%calc_type, json_data) end subroutine gmbe_run_serial