Stabilize EScalar CUDA fallback path

AMSS_NCKU_GPUCheck.py

@@ -1,559 +0,0 @@
-#!/usr/bin/env python3
-#
-# Current most stable GPU-branch baseline:
-#   GPU_Calculation="yes"
-#   Equation_Class="BSSN"
-#   Initial_Data_Method="Ansorg-TwoPuncture"
-#   puncture_data_set="Manually"
-#   basic_grid_set="Patch"
-#   grid_center_set="Cell"
-#   Symmetry="equatorial-symmetry"
-#   Time_Evolution_Method="runge-kutta-45"
-#   Finite_Diffenence_Method="4th-order"
-#   boundary_choice="BAM-choice"
-#   gauge_choice=0
-#   tetrad_type=2
-#   AHF_Find="no"
-#   devide_factor=2.0
-#   static_grid_type="Linear"
-#   moving_grid_type="Linear"
-#   AMSS_Z4C_MRBD=0
-#   Do not enable AMSS_CUDA_BH_INTERP_RESIDENT unless a dedicated
-#   CPU/GPU trajectory comparison has been run for that configuration.
-"""
-Check whether AMSS_NCKU_Input.py is suitable for the current GPU branch.
-
-Usage:
-  python3 AMSS_NCKU_GPUCheck.py
-  python3 AMSS_NCKU_GPUCheck.py -f /path/to/AMSS_NCKU_Input.py
-"""
-
-from __future__ import annotations
-
-import argparse
-import importlib.util
-import os
-from dataclasses import dataclass, field
-from pathlib import Path
-from typing import Any, Iterable, List, Sequence
-
-
-SUPPORTED_EQUATIONS = {"BSSN", "BSSN-EScalar", "BSSN-EM", "Z4C"}
-SUPPORTED_INITIAL_DATA = {
-    "Ansorg-TwoPuncture",
-    "Lousto-Analytical",
-    "Cao-Analytical",
-    "KerrSchild-Analytical",
-}
-SUPPORTED_SYMMETRIES = {
-    "no-symmetry",
-    "equatorial-symmetry",
-    "octant-symmetry",
-}
-SUPPORTED_GRIDS = {"Patch", "Shell-Patch"}
-SUPPORTED_CENTERS = {"Cell", "Vertex"}
-SUPPORTED_FD = {"2nd-order", "4th-order", "6th-order", "8th-order"}
-SUPPORTED_GAUGES = {0, 1, 2, 3, 4, 5, 6, 7}
-SUPPORTED_TETRADS = {0, 1, 2}
-SUPPORTED_AHF = {"yes", "no"}
-SUPPORTED_BOUNDARIES = {"BAM-choice", "Shibata-choice"}
-SUPPORTED_PUNCTURE_DATA = {"Manually", "Automatically-BBH"}
-
-STABLE_BASELINE = {
-    "GPU_Calculation": "yes",
-    "Equation_Class": "BSSN",
-    "Initial_Data_Method": "Ansorg-TwoPuncture",
-    "puncture_data_set": "Manually",
-    "basic_grid_set": "Patch",
-    "grid_center_set": "Cell",
-    "Symmetry": "equatorial-symmetry",
-    "Time_Evolution_Method": "runge-kutta-45",
-    "Finite_Diffenence_Method": "4th-order",
-    "boundary_choice": "BAM-choice",
-    "gauge_choice": 0,
-    "tetrad_type": 2,
-    "AHF_Find": "no",
-    "devide_factor": 2.0,
-    "static_grid_type": "Linear",
-    "moving_grid_type": "Linear",
-    "AMSS_Z4C_MRBD": 0,
-}
-
-
-@dataclass
-class CheckResult:
-    ok: bool = True
-    warnings: List[str] = field(default_factory=list)
-    risks: List[str] = field(default_factory=list)
-    notes: List[str] = field(default_factory=list)
-
-    def add_warning(self, msg: str) -> None:
-        self.warnings.append(msg)
-
-    def add_risk(self, msg: str) -> None:
-        self.ok = False
-        self.risks.append(msg)
-
-    def add_note(self, msg: str) -> None:
-        self.notes.append(msg)
-
-    def extend_notes(self, messages: Iterable[str]) -> None:
-        self.notes.extend(messages)
-
-
-def load_input_module(path: Path):
-    spec = importlib.util.spec_from_file_location("amss_ncku_input", str(path))
-    if spec is None or spec.loader is None:
-        raise RuntimeError(f"cannot load input module from {path}")
-    module = importlib.util.module_from_spec(spec)
-    spec.loader.exec_module(module)  # type: ignore[union-attr]
-    return module
-
-
-def get_attr(mod: Any, name: str, default: Any = None) -> Any:
-    return getattr(mod, name, default)
-
-
-def as_text(value: Any) -> str:
-    if isinstance(value, str):
-        return value.strip()
-    return str(value).strip()
-
-
-def as_lower_text(value: Any) -> str:
-    return as_text(value).lower()
-
-
-def as_float(value: Any, default: float | None = None) -> float | None:
-    try:
-        return float(value)
-    except (TypeError, ValueError):
-        return default
-
-
-def as_int(value: Any, default: int | None = None) -> int | None:
-    try:
-        return int(value)
-    except (TypeError, ValueError):
-        return default
-
-
-def sequence_len(value: Any) -> int | None:
-    try:
-        return len(value)
-    except TypeError:
-        return None
-
-
-def sequence_values(value: Any) -> List[float] | None:
-    try:
-        return [float(v) for v in value]
-    except (TypeError, ValueError):
-        return None
-
-
-def approx_equal(a: Any, b: float, tol: float = 1.0e-12) -> bool:
-    value = as_float(a)
-    return value is not None and abs(value - b) <= tol
-
-
-def env_truthy(name: str) -> bool:
-    value = os.environ.get(name)
-    return value is not None and value.strip().lower() in {
-        "1",
-        "yes",
-        "y",
-        "true",
-        "on",
-        "enable",
-        "enabled",
-    }
-
-
-def stable_baseline_differences(mod: Any) -> List[str]:
-    diffs = []
-    for name, expected in STABLE_BASELINE.items():
-        if not hasattr(mod, name):
-            continue
-        actual = get_attr(mod, name, None)
-        if isinstance(expected, float):
-            if not approx_equal(actual, expected):
-                diffs.append(f"{name}={actual!r} (stable baseline: {expected!r})")
-        elif actual != expected:
-            diffs.append(f"{name}={actual!r} (stable baseline: {expected!r})")
-    return diffs
-
-
-def add_membership_check(
-    r: CheckResult,
-    name: str,
-    value: Any,
-    supported: Sequence[Any] | set[Any],
-    *,
-    risk_message: str | None = None,
-    note_message: str | None = None,
-) -> None:
-    if value not in supported:
-        r.add_risk(risk_message or f"Unsupported {name}: {value!r}")
-    elif note_message:
-        r.add_note(note_message)
-
-
-def check_positive_int(r: CheckResult, name: str, value: Any) -> None:
-    parsed = as_int(value)
-    if parsed is None or parsed <= 0:
-        r.add_risk(f"{name} must be a positive integer; got {value!r}")
-
-
-def check_nonnegative_number(r: CheckResult, name: str, value: Any) -> None:
-    parsed = as_float(value)
-    if parsed is None or parsed < 0.0:
-        r.add_risk(f"{name} must be a non-negative number; got {value!r}")
-
-
-def check_grid_geometry(r: CheckResult, mod: Any, grid: str) -> None:
-    grid_level = as_int(get_attr(mod, "grid_level", None))
-    static_grid_level = as_int(get_attr(mod, "static_grid_level", None))
-    moving_grid_level = as_int(get_attr(mod, "moving_grid_level", None))
-    refinement_level = as_int(get_attr(mod, "refinement_level", None))
-    analysis_level = as_int(get_attr(mod, "analysis_level", 0))
-
-    for name in (
-        "grid_level",
-        "static_grid_level",
-        "moving_grid_level",
-        "static_grid_number",
-        "moving_grid_number",
-        "quarter_sphere_number",
-    ):
-        check_positive_int(r, name, get_attr(mod, name, None))
-
-    if grid_level is not None and static_grid_level is not None:
-        if static_grid_level > grid_level:
-            r.add_risk("static_grid_level cannot exceed grid_level.")
-        if moving_grid_level is not None and moving_grid_level != grid_level - static_grid_level:
-            r.add_risk(
-                "moving_grid_level should equal grid_level - static_grid_level; "
-                f"got {moving_grid_level}, expected {grid_level - static_grid_level}."
-            )
-    if grid_level is not None:
-        if refinement_level is None or refinement_level < 0 or refinement_level > grid_level:
-            r.add_risk(f"refinement_level must be in [0, grid_level]; got {refinement_level!r}")
-        if analysis_level is None or analysis_level < 0 or analysis_level >= grid_level:
-            r.add_risk(f"analysis_level must be in [0, grid_level); got {analysis_level!r}")
-
-    largest_max = sequence_values(get_attr(mod, "largest_box_xyz_max", None))
-    largest_min = sequence_values(get_attr(mod, "largest_box_xyz_min", None))
-    if largest_max is None or len(largest_max) != 3:
-        r.add_risk("largest_box_xyz_max must contain three numeric values.")
-    elif any(v <= 0.0 for v in largest_max):
-        r.add_risk(f"largest_box_xyz_max values must be positive; got {largest_max!r}")
-    if largest_min is None or len(largest_min) != 3:
-        r.add_risk("largest_box_xyz_min must contain three numeric values.")
-    elif largest_max is not None and len(largest_max) == 3:
-        for idx, (lo, hi) in enumerate(zip(largest_min, largest_max)):
-            if lo >= hi:
-                r.add_risk(
-                    f"largest_box_xyz_min[{idx}] must be smaller than largest_box_xyz_max[{idx}]."
-                )
-
-    if grid == "Shell-Patch" and largest_max is not None and len(largest_max) == 3:
-        if max(largest_max) - min(largest_max) > 1.0e-12:
-            r.add_risk("Shell-Patch requires a cubic largest_box_xyz_max.")
-
-    if not approx_equal(get_attr(mod, "devide_factor", None), 2.0):
-        r.add_risk("devide_factor must remain 2.0; the AMR code documents only this ratio as supported.")
-    if as_text(get_attr(mod, "static_grid_type", "")) != "Linear":
-        r.add_risk("static_grid_type must remain 'Linear'.")
-    if as_text(get_attr(mod, "moving_grid_type", "")) != "Linear":
-        r.add_risk("moving_grid_type must remain 'Linear'.")
-
-    shell_shape = sequence_values(get_attr(mod, "shell_grid_number", None))
-    if grid == "Shell-Patch":
-        if shell_shape is None or len(shell_shape) != 3:
-            r.add_risk("Shell-Patch requires shell_grid_number with three numeric values.")
-        elif any(int(v) <= 0 for v in shell_shape):
-            r.add_risk(f"shell_grid_number values must be positive; got {shell_shape!r}")
-
-
-def check_punctures(r: CheckResult, mod: Any, init: str, puncture_data: str) -> None:
-    puncture_number = as_int(get_attr(mod, "puncture_number", None))
-    if puncture_number is None or puncture_number <= 0:
-        r.add_risk(f"puncture_number must be a positive integer; got {puncture_number!r}")
-        return
-
-    if init == "Ansorg-TwoPuncture" and puncture_number != 2:
-        r.add_warning(
-            "Ansorg-TwoPuncture is validated on the GPU branch mainly for puncture_number=2."
-        )
-    if puncture_data == "Automatically-BBH":
-        r.add_risk("puncture_data_set='Automatically-BBH' is documented as still developing.")
-
-    for name in ("position_BH", "parameter_BH", "dimensionless_spin_BH", "momentum_BH"):
-        value = get_attr(mod, name, None)
-        outer = sequence_len(value)
-        if outer != puncture_number:
-            r.add_risk(f"{name} must have puncture_number rows; got {outer!r}.")
-            continue
-        for idx in range(puncture_number):
-            if sequence_len(value[idx]) != 3:
-                r.add_risk(f"{name}[{idx}] must contain three values.")
-                break
-
-    if init == "Ansorg-TwoPuncture":
-        for name in ("parameter_BH", "position_BH", "momentum_BH"):
-            if get_attr(mod, name, None) is None:
-                r.add_risk(f"Ansorg-TwoPuncture requires {name}.")
-
-
-def check_output_and_time(r: CheckResult, mod: Any) -> None:
-    for name in (
-        "Final_Evolution_Time",
-        "Check_Time",
-        "Dump_Time",
-        "D2_Dump_Time",
-        "Analysis_Time",
-        "Courant_Factor",
-        "Dissipation",
-    ):
-        check_nonnegative_number(r, name, get_attr(mod, name, None))
-    check_positive_int(r, "Evolution_Step_Number", get_attr(mod, "Evolution_Step_Number", None))
-
-    start_time = as_float(get_attr(mod, "Start_Evolution_Time", None))
-    final_time = as_float(get_attr(mod, "Final_Evolution_Time", None))
-    if start_time is None:
-        r.add_risk("Start_Evolution_Time must be numeric.")
-    elif final_time is not None and final_time <= start_time:
-        r.add_risk("Final_Evolution_Time must be greater than Start_Evolution_Time.")
-
-    for name in ("GW_L_max", "GW_M_max", "Detector_Number"):
-        check_positive_int(r, name, get_attr(mod, name, None))
-    detector_min = as_float(get_attr(mod, "Detector_Rmin", None))
-    detector_max = as_float(get_attr(mod, "Detector_Rmax", None))
-    if detector_min is None or detector_min <= 0.0:
-        r.add_risk(f"Detector_Rmin must be positive; got {detector_min!r}")
-    if detector_max is None or detector_max <= 0.0:
-        r.add_risk(f"Detector_Rmax must be positive; got {detector_max!r}")
-    if detector_min is not None and detector_max is not None and detector_max <= detector_min:
-        r.add_risk("Detector_Rmax must be greater than Detector_Rmin.")
-
-
-def check_equation_specific(r: CheckResult, mod: Any, eq: str, grid: str, fd: str) -> None:
-    if eq == "BSSN":
-        r.add_note("Equation_Class=BSSN is the current validated GPU baseline.")
-    elif eq == "BSSN-EScalar":
-        r.add_warning("BSSN-EScalar has a CUDA path, but it is less broadly validated than BSSN.")
-        fr_choice = as_int(get_attr(mod, "FR_Choice", None))
-        if fr_choice not in {1, 2, 3, 4, 5}:
-            r.add_risk(f"FR_Choice must be one of 1..5 for BSSN-EScalar; got {fr_choice!r}")
-        if approx_equal(get_attr(mod, "FR_a2", None), 0.0):
-            r.add_risk("CUDA BSSN-EScalar requires nonzero FR_a2.")
-        elif not approx_equal(get_attr(mod, "FR_a2", None), 3.0):
-            r.add_warning("CUDA BSSN-EScalar now passes FR_a2 to the kernel, but non-3.0 values need CPU/GPU regression.")
-        for name in ("FR_l2", "FR_phi0", "FR_r0", "FR_sigma0"):
-            check_nonnegative_number(r, name, get_attr(mod, name, None))
-    elif eq == "BSSN-EM":
-        r.add_warning(
-            "BSSN-EM is accepted by the build, but this checker cannot certify its physics/output "
-            "without a CPU/GPU regression run."
-        )
-        if fd == "8th-order":
-            r.add_note("BSSN-EM with 8th-order enables extra CUDA AMR batching defaults.")
-    elif eq == "Z4C":
-        r.add_warning(
-            "Z4C has CUDA support, but the resident path and Shell/CPBC combinations are more constrained."
-        )
-        if grid == "Patch":
-            r.add_warning("Z4C+Patch avoids Shell CPBC, but still needs a dedicated regression test.")
-        else:
-            r.add_warning("Z4C+Shell-Patch uses CPBC/Shell logic and is not the stable BSSN baseline.")
-
-
-def check_runtime_environment(r: CheckResult, mod: Any, eq: str, grid: str, fd: str) -> None:
-    if env_truthy("AMSS_CUDA_BH_INTERP_RESIDENT"):
-        r.add_risk(
-            "AMSS_CUDA_BH_INTERP_RESIDENT is enabled in the environment; this option previously caused "
-            "late-time trajectory drift and should stay off unless explicitly revalidated."
-        )
-    else:
-        r.add_note("AMSS_CUDA_BH_INTERP_RESIDENT is not enabled; this matches the fixed stable default.")
-
-    if eq in {"BSSN", "BSSN-EScalar", "Z4C"}:
-        r.add_note("makefile_and_run.py will default AMSS_CUDA_AMR_RESTRICT_DEVICE=1 for this equation.")
-    if fd in {"2nd-order", "8th-order"}:
-        r.add_warning(
-            f"{fd} disables some interpolation/CUDA-aware MPI fast paths by default; validate performance and output."
-        )
-    if grid == "Shell-Patch":
-        r.add_warning(
-            "Shell-Patch changes runtime defaults and MPI process handling; use at least the script-adjusted 4 MPI ranks."
-        )
-
-    z4c_mrbd = as_int(get_attr(mod, "AMSS_Z4C_MRBD", 0), 0)
-    if z4c_mrbd not in {0, 1, 2}:
-        r.add_risk(f"AMSS_Z4C_MRBD must be 0, 1, or 2; got {z4c_mrbd!r}")
-    elif eq == "Z4C" and z4c_mrbd == 2:
-        r.add_risk("Z4C GPU resident path does not support AMSS_Z4C_MRBD=2.")
-    elif eq == "Z4C" and z4c_mrbd in {0, 1}:
-        r.add_note(f"Z4C will build with AMSS_Z4C_MRBD={z4c_mrbd}.")
-
-
-def check_stable_profile(r: CheckResult, mod: Any) -> None:
-    diffs = stable_baseline_differences(mod)
-    if not diffs:
-        r.add_note("This input matches the documented most stable GPU baseline.")
-        return
-    r.add_warning(
-        "This input differs from the documented most stable GPU baseline: " + "; ".join(diffs)
-    )
-
-
-def check_input(mod: Any) -> CheckResult:
-    r = CheckResult()
-
-    gpu_text = as_lower_text(get_attr(mod, "GPU_Calculation", "no"))
-    gpu = gpu_text == "yes"
-    eq = as_text(get_attr(mod, "Equation_Class", ""))
-    init = as_text(get_attr(mod, "Initial_Data_Method", ""))
-    symmetry = as_text(get_attr(mod, "Symmetry", ""))
-    time_method = as_text(get_attr(mod, "Time_Evolution_Method", ""))
-    grid = as_text(get_attr(mod, "basic_grid_set", ""))
-    center = as_text(get_attr(mod, "grid_center_set", ""))
-    fd = as_text(get_attr(mod, "Finite_Diffenence_Method", ""))
-    gauge = get_attr(mod, "gauge_choice", None)
-    tetrad = get_attr(mod, "tetrad_type", None)
-    ahf = as_text(get_attr(mod, "AHF_Find", "no")).lower()
-    boundary = as_text(get_attr(mod, "boundary_choice", ""))
-    puncture_data = as_text(get_attr(mod, "puncture_data_set", ""))
-    cpu_part = get_attr(mod, "CPU_Part", None)
-    gpu_part = get_attr(mod, "GPU_Part", None)
-
-    if gpu_text not in {"yes", "no"}:
-        r.add_risk(f"GPU_Calculation must be 'yes' or 'no'; got {get_attr(mod, 'GPU_Calculation', None)!r}")
-    if not gpu:
-        r.add_note("GPU_Calculation=no; this check only targets the GPU branch.")
-        return r
-
-    r.add_note("GPU_Calculation=yes detected.")
-
-    add_membership_check(r, "Equation_Class", eq, SUPPORTED_EQUATIONS)
-    add_membership_check(r, "Symmetry", symmetry, SUPPORTED_SYMMETRIES)
-    add_membership_check(r, "Initial_Data_Method", init, SUPPORTED_INITIAL_DATA)
-    add_membership_check(r, "basic_grid_set", grid, SUPPORTED_GRIDS)
-    add_membership_check(r, "grid_center_set", center, SUPPORTED_CENTERS)
-    add_membership_check(r, "Finite_Diffenence_Method", fd, SUPPORTED_FD)
-    add_membership_check(r, "gauge_choice", gauge, SUPPORTED_GAUGES)
-    add_membership_check(r, "tetrad_type", tetrad, SUPPORTED_TETRADS)
-    add_membership_check(r, "AHF_Find", ahf, SUPPORTED_AHF)
-    add_membership_check(r, "boundary_choice", boundary, SUPPORTED_BOUNDARIES)
-    add_membership_check(r, "puncture_data_set", puncture_data, SUPPORTED_PUNCTURE_DATA)
-
-    if init != "Ansorg-TwoPuncture":
-        r.add_risk(
-            f"Initial_Data_Method={init!r} is not validated as safe on this GPU branch; "
-            "the stable path is Ansorg-TwoPuncture."
-        )
-    else:
-        r.add_note("Initial_Data_Method=Ansorg-TwoPuncture is supported.")
-
-    if time_method != "runge-kutta-45":
-        r.add_risk(f"Only Time_Evolution_Method='runge-kutta-45' is supported; got {time_method!r}.")
-    if grid == "Patch":
-        r.add_note("basic_grid_set=Patch is the current stable GPU grid path.")
-    elif grid == "Shell-Patch":
-        r.add_warning("basic_grid_set=Shell-Patch has GPU support but is outside the stable BSSN baseline.")
-    if center == "Vertex":
-        r.add_warning("grid_center_set=Vertex is compiled by macros, but the stable GPU baseline is Cell.")
-    if symmetry != "equatorial-symmetry":
-        r.add_warning("The stable validation case uses equatorial-symmetry; other symmetries need regression tests.")
-    if fd != "4th-order":
-        r.add_warning("The stable validation case uses 4th-order finite differences.")
-    if gauge not in {0, 1}:
-        r.add_warning("Input comments recommend gauge_choice 0 or 1; other gauges need dedicated validation.")
-    if tetrad != 2:
-        r.add_warning("Input comments recommend tetrad_type=2; other tetrads affect wave extraction conventions.")
-
-    if ahf == "yes":
-        r.add_warning("AHF_Find=yes is supported by macros, but it is outside the current stable GPU baseline.")
-
-    if boundary == "Shibata-choice":
-        r.add_risk("Shibata-choice is not faithfully distinguished in the current macro generator; it maps to the BAM branch.")
-    elif boundary == "BAM-choice":
-        r.add_note("boundary_choice=BAM-choice is supported.")
-
-    if cpu_part is not None or gpu_part is not None:
-        r.add_warning("CPU_Part/GPU_Part are printed and propagated, but they do not control a real mixed CPU/GPU split in this branch.")
-
-    check_output_and_time(r, mod)
-    check_grid_geometry(r, mod, grid)
-    check_punctures(r, mod, init, puncture_data)
-    check_equation_specific(r, mod, eq, grid, fd)
-    check_runtime_environment(r, mod, eq, grid, fd)
-    check_stable_profile(r, mod)
-
-    return r
-
-
-def main() -> int:
-    parser = argparse.ArgumentParser()
-    parser.add_argument(
-        "-f",
-        "--file",
-        "--input",
-        dest="input_file",
-        default="AMSS_NCKU_Input.py",
-        help="path to AMSS_NCKU_Input.py",
-    )
-    args = parser.parse_args()
-
-    path = Path(args.input_file).resolve()
-    if not path.exists():
-        print(f"ERROR: input file not found: {path}")
-        return 2
-
-    try:
-        mod = load_input_module(path)
-    except Exception as exc:
-        print(f"ERROR: failed to load input file: {exc}")
-        return 2
-
-    result = check_input(mod)
-
-    print(f"Input: {path}")
-    print(f"GPU_Calculation: {get_attr(mod, 'GPU_Calculation', 'no')}")
-    print(f"Symmetry: {get_attr(mod, 'Symmetry', '')}")
-    print(f"Equation_Class: {get_attr(mod, 'Equation_Class', '')}")
-    print(f"Initial_Data_Method: {get_attr(mod, 'Initial_Data_Method', '')}")
-    print(f"puncture_data_set: {get_attr(mod, 'puncture_data_set', '')}")
-    print(f"basic_grid_set: {get_attr(mod, 'basic_grid_set', '')}")
-    print(f"grid_center_set: {get_attr(mod, 'grid_center_set', '')}")
-    print(f"Finite_Diffenence_Method: {get_attr(mod, 'Finite_Diffenence_Method', '')}")
-    print(f"gauge_choice: {get_attr(mod, 'gauge_choice', '')}")
-    print(f"tetrad_type: {get_attr(mod, 'tetrad_type', '')}")
-    print(f"boundary_choice: {get_attr(mod, 'boundary_choice', '')}")
-    print(f"AHF_Find: {get_attr(mod, 'AHF_Find', '')}")
-    print(f"AMSS_Z4C_MRBD: {get_attr(mod, 'AMSS_Z4C_MRBD', 0)}")
-    print("")
-
-    for msg in result.notes:
-        print(f"NOTE: {msg}")
-    for msg in result.warnings:
-        print(f"WARNING: {msg}")
-    for msg in result.risks:
-        print(f"RISK: {msg}")
-
-    print("")
-    if result.risks:
-        print("Verdict: review the risks above before running.")
-        return 1
-
-    if result.warnings:
-        print("Verdict: runnable on the current GPU branch, but keep the warnings in mind.")
-        return 0
-
-    print("Verdict: OK to run on the current GPU branch.")
-    return 0
-
-
-if __name__ == "__main__":
-    raise SystemExit(main())

AMSS_NCKU_Input.py

@@ -31,7 +31,7 @@ GPU_Part         = 0.0
 ## Setting the physical system and numerical method
 
 Symmetry                 = "equatorial-symmetry"   ## Symmetry of System: choose equatorial-symmetry、no-symmetry、octant-symmetry
-Equation_Class           = "BSSN"                  ## Evolution Equation: choose "BSSN", "BSSN-EScalar", "BSSN-EM", "Z4C" 
+Equation_Class           = "BSSN-EScalar"                  ## Evolution Equation: choose "BSSN", "BSSN-EScalar", "BSSN-EM", "Z4C"
                                                    ## If "BSSN-EScalar" is chosen, it is necessary to set other parameters below
 Initial_Data_Method      = "Ansorg-TwoPuncture"    ## initial data method: choose "Ansorg-TwoPuncture", "Lousto-Analytical", "Cao-Analytical", "KerrSchild-Analytical"
 Time_Evolution_Method    = "runge-kutta-45"        ## time evolution method: choose "runge-kutta-45"
@@ -158,7 +158,7 @@ Detector_Rmax   = 160.0                  ## farest dector distance
 
 ## Setting the apprent horizon
 
-AHF_Find       = "no"                     ## whether to find the apparent horizon: choose "yes" or "no"
+AHF_Find       = "no"                    ## whether to find the apparent horizon: choose "yes" or "no"
 
 AHF_Find_Every = 24
 AHF_Dump_Time  = 20.0

AMSS_NCKU_Program_Plot.py

@@ -1,100 +0,0 @@
-##################################################################
-##
-## AMSS-NCKU Plot-Only Restart Script
-## Author: Xiaoqu / Claude
-## 2026/05/12
-##
-## This script checks for existing output data from AMSS_NCKU_Program.py.
-## If data exists, it skips all computation and goes directly to plotting,
-## saving time when plotting was interrupted.
-## If no data is found, it exits with a message.
-##
-##################################################################
-
-## Guard against re-execution by multiprocessing child processes.
-if __name__ != '__main__':
-    import sys as _sys
-    _sys.exit(0)
-
-
-import os
-import sys
-
-import AMSS_NCKU_Input as input_data
-
-##################################################################
-
-## Construct paths from input configuration
-File_directory         = os.path.join(input_data.File_directory)
-output_directory       = os.path.join(File_directory, "AMSS_NCKU_output")
-binary_results_directory = os.path.join(output_directory, input_data.Output_directory)
-figure_directory       = os.path.join(File_directory, "figure")
-
-##################################################################
-
-## Check whether the required output data files exist
-
-required_files = [
-    os.path.join(binary_results_directory, "bssn_BH.dat"),
-    os.path.join(binary_results_directory, "bssn_ADMQs.dat"),
-    os.path.join(binary_results_directory, "bssn_psi4.dat"),
-    os.path.join(binary_results_directory, "bssn_constraint.dat"),
-]
-
-missing_files = [f for f in required_files if not os.path.exists(f)]
-
-if missing_files:
-    print(" No existing AMSS_NCKU_Program.py output data found. ")
-    print(" The following required files are missing: ")
-    for f in missing_files:
-        print(f"   {f}")
-    print()
-    print(" Please run AMSS_NCKU_Program.py first to generate the simulation data. ")
-    print(" Exiting. ")
-    sys.exit(1)
-
-print(" Found existing AMSS_NCKU_Program.py output data. "          )
-print(" Skipping all computation and going directly to plotting. " )
-print()
-
-## Ensure the figure directory exists (it should, but be safe)
-os.makedirs(figure_directory, exist_ok=True)
-
-##################################################################
-
-## Plot the AMSS-NCKU program results
-
-import plot_xiaoqu
-import plot_GW_strain_amplitude_xiaoqu
-from parallel_plot_helper import run_plot_tasks_parallel
-
-plot_tasks = []
-
-## Plot black hole trajectory
-plot_tasks.append((plot_xiaoqu.generate_puncture_orbit_plot,   (binary_results_directory, figure_directory)))
-plot_tasks.append((plot_xiaoqu.generate_puncture_orbit_plot3D, (binary_results_directory, figure_directory)))
-
-## Plot black hole separation vs. time
-plot_tasks.append((plot_xiaoqu.generate_puncture_distence_plot, (binary_results_directory, figure_directory)))
-
-## Plot gravitational waveforms (psi4 and strain amplitude)
-for i in range(input_data.Detector_Number):
-    plot_tasks.append((plot_xiaoqu.generate_gravitational_wave_psi4_plot, (binary_results_directory, figure_directory, i)))
-    plot_tasks.append((plot_GW_strain_amplitude_xiaoqu.generate_gravitational_wave_amplitude_plot, (binary_results_directory, figure_directory, i)))
-
-## Plot ADM mass evolution
-for i in range(input_data.Detector_Number):
-    plot_tasks.append((plot_xiaoqu.generate_ADMmass_plot, (binary_results_directory, figure_directory, i)))
-
-## Plot Hamiltonian constraint violation over time
-for i in range(input_data.grid_level):
-    plot_tasks.append((plot_xiaoqu.generate_constraint_check_plot, (binary_results_directory, figure_directory, i)))
-
-run_plot_tasks_parallel(plot_tasks)
-
-## Plot stored binary data (runs serially, not in the parallel pool)
-plot_xiaoqu.generate_binary_data_plot(binary_results_directory, figure_directory)
-
-print()
-print(" Plotting completed successfully. ")
-print()

AMSS_NCKU_source/ABE.C

@@ -198,16 +198,16 @@ int main(int argc, char *argv[])
       if (myrank == 0)
       {
             string out_dir;
-            string filename;
-            map<string, string>::iterator iter;
-            iter = parameters::str_par.find("output dir");
-            if (iter != parameters::str_par.end())
-            {
-                  out_dir = iter->second;
-            }
-            filename = out_dir + "/setting.par";
-            ofstream setfile;
-            setfile.open(filename.c_str(), ios::trunc);
+            char filename[50];
+            map<string, string>::iterator iter;
+            iter = parameters::str_par.find("output dir");
+            if (iter != parameters::str_par.end())
+            {
+                  out_dir = iter->second;
+            }
+            sprintf(filename, "%s/setting.par", out_dir.c_str());
+            ofstream setfile;
+            setfile.open(filename, ios::trunc);
 
             if (!setfile.good())
             {
@@ -484,11 +484,7 @@ int main(int argc, char *argv[])
             cout << endl;
       }
 
-      // Let the process teardown reclaim the simulation object.  Some derived
-      // equation classes keep MPI/CUDA-backed state whose destructor ordering
-      // is fragile at program shutdown.
-      if (getenv("AMSS_DELETE_ADM_ON_EXIT"))
-            delete ADM;
+      delete ADM;
 
       //=======================caculation done=============================================================
 

AMSS_NCKU_source/ShellPatch.h

@@ -102,16 +102,6 @@ public:
                  //-1: means no dumy dimension at all; 0: means rho; 1: means sigma
    };
 
-   // Thread-safe search result (no pointers to shared mutable state)
-   struct PointSearchResult
-   {
-      bool found;
-      Block *Bg;
-      double gx, gy, gz; // global Cartesian coordinates
-      double lx, ly, lz; // local coordinates within the found block
-      int ssst;          // source shell-patch type (-1 = Cartesian)
-   };
-
    int myrank;
    int shape[dim];   // for (rho, sigma, R), for rho and sigma means number of points for every pi/2
    double Rrange[2]; // for Rmin and Rmax
@@ -185,12 +175,6 @@ public:
                          MyList<Patch> *Pp, double CDH[dim], MyList<pointstru> *pss);
    bool prolongpointstru(MyList<pointstru> *&psul, bool ssyn, int tsst, MyList<ss_patch> *sPp, double DH[dim],
                          MyList<Patch> *Pp, double CDH[dim], double x, double y, double z, int Symmetry, int rank_in);
-   // Read-only point search — thread-safe (no shared mutable state modified)
-   PointSearchResult prolongpointstru_search(bool ssyn, int tsst, MyList<ss_patch> *sPp, double DH[dim],
-                                             MyList<Patch> *Pp, double CDH[dim], double x, double y, double z,
-                                             int Symmetry, int rank_in);
-   // Append a search result to a linked list — use inside omp critical section
-   void prolongpointstru_append(MyList<pointstru> *&psul, const PointSearchResult &sr, int tsst);
    void setupintintstuff(int cpusize, MyList<Patch> *CPatL, int Symmetry);
    void intertransfer(MyList<pointstru> **src, MyList<pointstru> **dst,
                       MyList<var> *VarList1 /* source */, MyList<var> *VarList2 /*target */,
@@ -211,11 +195,11 @@ public:
    bool Interp_One_Point(MyList<var> *VarList,
                          double *XX, /*input global Cartesian coordinate*/
                          double *Shellf, int Symmetry);
-   void write_Pablo_file_ss(int *ext, double xmin, double xmax, double ymin, double ymax, double zmin, double zmax,
-                            char *filename, int sst);
-   double L2Norm(var *vf);
-   void L2Norm7(var **vf, double *norms);
-   void Find_Maximum(MyList<var> *VarList, double *XX, double *Shellf);
-};
+   void write_Pablo_file_ss(int *ext, double xmin, double xmax, double ymin, double ymax, double zmin, double zmax,
+                            char *filename, int sst);
+   double L2Norm(var *vf);
+   void L2Norm7(var **vf, double *norms);
+   void Find_Maximum(MyList<var> *VarList, double *XX, double *Shellf);
+};
 
 #endif /* SHELLPATCH_H */

AMSS_NCKU_source/bssnEScalar_class.h

@@ -54,17 +54,21 @@ public:
      void Interp_Constraint();
      void Constraint_Out(); 
 
-protected:
-     var *Sphio, *Spio;
-     var *Sphi0, *Spi0;
+protected:
+     var *Sphio, *Spio;
+     var *Sphi0, *Spi0;
      var *Sphi,  *Spi;
      var *Sphi1, *Spi1;
      var *Sphi_rhs, *Spi_rhs;
-
-     var *Cons_fR;
-
-     monitor *MaxScalar_Monitor;
-};
+
+     var *Cons_fR;
+
+     MyList<var> *BSSNStateList, *BSSNSynchList_pre, *BSSNSynchList_cor;
+     MyList<var> *ScalarSynchList_pre, *ScalarSynchList_cor;
+     Parallel::SyncCache *sync_cache_scalar_pre, *sync_cache_scalar_cor;
+
+     monitor *MaxScalar_Monitor;
+};
 
 #endif /* BSSNESCALAR_CLASS_H */
 

AMSS_NCKU_source/bssnEScalar_rhs.f90

@@ -3,11 +3,143 @@
 !! note that the potential for scalar field in F(R) gravity
 !!       is defined in the file Set_Rho_ADM.f90
 
-#include "macrodef.fh"
-
-! rhs for scalar and GR variables
-! here we consider vacuum spacetime only
-  function compute_rhs_bssn_escalar(ex, T,X, Y, Z,                             &
+#include "macrodef.fh"
+
+! scalar RHS and stress-energy only; BSSN RHS can be supplied by CUDA.
+  function compute_rhs_bssn_escalar_matter(ex, T, X, Y, Z,                    &
+               chi    ,   trK    ,                                            &
+               dxx    ,   gxy    ,   gxz    ,   dyy    ,   gyz    ,   dzz,    &
+               Axx    ,   Axy    ,   Axz    ,   Ayy    ,   Ayz    ,   Azz,    &
+               Gamx   ,  Gamy    ,  Gamz    ,                                 &
+               Lap    ,  betax   ,  betay   ,  betaz   ,                      &
+               dtSfx  ,  dtSfy   ,  dtSfz   ,                                 &
+               Sphi   ,   Spi    ,                                            &
+               Sphi_rhs ,   Spi_rhs ,                                         &
+               rho,Sx,Sy,Sz,Sxx,Sxy,Sxz,Syy,Syz,Szz,                          &
+               Symmetry,Lev,eps) result(gont)
+  implicit none
+
+  integer,intent(in ):: ex(1:3), Symmetry,Lev
+  real*8, intent(in ):: T
+  real*8, intent(in ):: X(1:ex(1)),Y(1:ex(2)),Z(1:ex(3))
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(inout) :: chi,dxx,dyy,dzz
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(in ) :: trK
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(in ) :: gxy,gxz,gyz
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(in ) :: Axx,Axy,Axz,Ayy,Ayz,Azz
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(in ) :: Gamx,Gamy,Gamz
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(inout) :: Lap, betax, betay, betaz
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(in ) :: dtSfx,  dtSfy,  dtSfz
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(in ) :: Sphi,Spi
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(out) :: Sphi_rhs,Spi_rhs
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(inout) :: rho,Sx,Sy,Sz
+  real*8, dimension(ex(1),ex(2),ex(3)),intent(inout) :: Sxx,Sxy,Sxz,Syy,Syz,Szz
+  real*8,intent(in) :: eps
+  integer::gont
+
+  real*8, dimension(ex(1),ex(2),ex(3)) :: gxx,gyy,gzz
+  real*8, dimension(ex(1),ex(2),ex(3)) :: chix,chiy,chiz
+  real*8, dimension(ex(1),ex(2),ex(3)) :: Lapx,Lapy,Lapz
+  real*8, dimension(ex(1),ex(2),ex(3)) :: Kx,Ky,Kz,S
+  real*8, dimension(ex(1),ex(2),ex(3)) :: f,fxx,fxy,fxz,fyy,fyz,fzz
+  real*8, dimension(ex(1),ex(2),ex(3)) :: alpn1,chin1
+  real*8, dimension(ex(1),ex(2),ex(3)) :: gupxx,gupxy,gupxz
+  real*8, dimension(ex(1),ex(2),ex(3)) :: gupyy,gupyz,gupzz
+
+  real*8            :: dX
+  real*8, parameter :: ZEO=0.d0, ONE = 1.D0, TWO = 2.D0, HALF = 0.5D0
+  real*8, parameter :: SYM = 1.D0
+
+  dX = sum(chi)+sum(trK)+sum(dxx)+sum(gxy)+sum(gxz)+sum(dyy)+sum(gyz)+sum(dzz) &
+      +sum(Gamx)+sum(Gamy)+sum(Gamz)                                           &
+      +sum(Lap)+sum(Sphi)+sum(Spi)
+  if(dX.ne.dX) then
+     if(sum(chi).ne.sum(chi))write(*,*)"bssn_escalar_matter: find NaN in chi"
+     if(sum(trK).ne.sum(trK))write(*,*)"bssn_escalar_matter: find NaN in trk"
+     if(sum(dxx).ne.sum(dxx))write(*,*)"bssn_escalar_matter: find NaN in dxx"
+     if(sum(gxy).ne.sum(gxy))write(*,*)"bssn_escalar_matter: find NaN in gxy"
+     if(sum(gxz).ne.sum(gxz))write(*,*)"bssn_escalar_matter: find NaN in gxz"
+     if(sum(dyy).ne.sum(dyy))write(*,*)"bssn_escalar_matter: find NaN in dyy"
+     if(sum(gyz).ne.sum(gyz))write(*,*)"bssn_escalar_matter: find NaN in gyz"
+     if(sum(dzz).ne.sum(dzz))write(*,*)"bssn_escalar_matter: find NaN in dzz"
+     if(sum(Gamx).ne.sum(Gamx))write(*,*)"bssn_escalar_matter: find NaN in Gamx"
+     if(sum(Gamy).ne.sum(Gamy))write(*,*)"bssn_escalar_matter: find NaN in Gamy"
+     if(sum(Gamz).ne.sum(Gamz))write(*,*)"bssn_escalar_matter: find NaN in Gamz"
+     if(sum(Lap).ne.sum(Lap))write(*,*)"bssn_escalar_matter: find NaN in Lap"
+     if(sum(Sphi).ne.sum(Sphi))write(*,*)"bssn_escalar_matter: find NaN in Sphi"
+     if(sum(Spi).ne.sum(Spi))write(*,*)"bssn_escalar_matter: find NaN in Spi"
+     gont = 1
+     return
+  endif
+
+  alpn1 = Lap + ONE
+  chin1 = chi + ONE
+  gxx = dxx + ONE
+  gyy = dyy + ONE
+  gzz = dzz + ONE
+
+  call fderivs(ex,chi,chix,chiy,chiz,X,Y,Z,SYM,SYM,SYM,Symmetry,Lev)
+  call fderivs(ex,Lap,Lapx,Lapy,Lapz,X,Y,Z,SYM,SYM,SYM,Symmetry,Lev)
+
+  gupzz =  gxx * gyy * gzz + gxy * gyz * gxz + gxz * gxy * gyz - &
+           gxz * gyy * gxz - gxy * gxy * gzz - gxx * gyz * gyz
+  gupxx =   ( gyy * gzz - gyz * gyz ) / gupzz
+  gupxy = - ( gxy * gzz - gyz * gxz ) / gupzz
+  gupxz =   ( gxy * gyz - gyy * gxz ) / gupzz
+  gupyy =   ( gxx * gzz - gxz * gxz ) / gupzz
+  gupyz = - ( gxx * gyz - gxy * gxz ) / gupzz
+  gupzz =   ( gxx * gyy - gxy * gxy ) / gupzz
+
+#if 1
+  Sphi_rhs = alpn1 * Spi
+  call fderivs(ex,Sphi,Kx,Ky,Kz,X,Y,Z,SYM,SYM,SYM,Symmetry,Lev)
+  call fdderivs(ex,Sphi,fxx,fxy,fxz,fyy,fyz,fzz,X,Y,Z,SYM,SYM,SYM,Symmetry,Lev)
+  Spi_rhs =   gupxx * fxx + gupyy * fyy + gupzz * fzz +           &
+             ( gupxy * fxy + gupxz * fxz + gupyz * fyz ) * TWO -  &
+             ((Gamx+(gupxx*chix+gupxy*chiy+gupxz*chiz)/TWO/chin1)*Kx  &
+            + (Gamy+(gupxy*chix+gupyy*chiy+gupyz*chiz)/TWO/chin1)*Ky  &
+            + (Gamz+(gupxz*chix+gupyz*chiy+gupzz*chiz)/TWO/chin1)*Kz)
+  Spi_rhs = Spi_rhs*alpn1 +                                      &
+            (gupxx*Lapx*Kx + gupxy*Lapx*Ky + gupxz*Lapx*Kz       &
+            +gupxy*Lapy*Kx + gupyy*Lapy*Ky + gupyz*Lapy*Kz       &
+            +gupxz*Lapz*Kx + gupyz*Lapz*Ky + gupzz*Lapz*Kz)
+
+  call frpotential(ex,Sphi,f,S)
+  Spi_rhs = Spi_rhs*chin1 + alpn1*(trK*Spi - S)
+  rho = chin1*((gupxx * Kx * Kx + gupyy * Ky * Ky + gupzz * Kz * Kz)/TWO + &
+                gupxy * Kx * Ky + gupxz * Kx * Kz + gupyz * Ky * Kz )      &
+        + Spi*Spi/TWO+f
+  Sx = -Spi*Kx
+  Sy = -Spi*Ky
+  Sz = -Spi*Kz
+  f = (rho - Spi*Spi)/chin1
+  Sxx = Kx*Kx-f*gxx
+  Sxy = Kx*Ky-f*gxy
+  Sxz = Kx*Kz-f*gxz
+  Syy = Ky*Ky-f*gyy
+  Syz = Ky*Kz-f*gyz
+  Szz = Kz*Kz-f*gzz
+#else
+  Sphi_rhs = ZEO
+  Spi_rhs = ZEO
+  rho = ZEO
+  Sx = ZEO
+  Sy = ZEO
+  Sz = ZEO
+  Sxx = ZEO
+  Sxy = ZEO
+  Sxz = ZEO
+  Syy = ZEO
+  Syz = ZEO
+  Szz = ZEO
+#endif
+
+  gont = 0
+  return
+end function compute_rhs_bssn_escalar_matter
+
+! rhs for scalar and GR variables
+! here we consider vacuum spacetime only
+  function compute_rhs_bssn_escalar(ex, T,X, Y, Z,                             &
                chi    ,   trK    ,                                             &
                dxx    ,   gxy    ,   gxz    ,   dyy    ,   gyz    ,   dzz,     &
                Axx    ,   Axy    ,   Axz    ,   Ayy    ,   Ayz    ,   Azz,     &

AMSS_NCKU_source/bssn_class.h

@@ -144,7 +144,7 @@ public:
        bssn_class(double Couranti, double StartTimei, double TotalTimei, double DumpTimei, double d2DumpTimei, double CheckTimei, double AnasTimei,
                   int Symmetryi, int checkruni, char *checkfilenamei, double numepssi, double numepsbi, double numepshi,
                   int a_levi, int maxli, int decni, double maxrexi, double drexi);
-       virtual ~bssn_class();
+       ~bssn_class();
 
        void Evolve(int Steps);
        void RecursiveStep(int lev);
@@ -178,14 +178,17 @@ public:
        virtual void Initialize();
        virtual void Read_Ansorg();
        virtual void Read_Pablo() {};
-       virtual void Compute_Psi4(int lev);
-       virtual void Step(int lev, int YN);
-       virtual void Interp_Constraint(bool infg);
-       virtual void Constraint_Out();
-       virtual void Compute_Constraint();
-
-#ifdef With_AHF
-protected:
+       virtual void Compute_Psi4(int lev);
+       virtual void Step(int lev, int YN);
+       virtual void Interp_Constraint(bool infg);
+       virtual void Constraint_Out();
+       virtual void Compute_Constraint();
+
+protected:
+       void Initialize_Level_Runtime();
+
+#ifdef With_AHF
+protected:
        MyList<var> *AHList, *AHDList, *GaugeList;
        int AHfindevery;
        double AHdumptime;

AMSS_NCKU_source/bssn_gpu.h

@@ -1,56 +0,0 @@
-
-#ifndef BSSN_GPU_H_
-#define BSSN_GPU_H_
-#include "bssn_macro.h"
-#include "macrodef.h"
-
-#define DEVICE_ID 0
-// #define DEVICE_ID_BY_MPI_RANK
-#define GRID_DIM 256
-#define BLOCK_DIM 128
-
-#define _FH2_(i, j, k) fh[(i) + (j) * _1D_SIZE[2] + (k) * _2D_SIZE[2]]
-#define _FH3_(i, j, k) fh[(i) + (j) * _1D_SIZE[3] + (k) * _2D_SIZE[3]]
-#define pow2(x) ((x) * (x))
-#define TimeBetween(a, b) ((b.tv_sec - a.tv_sec) + (b.tv_usec - a.tv_usec) / 1000000.0f)
-#define M_ metac.
-#define Mh_ meta->
-#define Ms_ metassc.
-#define Msh_ metass->
-
-// #define TIMING
-
-#define RHS_SS_PARA int calledby, int mpi_rank, int *ex, double &T, double *crho, double *sigma, double *R, double *X, double *Y, double *Z, double *drhodx, double *drhody, double *drhodz, double *dsigmadx, double *dsigmady, double *dsigmadz, double *dRdx, double *dRdy, double *dRdz, double *drhodxx, double *drhodxy, double *drhodxz, double *drhodyy, double *drhodyz, double *drhodzz, double *dsigmadxx, double *dsigmadxy, double *dsigmadxz, double *dsigmadyy, double *dsigmadyz, double *dsigmadzz, double *dRdxx, double *dRdxy, double *dRdxz, double *dRdyy, double *dRdyz, double *dRdzz, double *chi, double *trK, double *dxx, double *gxy, double *gxz, double *dyy, double *gyz, double *dzz, double *Axx, double *Axy, double *Axz, double *Ayy, double *Ayz, double *Azz, double *Gamx, double *Gamy, double *Gamz, double *Lap, double *betax, double *betay, double *betaz, double *dtSfx, double *dtSfy, double *dtSfz, double *chi_rhs, double *trK_rhs, double *gxx_rhs, double *gxy_rhs, double *gxz_rhs, double *gyy_rhs, double *gyz_rhs, double *gzz_rhs, double *Axx_rhs, double *Axy_rhs, double *Axz_rhs, double *Ayy_rhs, double *Ayz_rhs, double *Azz_rhs, double *Gamx_rhs, double *Gamy_rhs, double *Gamz_rhs, double *Lap_rhs, double *betax_rhs, double *betay_rhs, double *betaz_rhs, double *dtSfx_rhs, double *dtSfy_rhs, double *dtSfz_rhs, double *rho, double *Sx, double *Sy, double *Sz, double *Sxx, double *Sxy, double *Sxz, double *Syy, double *Syz, double *Szz, double *Gamxxx, double *Gamxxy, double *Gamxxz, double *Gamxyy, double *Gamxyz, double *Gamxzz, double *Gamyxx, double *Gamyxy, double *Gamyxz, double *Gamyyy, double *Gamyyz, double *Gamyzz, double *Gamzxx, double *Gamzxy, double *Gamzxz, double *Gamzyy, double *Gamzyz, double *Gamzzz, double *Rxx, double *Rxy, double *Rxz, double *Ryy, double *Ryz, double *Rzz, double *ham_Res, double *movx_Res, double *movy_Res, double *movz_Res, double *Gmx_Res, double *Gmy_Res, double *Gmz_Res, int &Symmetry, int &Lev, double &eps, int &sst, int &co
-
-/**  main function */
-int gpu_rhs(int calledby, int mpi_rank, int *ex, double &T,
-            double *X, double *Y, double *Z,
-            double *chi, double *trK,
-            double *dxx, double *gxy, double *gxz, double *dyy, double *gyz, double *dzz,
-            double *Axx, double *Axy, double *Axz, double *Ayy, double *Ayz, double *Azz,
-            double *Gamx, double *Gamy, double *Gamz,
-            double *Lap, double *betax, double *betay, double *betaz,
-            double *dtSfx, double *dtSfy, double *dtSfz,
-            double *chi_rhs, double *trK_rhs,
-            double *gxx_rhs, double *gxy_rhs, double *gxz_rhs, double *gyy_rhs, double *gyz_rhs, double *gzz_rhs,
-            double *Axx_rhs, double *Axy_rhs, double *Axz_rhs, double *Ayy_rhs, double *Ayz_rhs, double *Azz_rhs,
-            double *Gamx_rhs, double *Gamy_rhs, double *Gamz_rhs,
-            double *Lap_rhs, double *betax_rhs, double *betay_rhs, double *betaz_rhs,
-            double *dtSfx_rhs, double *dtSfy_rhs, double *dtSfz_rhs,
-            double *rho, double *Sx, double *Sy, double *Sz, double *Sxx,
-            double *Sxy, double *Sxz, double *Syy, double *Syz, double *Szz,
-            double *Gamxxx, double *Gamxxy, double *Gamxxz, double *Gamxyy, double *Gamxyz, double *Gamxzz,
-            double *Gamyxx, double *Gamyxy, double *Gamyxz, double *Gamyyy, double *Gamyyz, double *Gamyzz,
-            double *Gamzxx, double *Gamzxy, double *Gamzxz, double *Gamzyy, double *Gamzyz, double *Gamzzz,
-            double *Rxx, double *Rxy, double *Rxz, double *Ryy, double *Ryz, double *Rzz,
-            double *ham_Res, double *movx_Res, double *movy_Res, double *movz_Res,
-            double *Gmx_Res, double *Gmy_Res, double *Gmz_Res,
-            int &Symmetry, int &Lev, double &eps, int &co);
-
-int gpu_rhs_ss(RHS_SS_PARA);
-
-#define Z4C_SS_PARA int calledby, int mpi_rank, int *ex, double &T, double *crho, double *sigma, double *R, double *X, double *Y, double *Z, double *drhodx, double *drhody, double *drhodz, double *dsigmadx, double *dsigmady, double *dsigmadz, double *dRdx, double *dRdy, double *dRdz, double *drhodxx, double *drhodxy, double *drhodxz, double *drhodyy, double *drhodyz, double *drhodzz, double *dsigmadxx, double *dsigmadxy, double *dsigmadxz, double *dsigmadyy, double *dsigmadyz, double *dsigmadzz, double *dRdxx, double *dRdxy, double *dRdxz, double *dRdyy, double *dRdyz, double *dRdzz, double *chi, double *trK, double *dxx, double *gxy, double *gxz, double *dyy, double *gyz, double *dzz, double *Axx, double *Axy, double *Axz, double *Ayy, double *Ayz, double *Azz, double *Gamx, double *Gamy, double *Gamz, double *Lap, double *betax, double *betay, double *betaz, double *dtSfx, double *dtSfy, double *dtSfz, double *TZ, double *chi_rhs, double *trK_rhs, double *gxx_rhs, double *gxy_rhs, double *gxz_rhs, double *gyy_rhs, double *gyz_rhs, double *gzz_rhs, double *Axx_rhs, double *Axy_rhs, double *Axz_rhs, double *Ayy_rhs, double *Ayz_rhs, double *Azz_rhs, double *Gamx_rhs, double *Gamy_rhs, double *Gamz_rhs, double *Lap_rhs, double *betax_rhs, double *betay_rhs, double *betaz_rhs, double *dtSfx_rhs, double *dtSfy_rhs, double *dtSfz_rhs, double *TZ_rhs, double *rho, double *Sx, double *Sy, double *Sz, double *Sxx, double *Sxy, double *Sxz, double *Syy, double *Syz, double *Szz, double *Gamxxx, double *Gamxxy, double *Gamxxz, double *Gamxyy, double *Gamxyz, double *Gamxzz, double *Gamyxx, double *Gamyxy, double *Gamyxz, double *Gamyyy, double *Gamyyz, double *Gamyzz, double *Gamzxx, double *Gamzxy, double *Gamzxz, double *Gamzyy, double *Gamzyz, double *Gamzzz, double *Rxx, double *Rxy, double *Rxz, double *Ryy, double *Ryz, double *Rzz, double *ham_Res, double *movx_Res, double *movy_Res, double *movz_Res, double *Gmx_Res, double *Gmy_Res, double *Gmz_Res, int &Symmetry, int &Lev, double &eps, int &sst, int &co
-
-int gpu_rhs_z4c_ss(Z4C_SS_PARA);
-
-#endif

AMSS_NCKU_source/bssn_gpu_rhs_ss.cu

@@ -20,14 +20,12 @@ using namespace std;
 
 __device__ volatile unsigned int global_count = 0;
 
-#ifdef RESULT_CHECK
 void compare_result_gpu(int ftag1,double * datac,int data_num){
 	double * data = (double*)malloc(sizeof(double)*data_num);
 	cudaMemcpy(data, datac, data_num * sizeof(double), cudaMemcpyDeviceToHost);
 	compare_result(ftag1,data,data_num);
 	free(data);
 }
-#endif
 
 __global__ void sub_symmetry_bd_ss_partF(int ord, double * func, double *funcc)
 {
@@ -155,11 +153,11 @@ __global__ void sub_symmetry_bd_ss_partJ(int ord,double * func, double * funcc,d
 
 inline void sub_symmetry_bd_ss(int ord,double * func, double * funcc,double * SoA){
 	sub_symmetry_bd_ss_partF<<<GRID_DIM,BLOCK_DIM>>>(ord,func,funcc);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	sub_symmetry_bd_ss_partI<<<GRID_DIM,BLOCK_DIM>>>(ord,func,funcc,SoA[0]);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	sub_symmetry_bd_ss_partJ<<<GRID_DIM,BLOCK_DIM>>>(ord,func,funcc,SoA[1]);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 }
 
 __global__ void sub_fderivs_shc_part1(double *fx,double *fy,double *fz){
@@ -249,13 +247,13 @@ inline void sub_fderivs_shc(int& sst,double * f,double * fh,double *fx,double *f
 	//cudaMemset(Msh_ gy,0,h_3D_SIZE[0] * sizeof(double));
 	//cudaMemset(Msh_ gz,0,h_3D_SIZE[0] * sizeof(double));
 	sub_symmetry_bd_ss(2,f,fh,SoA1);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 			//compare_result_gpu(0,fh,h_3D_SIZE[2]);	
 	sub_fderivs_sh<<<GRID_DIM,BLOCK_DIM>>>(fh,Msh_ gx,Msh_ gy,Msh_ gz);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 	sub_fderivs_shc_part1<<<GRID_DIM,BLOCK_DIM>>>(fx,fy,fz);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 			//compare_result_gpu(1,fx,h_3D_SIZE[0]);
 			//compare_result_gpu(2,fy,h_3D_SIZE[0]);
 			//compare_result_gpu(3,fz,h_3D_SIZE[0]);
@@ -453,17 +451,17 @@ inline void sub_fdderivs_shc(int& sst,double * f,double * fh,
 	
 	//fderivs_sh
 	sub_symmetry_bd_ss(2,f,fh,SoA1);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 			//compare_result_gpu(1,fh,h_3D_SIZE[2]);	
 	sub_fderivs_sh<<<GRID_DIM,BLOCK_DIM>>>(fh,Msh_ gx,Msh_ gy,Msh_ gz);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 	//fdderivs_sh
 	sub_symmetry_bd_ss(2,f,fh,SoA1);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 			//compare_result_gpu(21,fh,h_3D_SIZE[2]);
 	sub_fdderivs_sh<<<GRID_DIM,BLOCK_DIM>>>(fh,Msh_ gxx,Msh_ gxy,Msh_ gxz,Msh_ gyy,Msh_ gyz,Msh_ gzz);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 			/*compare_result_gpu(11,Msh_ gx,h_3D_SIZE[0]);
 			compare_result_gpu(12,Msh_ gy,h_3D_SIZE[0]);
 			compare_result_gpu(13,Msh_ gz,h_3D_SIZE[0]);
@@ -474,7 +472,7 @@ inline void sub_fdderivs_shc(int& sst,double * f,double * fh,
 			compare_result_gpu(5,Msh_ gyz,h_3D_SIZE[0]);
 			compare_result_gpu(6,Msh_ gzz,h_3D_SIZE[0]);*/
 	sub_fdderivs_shc_part1<<<GRID_DIM,BLOCK_DIM>>>(fxx,fxy,fxz,fyy,fyz,fzz);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 			/*compare_result_gpu(1,fxx,h_3D_SIZE[0]);
 			compare_result_gpu(2,fxy,h_3D_SIZE[0]);
 			compare_result_gpu(3,fxz,h_3D_SIZE[0]);
@@ -498,9 +496,9 @@ __global__ void computeRicci_ss_part1(double * dst)
  inline void computeRicci_ss(int &sst,double * src,double* dst,double * SoA, Meta* meta)
 {
 	sub_fdderivs_shc(sst,src,Mh_ fh,Mh_ fxx,Mh_ fxy,Mh_ fxz,Mh_ fyy,Mh_ fyz,Mh_ fzz,SoA);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	computeRicci_ss_part1<<<GRID_DIM,BLOCK_DIM>>>(dst);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 }
 __global__ void sub_lopsided_ss_part1(double * dst)
@@ -518,9 +516,9 @@ __global__ void sub_lopsided_ss_part1(double * dst)
 inline void sub_lopsided_ss(int& sst,double *src,double* dst,double *SoA)
 {
 		sub_fderivs_shc(sst,src,Mh_ fh,Mh_ fxx,Mh_ fxy,Mh_ fxz,SoA);
-		cudaDeviceSynchronize();
+		cudaThreadSynchronize();
 		sub_lopsided_ss_part1<<<GRID_DIM,BLOCK_DIM>>>(dst);
-		cudaDeviceSynchronize();
+		cudaThreadSynchronize();
 }
 
 __global__ void sub_kodis_sh_part1(double *f,double *fh,double *f_rhs)
@@ -592,11 +590,11 @@ inline void sub_kodis_ss(int &sst,double *f,double *fh,double *f_rhs,double *SoA
 	}
 			//compare_result_gpu(10,f,h_3D_SIZE[0]);
 	sub_symmetry_bd_ss(3,f,fh,SoA1);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 			//compare_result_gpu(0,fh,h_3D_SIZE[3]);
 			
 	sub_kodis_sh_part1<<<GRID_DIM,BLOCK_DIM>>>(f,fh,f_rhs);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 			//compare_result_gpu(1,f_rhs,h_3D_SIZE[0]);
 }
 
@@ -1701,7 +1699,7 @@ void destroy_meta(Meta *meta,Metass *metass)
 	if(Msh_ gzz) cudaFree(Msh_ gzz);
 	
 #if (GAUGE == 2 || GAUGE == 3 || GAUGE == 4 || GAUGE == 5 || GAUGE == 6 || GAUGE == 7)
-	if(Mh_ reta) cudaFree(Mh_ reta);
+	if(Mh_ reta) CUDA_SAFE_CALL(cudaFree(Mh_ reta));
 
 #endif	
 	
@@ -1897,7 +1895,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
 
 	//1.2 local Data
 	cudaMalloc((void**)&(Mh_ gxx), matrix_size * sizeof(double));
-	cudaMalloc((void**)&(Mh_ gyy), matrix_size * sizeof(double));
+	CUDA_SAFE_CALL( cudaMalloc((void**)&(Mh_ gyy), matrix_size * sizeof(double)));
 	cudaMalloc((void**)&(Mh_ gzz), matrix_size * sizeof(double));
 	cudaMalloc((void**)&(Mh_ chix), matrix_size * sizeof(double));
 	cudaMalloc((void**)&(Mh_ chiy), matrix_size * sizeof(double));
@@ -2162,7 +2160,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
 	
 	double tmp_con2 = 1/Mass[0] - tmp_con;
 	cudaMemcpyToSymbol(C1, &tmp_con2, sizeof(double));
-	tmp_con2 = 1/Mass[1] - tmp_con;
+	double tmp_con2 = 1/Mass[1] - tmp_con;
 	cudaMemcpyToSymbol(C2, &tmp_con2, sizeof(double));
 		
 
@@ -2235,7 +2233,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
   		if((sst == 2 || sst == 4) && abs[1] < dYh) 
   		{
   			ijkmin_h[1] = -2; 
-  			ijkmin3_h[1] = -3;
+  			ijkmin_h[1] = -3;
   		}
   		if((sst == 3 || sst == 5) && abs_Y_ex2 < dYh)
   		{
@@ -2289,13 +2287,13 @@ int gpu_rhs_ss(RHS_SS_PARA)
 
 
 #ifdef TIMING1
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	gettimeofday(&tv2, NULL);
    	cout<<"TIME USED"<<TimeBetween(tv1, tv2)<<endl; 
 #endif	
 	//cout<<"GPU meta data ready.\n";
 	
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 
 
 //-------------get device info-------------------------------------
@@ -2308,7 +2306,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
 	//sub_enforce_ga(matrix_size);
 	//4.1-----compute rhs---------
 	compute_rhs_ss_part1<<<GRID_DIM,BLOCK_DIM>>>();
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 
 	sub_fderivs_shc(sst,Mh_ betax,Mh_ fh,Mh_ betaxx,Mh_ betaxy,Mh_ betaxz,ass);
 	sub_fderivs_shc(sst,Mh_ betay,Mh_ fh,Mh_ betayx,Mh_ betayy,Mh_ betayz,sas);
@@ -2324,7 +2322,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
 	sub_fderivs_shc(sst,Mh_ gyz,Mh_ fh,Mh_ gyzx,Mh_ gyzy,Mh_ gyzz, saa);
 	
 	compute_rhs_ss_part2<<<GRID_DIM,BLOCK_DIM>>>();
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 	sub_fdderivs_shc(sst,Mh_ betax,Mh_ fh,Mh_ gxxx,Mh_ gxyx,Mh_ gxzx,Mh_ gyyx,Mh_ gyzx,Mh_ gzzx,ass);
 	sub_fdderivs_shc(sst,Mh_ betay,Mh_ fh,Mh_ gxxy,Mh_ gxyy,Mh_ gxzy,Mh_ gyyy,Mh_ gyzy,Mh_ gzzy,sas);
@@ -2334,7 +2332,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
 	sub_fderivs_shc( sst,Mh_ Gamz, Mh_ fh,Mh_ Gamzx, Mh_ Gamzy, Mh_ Gamzz,ssa);
 	
 	compute_rhs_ss_part3<<<GRID_DIM,BLOCK_DIM>>>();
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 	computeRicci_ss(sst,Mh_ dxx,Mh_ Rxx,sss, meta);
 	computeRicci_ss(sst,Mh_ dyy,Mh_ Ryy,sss, meta);
@@ -2342,25 +2340,25 @@ int gpu_rhs_ss(RHS_SS_PARA)
 	computeRicci_ss(sst,Mh_ gxy,Mh_ Rxy,aas, meta);
 	computeRicci_ss(sst,Mh_ gxz,Mh_ Rxz,asa, meta);
 	computeRicci_ss(sst,Mh_ gyz,Mh_ Ryz,saa, meta);
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 	compute_rhs_ss_part4<<<GRID_DIM,BLOCK_DIM>>>();
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 	sub_fdderivs_shc(sst,Mh_ chi,Mh_ fh,Mh_ fxx,Mh_ fxy,Mh_ fxz,Mh_ fyy,Mh_ fyz,Mh_ fzz,sss);
 	
-	//cudaDeviceSynchronize();
+	//cudaThreadSynchronize();
 	//compare_result_gpu(0,Mh_ chi,h_3D_SIZE[0]);
 	//compare_result_gpu(1,Mh_ chi,h_3D_SIZE[0]);
 	//compare_result_gpu(2,Mh_ fyz,h_3D_SIZE[0]);
 	
 	compute_rhs_ss_part5<<<GRID_DIM,BLOCK_DIM>>>();
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 	sub_fdderivs_shc(sst,Mh_ Lap,Mh_ fh,Mh_ fxx,Mh_ fxy,Mh_ fxz,Mh_ fyy,Mh_ fyz,Mh_ fzz,sss);
 	
 	compute_rhs_ss_part6<<<GRID_DIM,BLOCK_DIM>>>();
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	
 #if (GAUGE == 2 || GAUGE == 3 || GAUGE == 4 || GAUGE == 5)
 	sub_fderivs_shc(sst,Mh_ chi,Mh_ fh, Mh_ dtSfx_rhs, Mh_ dtSfy_rhs, Mh_ dtSfz_rhs,sss);
@@ -2425,7 +2423,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
 	}
 	if(co == 0){
 		compute_rhs_ss_part7<<<GRID_DIM,BLOCK_DIM>>>();
-		cudaDeviceSynchronize();
+		cudaThreadSynchronize();
 
 		sub_fderivs_shc(sst,Mh_ Axx,Mh_ fh,Mh_ gxxx,Mh_ gxxy,Mh_ gxxz,sss);
 		sub_fderivs_shc(sst,Mh_ Axy,Mh_ fh,Mh_ gxyx,Mh_ gxyy,Mh_ gxyz,aas);
@@ -2434,7 +2432,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
 		sub_fderivs_shc(sst,Mh_ Ayz,Mh_ fh,Mh_ gyzx,Mh_ gyzy,Mh_ gyzz,saa);
 		sub_fderivs_shc(sst,Mh_ Azz,Mh_ fh,Mh_ gzzx,Mh_ gzzy,Mh_ gzzz,sss);
 		compute_rhs_ss_part8<<<GRID_DIM,BLOCK_DIM>>>();
-		cudaDeviceSynchronize();
+		cudaThreadSynchronize();
 	}
 	
 #if (ABV == 1)
@@ -2514,7 +2512,7 @@ int gpu_rhs_ss(RHS_SS_PARA)
 	//test kodis
 	//sub_kodis_sh(sst,Msh_ drhodx,Mh_ fh2,Msh_ drhody,sss);
 #ifdef TIMING
-	cudaDeviceSynchronize();
+	cudaThreadSynchronize();
 	gettimeofday(&tv2, NULL);
    	cout<<"MPI rank is: "<<mpi_rank<<" GPU TIME is"<<TimeBetween(tv1, tv2)<<" (s)."<<endl; 
 #endif
@@ -2524,55 +2522,4 @@ int gpu_rhs_ss(RHS_SS_PARA)
 	return 0;//TODO return
 }
 
-#if (ABEtype == 2)
-// Z4C Shell GPU: calls BSSN gpu_rhs_ss with trKd=trK+2*TZ, then applies
-// TZ_rhs = alpn1*Hcon/2 and constraint damping on CPU.
-int gpu_rhs_z4c_ss(Z4C_SS_PARA)
-{
-    int matrix_size = ex[0] * ex[1] * ex[2];
-    double k1 = 0.02, k2 = 0.0;
-
-    double *trKd_host = new double[matrix_size];
-    for (int _i = 0; _i < matrix_size; _i++)
-        trKd_host[_i] = trK[_i] + 2.0 * TZ[_i];
-
-    int result = gpu_rhs_ss(calledby, mpi_rank,
-        ex, T, crho, sigma, R, X, Y, Z,
-        drhodx, drhody, drhodz, dsigmadx, dsigmady, dsigmadz,
-        dRdx, dRdy, dRdz,
-        drhodxx, drhodxy, drhodxz, drhodyy, drhodyz, drhodzz,
-        dsigmadxx, dsigmadxy, dsigmadxz, dsigmadyy, dsigmadyz, dsigmadzz,
-        dRdxx, dRdxy, dRdxz, dRdyy, dRdyz, dRdzz,
-        chi, trKd_host, dxx, gxy, gxz, dyy, gyz, dzz,
-        Axx, Axy, Axz, Ayy, Ayz, Azz,
-        Gamx, Gamy, Gamz,
-        Lap, betax, betay, betaz,
-        dtSfx, dtSfy, dtSfz,
-        chi_rhs, trK_rhs,
-        gxx_rhs, gxy_rhs, gxz_rhs, gyy_rhs, gyz_rhs, gzz_rhs,
-        Axx_rhs, Axy_rhs, Axz_rhs, Ayy_rhs, Ayz_rhs, Azz_rhs,
-        Gamx_rhs, Gamy_rhs, Gamz_rhs,
-        Lap_rhs, betax_rhs, betay_rhs, betaz_rhs,
-        dtSfx_rhs, dtSfy_rhs, dtSfz_rhs,
-        rho, Sx, Sy, Sz, Sxx, Sxy, Sxz, Syy, Syz, Szz,
-        Gamxxx, Gamxxy, Gamxxz, Gamxyy, Gamxyz, Gamxzz,
-        Gamyxx, Gamyxy, Gamyxz, Gamyyy, Gamyyz, Gamyzz,
-        Gamzxx, Gamzxy, Gamzxz, Gamzyy, Gamzyz, Gamzzz,
-        Rxx, Rxy, Rxz, Ryy, Ryz, Rzz,
-        ham_Res, movx_Res, movy_Res, movz_Res,
-        Gmx_Res, Gmy_Res, Gmz_Res,
-        Symmetry, Lev, eps, sst, co);
-    delete[] trKd_host;
-    if (result != 0) return result;
-
-    for (int _i = 0; _i < matrix_size; _i++) {
-        double alp = Lap[_i] + 1.0;
-        TZ_rhs[_i] = alp * ham_Res[_i] * 0.5;
-        TZ_rhs[_i]  -= alp * (2.0 + k2) * k1 * TZ[_i];
-        trK_rhs[_i] += alp * k1 * (1.0 - k2) * TZ[_i];
-    }
-    return 0;
-}
-#endif // ABEtype == 2
-
 #endif //WithShell

AMSS_NCKU_source/bssn_rhs.h

@@ -5,8 +5,9 @@
 #ifdef fortran1
 #define f_compute_rhs_bssn compute_rhs_bssn
 #define f_compute_rhs_bssn_ss compute_rhs_bssn_ss
-#define f_compute_rhs_bssn_escalar compute_rhs_bssn_escalar
-#define f_compute_rhs_bssn_escalar_ss compute_rhs_bssn_escalar_ss
+#define f_compute_rhs_bssn_escalar compute_rhs_bssn_escalar
+#define f_compute_rhs_bssn_escalar_matter compute_rhs_bssn_escalar_matter
+#define f_compute_rhs_bssn_escalar_ss compute_rhs_bssn_escalar_ss
 #define f_compute_rhs_Z4c compute_rhs_z4c
 #define f_compute_rhs_Z4cnot compute_rhs_z4cnot
 #define f_compute_rhs_Z4c_ss compute_rhs_z4c_ss
@@ -15,8 +16,9 @@
 #ifdef fortran2
 #define f_compute_rhs_bssn COMPUTE_RHS_BSSN
 #define f_compute_rhs_bssn_ss COMPUTE_RHS_BSSN_SS
-#define f_compute_rhs_bssn_escalar COMPUTE_RHS_BSSN_ESCALAR
-#define f_compute_rhs_bssn_escalar_ss COMPUTE_RHS_BSSN_ESCALAR_SS
+#define f_compute_rhs_bssn_escalar COMPUTE_RHS_BSSN_ESCALAR
+#define f_compute_rhs_bssn_escalar_matter COMPUTE_RHS_BSSN_ESCALAR_MATTER
+#define f_compute_rhs_bssn_escalar_ss COMPUTE_RHS_BSSN_ESCALAR_SS
 #define f_compute_rhs_Z4c COMPUTE_RHS_Z4C
 #define f_compute_rhs_Z4cnot COMPUTE_RHS_Z4CNOT
 #define f_compute_rhs_Z4c_ss COMPUTE_RHS_Z4C_SS
@@ -25,8 +27,9 @@
 #ifdef fortran3
 #define f_compute_rhs_bssn compute_rhs_bssn_
 #define f_compute_rhs_bssn_ss compute_rhs_bssn_ss_
-#define f_compute_rhs_bssn_escalar compute_rhs_bssn_escalar_
-#define f_compute_rhs_bssn_escalar_ss compute_rhs_bssn_escalar_ss_
+#define f_compute_rhs_bssn_escalar compute_rhs_bssn_escalar_
+#define f_compute_rhs_bssn_escalar_matter compute_rhs_bssn_escalar_matter_
+#define f_compute_rhs_bssn_escalar_ss compute_rhs_bssn_escalar_ss_
 #define f_compute_rhs_Z4c compute_rhs_z4c_
 #define f_compute_rhs_Z4cnot compute_rhs_z4cnot_
 #define f_compute_rhs_Z4c_ss compute_rhs_z4c_ss_
@@ -96,10 +99,24 @@ extern "C"
                                   int &, int &, double &, int &, int &);
 }
 
-extern "C"
-{
-        int f_compute_rhs_bssn_escalar(int *, double &, double *, double *, double *,                                                      // ex,T,X,Y,Z
-                                       double *, double *,                                                                                 // chi, trK
+extern "C"
+{
+        int f_compute_rhs_bssn_escalar_matter(int *, double &, double *, double *, double *,                                             // ex,T,X,Y,Z
+                                              double *, double *,                                                                        // chi, trK
+                                              double *, double *, double *, double *, double *, double *,                                // gij
+                                              double *, double *, double *, double *, double *, double *,                                // Aij
+                                              double *, double *, double *,                                                              // Gam
+                                              double *, double *, double *, double *, double *, double *, double *,                      // Gauge
+                                              double *, double *,                                                                        // Sphi, Spi
+                                              double *, double *,                                                                        // Sphi, Spi rhs
+                                              double *, double *, double *, double *, double *, double *, double *, double *, double *, double *, // stress-energy
+                                              int &, int &, double &);
+}
+
+extern "C"
+{
+        int f_compute_rhs_bssn_escalar(int *, double &, double *, double *, double *,                                                      // ex,T,X,Y,Z
+                                       double *, double *,                                                                                 // chi, trK
                                        double *, double *, double *, double *, double *, double *,                                         // gij
                                        double *, double *, double *, double *, double *, double *,                                         // Aij
                                        double *, double *, double *,                                                                       // Gam

AMSS_NCKU_source/bssn_rhs_cuda.h

@@ -7,9 +7,6 @@ extern "C" {
 
 enum {
     BSSN_CUDA_STATE_COUNT = 24,
-    BSSN_ESCALAR_CUDA_STATE_COUNT = 26,
-    BSSN_EM_CUDA_STATE_COUNT = 32,
-    BSSN_EM_CUDA_SOURCE_COUNT = 4,
     BSSN_CUDA_MATTER_COUNT = 10
 };
 
@@ -58,53 +55,116 @@ int bssn_cuda_rk4_substep(void *block_tag,
                           int &apply_enforce_ga,
                           double &chitiny);
 
-int bssn_escalar_cuda_rk4_substep(void *block_tag,
-                                  int *ex, double *X, double *Y, double *Z,
-                                  double **state_host_in,
-                                  double **state_host_out,
-                                  const double *propspeed,
-                                  const double *soa_flat,
-                                  const double *bbox,
-                                  double &dT,
-                                  double &T,
-                                  int &RK4,
-                                  int &apply_bam_bc,
-                                  int &Symmetry,
-	                                  int &Lev,
-	                                  double &eps,
-	                                  int &co,
-	                                  int &keep_resident_state,
-	                                  int &apply_enforce_ga,
-	                                  double &chitiny);
+int bssn_cuda_compute_escalar_matter(void *block_tag,
+                                     int *ex, double *X, double *Y, double *Z,
+                                     double **state_host_in,
+                                     double *Sphi_host,
+                                     double *Spi_host,
+                                     double *Sphi_rhs_host,
+                                     double *Spi_rhs_host,
+                                     double a2,
+                                     int &Symmetry,
+                                     int &Lev,
+                                     double &eps,
+                                     int &co,
+                                     int &apply_enforce_ga);
 
-int bssn_escalar_cuda_compute_constraints(int *ex, double *X, double *Y, double *Z,
-                                          double **state_host_in,
-                                          double **constraint_host_out,
-                                          int &Symmetry,
-                                          int &Lev,
-                                          double &eps);
+int bssn_cuda_escalar_finalize_scalar_fields(void *block_tag,
+                                             int *ex, double *X, double *Y, double *Z,
+                                             double *Sphi_out_host,
+                                             double *Spi_out_host,
+                                             const double *propspeed,
+                                             const double *soa_flat,
+                                             const double *bbox,
+                                             double &dT,
+                                             int &RK4,
+                                             int &apply_bam_bc,
+                                             int &Symmetry,
+                                             int &Lev,
+                                             double &eps,
+                                             int &precor);
 
-int bssn_em_cuda_rk4_substep(void *block_tag,
-                             int *ex, double *X, double *Y, double *Z,
-                             double **state_host_in,
-                             double **state_host_out,
-                             double **source_host,
-                             const double *propspeed,
-                             const double *soa_flat,
-                             const double *bbox,
-                             double &dT,
-                             double &T,
-                             int &RK4,
-                             int &apply_bam_bc,
-                             int &Symmetry,
-                             int &Lev,
-                             double &eps,
-                             int &co,
-                             int &keep_resident_state,
-                             int &apply_enforce_ga,
-                             double &chitiny);
+int bssn_cuda_escalar_has_resident_fields(void *block_tag,
+                                          double *Sphi_host,
+                                          double *Spi_host);
 
-int bssn_em_cuda_resident_zero_fast_state(void *block_tag);
+int bssn_cuda_escalar_has_any_resident_fields(void *block_tag);
+
+int bssn_cuda_escalar_download_fields_if_present(void *block_tag,
+                                                 int *ex,
+                                                 double *Sphi_host,
+                                                 double *Spi_host);
+
+int bssn_cuda_pack_escalar_batch_to_host_buffer(void *block_tag,
+                                                double **scalar_host_key,
+                                                double *host_buffer,
+                                                int *ex,
+                                                int i0, int j0, int k0,
+                                                int sx, int sy, int sz);
+
+int bssn_cuda_unpack_escalar_batch_from_host_buffer(void *block_tag,
+                                                    double **scalar_host_key,
+                                                    double *host_buffer,
+                                                    int *ex,
+                                                    int i0, int j0, int k0,
+                                                    int sx, int sy, int sz);
+
+int bssn_cuda_pack_escalar_batch_to_device_buffer(void *block_tag,
+                                                  double **scalar_host_key,
+                                                  double *device_buffer,
+                                                  int *ex,
+                                                  int i0, int j0, int k0,
+                                                  int sx, int sy, int sz);
+
+int bssn_cuda_unpack_escalar_batch_from_device_buffer(void *block_tag,
+                                                      double **scalar_host_key,
+                                                      double *device_buffer,
+                                                      int *ex,
+                                                      int i0, int j0, int k0,
+                                                      int sx, int sy, int sz);
+
+int bssn_cuda_restrict_escalar_batch_to_host_buffer(void *block_tag,
+                                                    double **scalar_host_key,
+                                                    double *host_buffer,
+                                                    int *ex,
+                                                    int sx, int sy, int sz,
+                                                    int fi0, int fj0, int fk0,
+                                                    const double *scalar_soa);
+
+int bssn_cuda_prolong_escalar_batch_to_host_buffer(void *block_tag,
+                                                   double **scalar_host_key,
+                                                   double *host_buffer,
+                                                   int *ex,
+                                                   int sx, int sy, int sz,
+                                                   int ii0, int jj0, int kk0,
+                                                   int lbc_i, int lbc_j, int lbc_k,
+                                                   const double *scalar_soa);
+
+int bssn_cuda_restrict_escalar_batch_to_device_buffer(void *block_tag,
+                                                      double **scalar_host_key,
+                                                      double *device_buffer,
+                                                      int *ex,
+                                                      int sx, int sy, int sz,
+                                                      int fi0, int fj0, int fk0,
+                                                      const double *scalar_soa);
+
+int bssn_cuda_prolong_escalar_batch_to_device_buffer(void *block_tag,
+                                                     double **scalar_host_key,
+                                                     double *device_buffer,
+                                                     int *ex,
+                                                     int sx, int sy, int sz,
+                                                     int ii0, int jj0, int kk0,
+                                                     int lbc_i, int lbc_j, int lbc_k,
+                                                     const double *scalar_soa);
+
+int bssn_cuda_prepare_escalar_inter_time_level(void *block_tag,
+                                               int *ex,
+                                               double **src1_host_key,
+                                               double **src2_host_key,
+                                               double **src3_host_key,
+                                               double **dst_host_key,
+                                               int source_count,
+                                               int tindex);
 
 int bssn_cuda_copy_state_region_to_host(void *block_tag,
                                         int state_index,
@@ -124,37 +184,13 @@ int bssn_cuda_download_resident_state(void *block_tag,
                                       int *ex,
                                       double **state_host_out);
 
-int bssn_escalar_cuda_download_resident_state(void *block_tag,
-                                              int *ex,
-                                              double **state_host_out);
-
-int bssn_cuda_upload_resident_state_count(void *block_tag,
-                                          int *ex,
-                                          double **state_host_in,
-                                          int state_count);
-
-int bssn_escalar_cuda_upload_resident_state(void *block_tag,
-                                            int *ex,
-                                            double **state_host_in);
-
-int bssn_cuda_keep_only_resident_state_count(void *block_tag,
-                                             int *ex,
-                                             double **state_host_key,
-                                             int state_count);
-
-int bssn_escalar_cuda_keep_only_resident_state(void *block_tag,
-                                               int *ex,
-                                               double **state_host_key);
-
-int bssn_cuda_download_resident_state_count_if_present(void *block_tag,
-                                                       int *ex,
-                                                       double **state_host_out,
-                                                       int state_count);
-
 int bssn_cuda_download_resident_state_if_present(void *block_tag,
                                                 int *ex,
                                                 double **state_host_out);
 
+int bssn_cuda_resident_state_matches(void *block_tag,
+                                     double **state_host_key);
+
 int bssn_cuda_download_constraint_outputs(int *ex,
                                           double **constraint_host_out);
 
@@ -181,7 +217,6 @@ int bssn_cuda_interp_state_point3(void *block_tag,
                                   double pz,
                                   int ordn,
                                   int symmetry,
-                                  double **state_host_key,
                                   const double *soa3,
                                   double *out3);
 
@@ -211,15 +246,6 @@ int bssn_cuda_unpack_state_region_from_host_buffer(void *block_tag,
                                                    int i0, int j0, int k0,
                                                    int sx, int sy, int sz);
 
-int bssn_cuda_unpack_state_region_from_host_buffer_for_host_views(void *block_tag,
-                                                                  double **state_host_key,
-                                                                  int state_count,
-                                                                  int state_index,
-                                                                  double *host_buffer,
-                                                                  int *ex,
-                                                                  int i0, int j0, int k0,
-                                                                  int sx, int sy, int sz);
-
 int bssn_cuda_pack_state_batch_to_host_buffer(void *block_tag,
                                               int state_count,
                                               double *host_buffer,
@@ -250,8 +276,44 @@ int bssn_cuda_unpack_state_batch_from_host_buffer_for_host_views(void *block_tag
                                                                  int i0, int j0, int k0,
                                                                  int sx, int sy, int sz);
 
+int bssn_cuda_restrict_state_batch_to_host_buffer_for_host_views(void *block_tag,
+                                                                 double **state_host_key,
+                                                                 int state_count,
+                                                                 double *host_buffer,
+                                                                 int *ex,
+                                                                 int sx, int sy, int sz,
+                                                                 int fi0, int fj0, int fk0,
+                                                                 const double *state_soa);
+
+int bssn_cuda_restrict_state_batch_to_host_buffer(void *block_tag,
+                                                  int state_count,
+                                                  double *host_buffer,
+                                                  int *ex,
+                                                  int sx, int sy, int sz,
+                                                  int fi0, int fj0, int fk0,
+                                                  const double *state_soa);
+
+int bssn_cuda_prolong_state_batch_to_host_buffer_for_host_views(void *block_tag,
+                                                                double **state_host_key,
+                                                                int state_count,
+                                                                double *host_buffer,
+                                                                int *ex,
+                                                                int sx, int sy, int sz,
+                                                                int ii0, int jj0, int kk0,
+                                                                int lbc_i, int lbc_j, int lbc_k,
+                                                                const double *state_soa);
+
+int bssn_cuda_prolong_state_batch_to_host_buffer(void *block_tag,
+                                                 int state_count,
+                                                 double *host_buffer,
+                                                 int *ex,
+                                                 int sx, int sy, int sz,
+                                                 int ii0, int jj0, int kk0,
+                                                 int lbc_i, int lbc_j, int lbc_k,
+                                                 const double *state_soa);
+
 int bssn_cuda_pack_state_batch_to_device_buffer(void *block_tag,
-                                                int state_count,
+                                                 int state_count,
                                                 double *device_buffer,
                                                 int *ex,
                                                 int i0, int j0, int k0,
@@ -390,7 +452,6 @@ int bssn_cuda_upload_state_subset(void *block_tag,
 
 int bssn_cuda_prepare_inter_time_level(void *block_tag,
                                        int *ex,
-                                       int state_count,
                                        double **src1_host_key,
                                        double **src2_host_key,
                                        double **src3_host_key,
@@ -404,10 +465,6 @@ void bssn_cuda_release_step_ctx(void *block_tag);
 
 #ifdef __cplusplus
 }
-// C++-only helpers declared for derived equation classes (Z4C, etc.)
-// Defined in bssn_class.C. Requires MyList, Patch, var from including TU.
-bool bssn_cuda_use_resident_sync(int lev);
-void bssn_cuda_download_level_state_if_present(MyList<Patch> *PatL, MyList<var> *vars, int myrank);
 #endif
 
 #endif

AMSS_NCKU_source/checkpoint.C

@@ -76,11 +76,8 @@ checkpoint::checkpoint(bool checked, const char fname[], int myrank) : filename(
 
 	I_Print = (myrank == 0);
 
-	size_t filename_len = out_dir.size() + strlen(fname) + 32;
-#ifdef CHECKDETAIL
-	filename_len += 32;
-#endif
-	filename = new char[filename_len];
+	int i = strlen(fname);
+	filename = new char[i+30];
 	// cout << filename << endl;
 	// cout << i << endl;
 
@@ -103,12 +100,12 @@ checkpoint::checkpoint(bool checked, const char fname[], int myrank) : filename(
                 cout << " checkpoint class created " << endl;
         }
 }
-checkpoint::~checkpoint()
-{
-	CheckList->clearList();
-	if (filename)
-		delete[] filename;
-}
+checkpoint::~checkpoint()
+{
+	CheckList->clearList();
+	if (I_Print)
+		delete[] filename;
+}
 
 void checkpoint::addvariable(var *VV)
 {
@@ -139,7 +136,7 @@ void checkpoint::writecheck_cgh(double time, cgh *GH)
 	if (I_Print)
 	{
 		// char fname[50];
-		char fname[4096]; 
+		char fname[50+50]; 
 		sprintf(fname, "%s_cgh.CHK", filename);
 
 		outfile.open(fname, ios::out | ios::trunc);
@@ -198,7 +195,7 @@ void checkpoint::readcheck_cgh(double &time, cgh *GH, int myrank, int nprocs, in
 	int DIM = dim;
 	ifstream infile;
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_cgh.CHK", filename);
 
 	infile.open(fname);
@@ -300,7 +297,7 @@ void checkpoint::writecheck_sh(double time, ShellPatch *SH)
 
 	if (I_Print)
 	{
-		char fname[4096];
+		char fname[50];
 		sprintf(fname, "%s_sh.CHK", filename);
 
 		outfile.open(fname, ios::out | ios::trunc);
@@ -338,7 +335,7 @@ void checkpoint::readcheck_sh(ShellPatch *SH, int myrank)
 	int DIM = dim;
 	ifstream infile;
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_sh.CHK", filename);
 
 	infile.open(fname);
@@ -393,7 +390,7 @@ void checkpoint::write_Black_Hole_position(int BH_num_input, int BH_num, double
 
 	if (I_Print)
 	{
-		char fname[4096];
+		char fname[50];
 		sprintf(fname, "%s_BHp.CHK", filename);
 
 		outfile.open(fname, ios::out | ios::trunc);
@@ -420,7 +417,7 @@ void checkpoint::read_Black_Hole_position(int &BH_num_input, int &BH_num, double
 {
 	ifstream infile;
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_BHp.CHK", filename);
 
 	infile.open(fname);
@@ -464,7 +461,7 @@ void checkpoint::write_bssn(double LastDump, double Last2dDump, double LastAnas)
 
 	if (I_Print)
 	{
-		char fname[4096];
+		char fname[50];
 		sprintf(fname, "%s_bssn.CHK", filename);
 
 		outfile.open(fname, ios::out | ios::trunc);
@@ -484,7 +481,7 @@ void checkpoint::read_bssn(double &LastDump, double &Last2dDump, double &LastAna
 {
 	ifstream infile;
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_bssn.CHK", filename);
 
 	infile.open(fname);
@@ -509,7 +506,7 @@ void checkpoint::write_bssn(double LastDump, double Last2dDump, double LastAnas)
 	ofstream outfile;
 
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_bssn.CHK", filename);
 
 	outfile.open(fname, ios::out | ios::trunc);
@@ -530,7 +527,7 @@ void checkpoint::read_bssn(double &LastDump, double &Last2dDump, double &LastAna
 {
 	ifstream infile;
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_bssn.CHK", filename);
 
 	infile.open(fname);
@@ -554,7 +551,7 @@ void checkpoint::write_Black_Hole_position(int BH_num_input, int BH_num, double
 	ofstream outfile;
 
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_BHp.CHK", filename);
 
 	outfile.open(fname, ios::out | ios::trunc);
@@ -584,7 +581,7 @@ void checkpoint::read_Black_Hole_position(int &BH_num_input, int &BH_num, double
 {
 	ifstream infile;
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_BHp.CHK", filename);
 
 	infile.open(fname);
@@ -631,7 +628,7 @@ void checkpoint::writecheck_cgh(double time, cgh *GH)
 	ofstream outfile;
 
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_cgh.CHK", filename);
 
 	outfile.open(fname, ios::out | ios::trunc);
@@ -741,7 +738,7 @@ void checkpoint::readcheck_cgh(double &time, cgh *GH, int myrank, int nprocs, in
 	int DIM = dim;
 	ifstream infile;
 	// char fname[50];
-	char fname[4096]; 
+	char fname[50+50]; 
 	sprintf(fname, "%s_cgh.CHK", filename);
 
 	infile.open(fname);

AMSS_NCKU_source/fd_cuda_helpers.cuh

@@ -1,412 +0,0 @@
-#ifndef AMSS_NCKU_FD_CUDA_HELPERS_CUH
-#define AMSS_NCKU_FD_CUDA_HELPERS_CUH
-
-#ifndef ghost_width
-#error "ghost_width must be defined before including fd_cuda_helpers.cuh"
-#endif
-
-#if ghost_width < 2 || ghost_width > 5
-#error "CUDA finite-difference helpers support ghost_width 2..5"
-#endif
-
-#define AMSS_FD_CENTER_RADIUS (ghost_width - 1)
-#define AMSS_FD_LK_RADIUS     (ghost_width)
-
-__device__ __forceinline__ int fd_axis_radius(int qF, int qminF, int qmaxF)
-{
-#if AMSS_FD_CENTER_RADIUS >= 4
-    if (qF - 4 >= qminF && qF + 4 <= qmaxF) return 4;
-#endif
-#if AMSS_FD_CENTER_RADIUS >= 3
-    if (qF - 3 >= qminF && qF + 3 <= qmaxF) return 3;
-#endif
-#if AMSS_FD_CENTER_RADIUS >= 2
-    if (qF - 2 >= qminF && qF + 2 <= qmaxF) return 2;
-#endif
-    if (qF - 1 >= qminF && qF + 1 <= qmaxF) return 1;
-    return 0;
-}
-
-__device__ __forceinline__ int fd_common_radius(int iF, int jF, int kF,
-                                                int iminF, int jminF, int kminF,
-                                                int imaxF, int jmaxF, int kmaxF)
-{
-    int r = fd_axis_radius(iF, iminF, imaxF);
-    const int ry = fd_axis_radius(jF, jminF, jmaxF);
-    const int rz = fd_axis_radius(kF, kminF, kmaxF);
-    if (ry < r) r = ry;
-    if (rz < r) r = rz;
-    return r;
-}
-
-__device__ __forceinline__ double fd_first_coef(int r, int off)
-{
-    switch (r) {
-    case 1:
-        if (off == -1) return -1.0;
-        if (off ==  1) return  1.0;
-        return 0.0;
-    case 2:
-        if (off == -2) return  1.0;
-        if (off == -1) return -8.0;
-        if (off ==  1) return  8.0;
-        if (off ==  2) return -1.0;
-        return 0.0;
-    case 3:
-        if (off == -3) return  -1.0;
-        if (off == -2) return   9.0;
-        if (off == -1) return -45.0;
-        if (off ==  1) return  45.0;
-        if (off ==  2) return  -9.0;
-        if (off ==  3) return   1.0;
-        return 0.0;
-    case 4:
-        if (off == -4) return    3.0;
-        if (off == -3) return  -32.0;
-        if (off == -2) return  168.0;
-        if (off == -1) return -672.0;
-        if (off ==  1) return  672.0;
-        if (off ==  2) return -168.0;
-        if (off ==  3) return   32.0;
-        if (off ==  4) return   -3.0;
-        return 0.0;
-    default:
-        return 0.0;
-    }
-}
-
-__device__ __forceinline__ double fd_second_coef(int r, int off)
-{
-    switch (r) {
-    case 1:
-        if (off == -1) return  1.0;
-        if (off ==  0) return -2.0;
-        if (off ==  1) return  1.0;
-        return 0.0;
-    case 2:
-        if (off == -2) return  -1.0;
-        if (off == -1) return  16.0;
-        if (off ==  0) return -30.0;
-        if (off ==  1) return  16.0;
-        if (off ==  2) return  -1.0;
-        return 0.0;
-    case 3:
-        if (off == -3) return    2.0;
-        if (off == -2) return  -27.0;
-        if (off == -1) return  270.0;
-        if (off ==  0) return -490.0;
-        if (off ==  1) return  270.0;
-        if (off ==  2) return  -27.0;
-        if (off ==  3) return    2.0;
-        return 0.0;
-    case 4:
-        if (off == -4) return     -9.0;
-        if (off == -3) return    128.0;
-        if (off == -2) return  -1008.0;
-        if (off == -1) return   8064.0;
-        if (off ==  0) return -14350.0;
-        if (off ==  1) return   8064.0;
-        if (off ==  2) return  -1008.0;
-        if (off ==  3) return    128.0;
-        if (off ==  4) return     -9.0;
-        return 0.0;
-    default:
-        return 0.0;
-    }
-}
-
-__device__ __forceinline__ double fd_first_denom(int r)
-{
-    return (r == 4) ? 840.0 : ((r == 3) ? 60.0 : ((r == 2) ? 12.0 : 2.0));
-}
-
-__device__ __forceinline__ double fd_second_denom(int r)
-{
-    return (r == 4) ? 5040.0 : ((r == 3) ? 180.0 : ((r == 2) ? 12.0 : 1.0));
-}
-
-__device__ __forceinline__ double fd_fetch_axis(const double *src,
-                                                int iF, int jF, int kF,
-                                                int axis, int off,
-                                                int SoA0, int SoA1, int SoA2)
-{
-    if (axis == 0) iF += off;
-    else if (axis == 1) jF += off;
-    else kF += off;
-    return fetch_sym_ord2_direct(src, iF, jF, kF, SoA0, SoA1, SoA2);
-}
-
-__device__ __forceinline__ double fd_fetch_axis2(const double *src,
-                                                 int iF, int jF, int kF,
-                                                 int axis_a, int off_a,
-                                                 int axis_b, int off_b,
-                                                 int SoA0, int SoA1, int SoA2)
-{
-    if (axis_a == 0) iF += off_a;
-    else if (axis_a == 1) jF += off_a;
-    else kF += off_a;
-    if (axis_b == 0) iF += off_b;
-    else if (axis_b == 1) jF += off_b;
-    else kF += off_b;
-    return fetch_sym_ord2_direct(src, iF, jF, kF, SoA0, SoA1, SoA2);
-}
-
-__device__ __forceinline__ double fd_first_axis_radius(const double *src,
-                                                       int iF, int jF, int kF,
-                                                       int axis, int r, double h,
-                                                       int SoA0, int SoA1, int SoA2)
-{
-    if (r <= 0) return 0.0;
-    double s = 0.0;
-#pragma unroll
-    for (int off = -4; off <= 4; ++off) {
-        const double c = fd_first_coef(r, off);
-        if (c != 0.0) {
-            s += c * fd_fetch_axis(src, iF, jF, kF, axis, off, SoA0, SoA1, SoA2);
-        }
-    }
-    return s / (fd_first_denom(r) * h);
-}
-
-__device__ __forceinline__ double fd_second_axis_radius(const double *src,
-                                                        int iF, int jF, int kF,
-                                                        int axis, int r, double h,
-                                                        int SoA0, int SoA1, int SoA2)
-{
-    if (r <= 0) return 0.0;
-    double s = 0.0;
-#pragma unroll
-    for (int off = -4; off <= 4; ++off) {
-        const double c = fd_second_coef(r, off);
-        if (c != 0.0) {
-            s += c * fd_fetch_axis(src, iF, jF, kF, axis, off, SoA0, SoA1, SoA2);
-        }
-    }
-    return s / (fd_second_denom(r) * h * h);
-}
-
-__device__ __forceinline__ double fd_mixed_axis_radius(const double *src,
-                                                       int iF, int jF, int kF,
-                                                       int axis_a, int r_a, double h_a,
-                                                       int axis_b, int r_b, double h_b,
-                                                       int SoA0, int SoA1, int SoA2)
-{
-    if (r_a <= 0 || r_b <= 0) return 0.0;
-    double s = 0.0;
-#pragma unroll
-    for (int off_a = -4; off_a <= 4; ++off_a) {
-        const double ca = fd_first_coef(r_a, off_a);
-        if (ca == 0.0) continue;
-#pragma unroll
-        for (int off_b = -4; off_b <= 4; ++off_b) {
-            const double cb = fd_first_coef(r_b, off_b);
-            if (cb != 0.0) {
-                s += ca * cb * fd_fetch_axis2(src, iF, jF, kF, axis_a, off_a,
-                                              axis_b, off_b, SoA0, SoA1, SoA2);
-            }
-        }
-    }
-    return s / (fd_first_denom(r_a) * fd_first_denom(r_b) * h_a * h_b);
-}
-
-__device__ __forceinline__ void fd_compute_first3(const double *src,
-                                                  int iF, int jF, int kF,
-                                                  int iminF, int jminF, int kminF,
-                                                  int imaxF, int jmaxF, int kmaxF,
-                                                  int SoA0, int SoA1, int SoA2,
-                                                  double &fx, double &fy, double &fz)
-{
-#if ghost_width == 3
-    const int r = fd_common_radius(iF, jF, kF, iminF, jminF, kminF, imaxF, jmaxF, kmaxF);
-    fx = fd_first_axis_radius(src, iF, jF, kF, 0, r, d_gp.dX, SoA0, SoA1, SoA2);
-    fy = fd_first_axis_radius(src, iF, jF, kF, 1, r, d_gp.dY, SoA0, SoA1, SoA2);
-    fz = fd_first_axis_radius(src, iF, jF, kF, 2, r, d_gp.dZ, SoA0, SoA1, SoA2);
-#else
-    fx = fd_first_axis_radius(src, iF, jF, kF, 0, fd_axis_radius(iF, iminF, imaxF),
-                              d_gp.dX, SoA0, SoA1, SoA2);
-    fy = fd_first_axis_radius(src, iF, jF, kF, 1, fd_axis_radius(jF, jminF, jmaxF),
-                              d_gp.dY, SoA0, SoA1, SoA2);
-    fz = fd_first_axis_radius(src, iF, jF, kF, 2, fd_axis_radius(kF, kminF, kmaxF),
-                              d_gp.dZ, SoA0, SoA1, SoA2);
-#endif
-}
-
-__device__ __forceinline__ void fd_compute_second6(const double *src,
-                                                   int iF, int jF, int kF,
-                                                   int iminF, int jminF, int kminF,
-                                                   int imaxF, int jmaxF, int kmaxF,
-                                                   int SoA0, int SoA1, int SoA2,
-                                                   double &fxx, double &fxy, double &fxz,
-                                                   double &fyy, double &fyz, double &fzz)
-{
-#if ghost_width == 3
-    const int r = fd_common_radius(iF, jF, kF, iminF, jminF, kminF, imaxF, jmaxF, kmaxF);
-    const int rx = r, ry = r, rz = r;
-#else
-    const int rx = fd_axis_radius(iF, iminF, imaxF);
-    const int ry = fd_axis_radius(jF, jminF, jmaxF);
-    const int rz = fd_axis_radius(kF, kminF, kmaxF);
-#endif
-    fxx = fd_second_axis_radius(src, iF, jF, kF, 0, rx, d_gp.dX, SoA0, SoA1, SoA2);
-    fyy = fd_second_axis_radius(src, iF, jF, kF, 1, ry, d_gp.dY, SoA0, SoA1, SoA2);
-    fzz = fd_second_axis_radius(src, iF, jF, kF, 2, rz, d_gp.dZ, SoA0, SoA1, SoA2);
-    fxy = fd_mixed_axis_radius(src, iF, jF, kF, 0, rx, d_gp.dX, 1, ry, d_gp.dY, SoA0, SoA1, SoA2);
-    fxz = fd_mixed_axis_radius(src, iF, jF, kF, 0, rx, d_gp.dX, 2, rz, d_gp.dZ, SoA0, SoA1, SoA2);
-    fyz = fd_mixed_axis_radius(src, iF, jF, kF, 1, ry, d_gp.dY, 2, rz, d_gp.dZ, SoA0, SoA1, SoA2);
-}
-
-__device__ __forceinline__ bool fd_lop_fits(int qF, int qminF, int qmaxF,
-                                            int dir, int lo, int hi)
-{
-    for (int off = lo; off <= hi; ++off) {
-        const int q = qF + dir * off;
-        if (q < qminF || q > qmaxF) return false;
-    }
-    return true;
-}
-
-__device__ __forceinline__ double fd_lop_fetch_sum(const double *src,
-                                                   int iF, int jF, int kF,
-                                                   int axis, int dir,
-                                                   const double *coef,
-                                                   int lo, int hi,
-                                                   int SoA0, int SoA1, int SoA2)
-{
-    double s = 0.0;
-    for (int off = lo; off <= hi; ++off) {
-        const double c = coef[off - lo];
-        if (c != 0.0) {
-            s += c * fd_fetch_axis(src, iF, jF, kF, axis, dir * off, SoA0, SoA1, SoA2);
-        }
-    }
-    return s;
-}
-
-__device__ __forceinline__ double fd_lopsided_axis(const double *src,
-                                                   int iF, int jF, int kF,
-                                                   int axis, double speed,
-                                                   int qF, int qminF, int qmaxF,
-                                                   double h,
-                                                   int SoA0, int SoA1, int SoA2)
-{
-    if (speed == 0.0) return 0.0;
-    const int dir = (speed > 0.0) ? 1 : -1;
-    const double mag = (speed > 0.0) ? speed : -speed;
-
-#if ghost_width == 2
-    if (fd_lop_fits(qF, qminF, qmaxF, dir, 0, 2)) {
-        const double c[] = {-3.0, 4.0, -1.0};
-        return mag * fd_lop_fetch_sum(src, iF, jF, kF, axis, dir, c, 0, 2, SoA0, SoA1, SoA2) / (2.0 * h);
-    }
-    if (fd_lop_fits(qF, qminF, qmaxF, dir, 0, 1)) {
-        const double c[] = {-1.0, 1.0};
-        return mag * fd_lop_fetch_sum(src, iF, jF, kF, axis, dir, c, 0, 1, SoA0, SoA1, SoA2) / (2.0 * h);
-    }
-    return 0.0;
-#elif ghost_width == 3
-    if (fd_lop_fits(qF, qminF, qmaxF, dir, -1, 3)) {
-        const double c[] = {-3.0, -10.0, 18.0, -6.0, 1.0};
-        return mag * fd_lop_fetch_sum(src, iF, jF, kF, axis, dir, c, -1, 3, SoA0, SoA1, SoA2) / (12.0 * h);
-    }
-    const int r = fd_axis_radius(qF, qminF, qmaxF);
-    return speed * fd_first_axis_radius(src, iF, jF, kF, axis, r, h, SoA0, SoA1, SoA2);
-#elif ghost_width == 4
-    if (fd_lop_fits(qF, qminF, qmaxF, dir, -2, 4)) {
-        const double c[] = {2.0, -24.0, -35.0, 80.0, -30.0, 8.0, -1.0};
-        return mag * fd_lop_fetch_sum(src, iF, jF, kF, axis, dir, c, -2, 4, SoA0, SoA1, SoA2) / (60.0 * h);
-    }
-    if (fd_lop_fits(qF, qminF, qmaxF, dir, -1, 5)) {
-        const double c[] = {-10.0, -77.0, 150.0, -100.0, 50.0, -15.0, 2.0};
-        return mag * fd_lop_fetch_sum(src, iF, jF, kF, axis, dir, c, -1, 5, SoA0, SoA1, SoA2) / (60.0 * h);
-    }
-    const int r = fd_axis_radius(qF, qminF, qmaxF);
-    return speed * fd_first_axis_radius(src, iF, jF, kF, axis, r, h, SoA0, SoA1, SoA2);
-#else
-    if (fd_lop_fits(qF, qminF, qmaxF, dir, -3, 5)) {
-        const double c[] = {-5.0, 60.0, -420.0, -378.0, 1050.0, -420.0, 140.0, -30.0, 3.0};
-        return mag * fd_lop_fetch_sum(src, iF, jF, kF, axis, dir, c, -3, 5, SoA0, SoA1, SoA2) / (840.0 * h);
-    }
-    const int r = fd_axis_radius(qF, qminF, qmaxF);
-    return speed * fd_first_axis_radius(src, iF, jF, kF, axis, r, h, SoA0, SoA1, SoA2);
-#endif
-}
-
-__device__ __forceinline__ double fd_ko_coef(int r, int off)
-{
-    const int a = off < 0 ? -off : off;
-    if (r == 2) {
-        if (a == 0) return 6.0;
-        if (a == 1) return -4.0;
-        if (a == 2) return 1.0;
-    } else if (r == 3) {
-        if (a == 0) return -20.0;
-        if (a == 1) return 15.0;
-        if (a == 2) return -6.0;
-        if (a == 3) return 1.0;
-    } else if (r == 4) {
-        if (a == 0) return 70.0;
-        if (a == 1) return -56.0;
-        if (a == 2) return 28.0;
-        if (a == 3) return -8.0;
-        if (a == 4) return 1.0;
-    } else if (r == 5) {
-        if (a == 0) return -252.0;
-        if (a == 1) return 210.0;
-        if (a == 2) return -120.0;
-        if (a == 3) return 45.0;
-        if (a == 4) return -10.0;
-        if (a == 5) return 1.0;
-    }
-    return 0.0;
-}
-
-__device__ __forceinline__ double fd_ko_axis(const double *src,
-                                             int iF, int jF, int kF,
-                                             int axis, int r,
-                                             int SoA0, int SoA1, int SoA2)
-{
-    double s = 0.0;
-#pragma unroll
-    for (int off = -5; off <= 5; ++off) {
-        if (off < -r || off > r) continue;
-        const double c = fd_ko_coef(r, off);
-        if (c != 0.0) {
-            s += c * fd_fetch_axis(src, iF, jF, kF, axis, off, SoA0, SoA1, SoA2);
-        }
-    }
-    return s;
-}
-
-__device__ __forceinline__ double fd_ko_term(const double *src,
-                                             int iF, int jF, int kF,
-                                             int iminF, int jminF, int kminF,
-                                             int imaxF, int jmaxF, int kmaxF,
-                                             double eps_val,
-                                             int SoA0, int SoA1, int SoA2)
-{
-    const int r = AMSS_FD_LK_RADIUS;
-    if (eps_val <= 0.0) return 0.0;
-#if ghost_width >= 4
-    if (iF - r <= iminF || iF + r >= imaxF ||
-        jF - r <= jminF || jF + r >= jmaxF ||
-        kF - r <= kminF || kF + r >= kmaxF) {
-        return 0.0;
-    }
-#else
-    if (iF - r < iminF || iF + r > imaxF ||
-        jF - r < jminF || jF + r > jmaxF ||
-        kF - r < kminF || kF + r > kmaxF) {
-        return 0.0;
-    }
-#endif
-    double cof = 1.0;
-#pragma unroll
-    for (int n = 0; n < 2 * r; ++n) cof *= 2.0;
-    const double sign = (r & 1) ? 1.0 : -1.0;
-    const double dx = fd_ko_axis(src, iF, jF, kF, 0, r, SoA0, SoA1, SoA2);
-    const double dy = fd_ko_axis(src, iF, jF, kF, 1, r, SoA0, SoA1, SoA2);
-    const double dz = fd_ko_axis(src, iF, jF, kF, 2, r, SoA0, SoA1, SoA2);
-    return sign * eps_val * (dx / d_gp.dX + dy / d_gp.dY + dz / d_gp.dZ) / cof;
-}
-
-#endif

AMSS_NCKU_source/gpu_rhsSS_mem.h

@@ -1,6 +1,6 @@
 #ifndef GPU_MEM_H_
 #define GPU_MEM_H_
-#include "macrodef.h"
+#include "macrodef.fh"
 
 #ifdef WithShell
 struct Metass
@@ -48,8 +48,6 @@ struct Meta
 	double * Gamx_rhs,*Gamy_rhs,*Gamz_rhs;//out
 	double * Lap_rhs, *betax_rhs, *betay_rhs, *betaz_rhs;//out
 	double * dtSfx_rhs,*dtSfy_rhs,*dtSfz_rhs;//out
-	double * TZ;                                  //in  (Z4C)
-	double * TZ_rhs;                              //out (Z4C)
 	double * rho,*Sx,*Sy,*Sz			;	//in
 	double * Sxx,*Sxy,*Sxz,*Syy,*Syz,*Szz;	//in
 	
@@ -134,8 +132,6 @@ __constant__ double SYM = 1.0;
 __constant__ double ANTI = -1.0; 
 __constant__ double FF = 0.75;
 __constant__ double eta = 2.0;
-__constant__ double kappa1_c = 0.02;
-__constant__ double kappa2_c = 0.0;
 __constant__ double F1o3;
 __constant__ double F2o3;
 __constant__ double F3o2 = 1.5;

AMSS_NCKU_source/macrodef.fh

@@ -13,7 +13,7 @@
 
 #define ABV 0
 
-#define EScalar_CC 2
+#define EScalar_CC  2
 
 #if 0
 

AMSS_NCKU_source/macrodef.h

@@ -10,7 +10,7 @@
 
 #define GaussInt
 
-#define ABEtype 0
+#define ABEtype 1
 
 //#define With_AHF
 #define Psi4type 0
@@ -167,3 +167,4 @@
 #define TINY 1e-10
 
 #endif   /* MICRODEF_H */
+

AMSS_NCKU_source/makefile

@@ -18,9 +18,9 @@ OMP_FLAG = -qopenmp
 
 ifeq ($(PGO_MODE),instrument)
 ## Intel Phase 1: instrumentation — omit -ipo/-fp-model fast=2 for faster build and numerical stability
-CXXAPPFLAGS = -O3 -march=znver5  -fma -fprofile-instr-generate -ipo \
+CXXAPPFLAGS = -O3 -xHost -fma -fprofile-instr-generate -ipo \
               -Dfortran3 -Dnewc $(MKL_INC) $(INTERP_LB_FLAGS)
-f90appflags = -O3 -march=znver5  -fma -fprofile-instr-generate -ipo \
+f90appflags = -O3 -xHost -fma -fprofile-instr-generate -ipo \
               -align array64byte -fpp $(MKL_INC) $(POLINT6_FLAG)
 else
 ## opt (default): maximum performance with PGO profile data -fprofile-instr-use=$(PROFDATA) \
@@ -28,23 +28,24 @@ else
 ## INTERP_LB_FLAGS has been turned off too, now tested and found to be negative optimization
 
 
-CXXAPPFLAGS = -O3 -march=znver5  -fp-model fast=2 -fma -ipo \
+CXXAPPFLAGS = -O3 -xHost -fp-model fast=2 -fma -ipo \
               -Dfortran3 -Dnewc $(MKL_INC) $(INTERP_LB_FLAGS)
-f90appflags = -O3 -march=znver5  -fp-model fast=2 -fma -ipo \
+f90appflags = -O3 -xHost -fp-model fast=2 -fma -ipo \
               -align array64byte -fpp $(MKL_INC) $(POLINT6_FLAG)
 endif
 
-TP_OPTFLAGS = -O3 -march=znver5  -fp-model fast=2 -fma -ipo \
+TP_OPTFLAGS = -O3 -xHost -fp-model fast=2 -fma -ipo \
+              -fprofile-instr-use=$(TP_PROFDATA) \
               -Dfortran3 -Dnewc $(MKL_INC)
 else
 ## NVHPC defaults: mpicc/mpicxx/mpifort wrappers
 ## PGO_MODE is ignored in this branch.
 OMP_FLAG = -mp
-CXXAPPFLAGS = -O3 -march=znver5 -tp=host -Mcache_align -Mfma \
+CXXAPPFLAGS = -O3 -tp=host -Mcache_align -Mfma \
               -Dfortran3 -Dnewc $(MKL_INC) $(INTERP_LB_FLAGS)
-f90appflags = -O3 -march=znver5 -tp=host -Mcache_align -Mfma -Mpreprocess \
+f90appflags = -O3 -tp=host -Mcache_align -Mfma -Mpreprocess \
               $(MKL_INC) $(POLINT6_FLAG)
-TP_OPTFLAGS = -O3 -march=znver5 -tp=host -Mcache_align -Mfma \
+TP_OPTFLAGS = -O3 -tp=host -Mcache_align -Mfma \
               -Dfortran3 -Dnewc $(MKL_INC)
 endif
 
@@ -56,26 +57,18 @@ endif
 .C.o:
 	${CXX} $(CXXAPPFLAGS) -c $< $(filein) -o $@
 
-# ShellPatch.C uses OpenMP for setupintintstuff search loops
-ShellPatch.o: ShellPatch.C
-	${CXX} $(CXXAPPFLAGS) $(OMP_FLAG) -c $< $(filein) -o $@
-
 .for.o:
 	$(f77) -c $< -o $@
 
-.cu.o:
-	$(Cu) $(CUDA_APP_FLAGS) -c $< -o $@ $(CUDA_LIB_PATH)
-
-# CUDA rewrite of BSSN RHS (drop-in replacement for bssn_rhs_c + stencil helpers)
-bssn_rhs_cuda.o: bssn_rhs_cuda.cu bssn_rhs.h macrodef.h fd_cuda_helpers.cuh
-	$(Cu) $(CUDA_APP_FLAGS) -c $< -o $@ $(CUDA_LIB_PATH)
-
-# CUDA rewrite of BSSN Shell-Patch RHS (drop-in replacement for bssn_rhs_ss)
-bssn_gpu_rhs_ss.o: bssn_gpu_rhs_ss.cu bssn_gpu.h gpu_rhsSS_mem.h bssn_macro.h macrodef.fh
-	$(Cu) $(CUDA_APP_FLAGS) -c $< -o $@ $(CUDA_LIB_PATH)
+.cu.o:
+	$(Cu) $(CUDA_APP_FLAGS) -c $< -o $@ $(CUDA_LIB_PATH)
+
+# CUDA rewrite of BSSN RHS (drop-in replacement for bssn_rhs_c + stencil helpers)
+bssn_rhs_cuda.o: bssn_rhs_cuda.cu bssn_rhs.h macrodef.h
+	$(Cu) $(CUDA_APP_FLAGS) -c $< -o $@ $(CUDA_LIB_PATH)
 
 # CUDA rewrite of Z4C Cartesian RHS
-z4c_rhs_cuda.o: z4c_rhs_cuda.cu z4c_rhs_cuda.h bssn_rhs.h macrodef.h ricci_gamma.h fd_cuda_helpers.cuh
+z4c_rhs_cuda.o: z4c_rhs_cuda.cu z4c_rhs_cuda.h bssn_rhs.h macrodef.h ricci_gamma.h
 	$(Cu) $(CUDA_APP_FLAGS) -c $< -o $@ $(CUDA_LIB_PATH)
 
 # C rewrite of BSSN RHS kernel and helpers
@@ -111,19 +104,16 @@ TwoPunctureABE.o: TwoPunctureABE.C
 
 # Input files
 
-## CUDA BSSN RHS switch
-##   1 : use the rewritten CUDA bssn_rhs backend
-##   0 : keep the normal CPU/Fortran selection below
-USE_CUDA_BSSN ?= 0
-USE_CUDA_Z4C ?= 0
-AMSS_Z4C_MRBD ?= 0
-
-CXXAPPFLAGS += -DUSE_CUDA_BSSN=$(USE_CUDA_BSSN)
-CUDA_APP_FLAGS += -DUSE_CUDA_BSSN=$(USE_CUDA_BSSN)
-CXXAPPFLAGS += -DUSE_CUDA_Z4C=$(USE_CUDA_Z4C)
-CUDA_APP_FLAGS += -DUSE_CUDA_Z4C=$(USE_CUDA_Z4C)
-CXXAPPFLAGS += -DAMSS_Z4C_MRBD=$(AMSS_Z4C_MRBD)
-CUDA_APP_FLAGS += -DAMSS_Z4C_MRBD=$(AMSS_Z4C_MRBD)
+## CUDA BSSN RHS switch
+##   1 : use the rewritten CUDA bssn_rhs backend
+##   0 : keep the normal CPU/Fortran selection below
+USE_CUDA_BSSN ?= 0
+USE_CUDA_Z4C ?= 0
+
+CXXAPPFLAGS += -DUSE_CUDA_BSSN=$(USE_CUDA_BSSN)
+CUDA_APP_FLAGS += -DUSE_CUDA_BSSN=$(USE_CUDA_BSSN)
+CXXAPPFLAGS += -DUSE_CUDA_Z4C=$(USE_CUDA_Z4C)
+CUDA_APP_FLAGS += -DUSE_CUDA_Z4C=$(USE_CUDA_Z4C)
 
 ## Kernel implementation switch (set USE_CXX_KERNELS=0 to fall back to Fortran)
 ifeq ($(USE_CXX_KERNELS),0)
@@ -134,7 +124,7 @@ else
 CFILES_CPU = bssn_rhs_c.o fderivs_c.o fdderivs_c.o kodiss_c.o lopsided_c.o lopsided_kodis_c.o
 endif
 
-CFILES_CUDA_BSSN = bssn_rhs_cuda.o bssn_gpu_rhs_ss.o
+CFILES_CUDA_BSSN = bssn_rhs_cuda.o
 
 ifeq ($(USE_CUDA_BSSN),1)
 CFILES = $(CFILES_CUDA_BSSN)

AMSS_NCKU_source/makefile.inc

@@ -1,7 +1,7 @@
 ## Toolchain selection
 ##   nvhpc : NVIDIA HPC SDK + CUDA-aware MPI (default)
 ##   intel : Intel oneAPI toolchain (legacy path)
-TOOLCHAIN ?= intel
+TOOLCHAIN ?= nvhpc
 
 ## PGO build mode switch (ABE only; TwoPunctureABE always uses opt flags)
 ##   opt        : (default) maximum performance with PGO profile-guided optimization
@@ -88,4 +88,4 @@ endif
 
 Cu = $(NVHPC_ROOT)/compilers/bin/nvcc
 CUDA_LIB_PATH = -L$(CUDA_HOME)/lib64 -I$(CUDA_HOME)/include
-CUDA_APP_FLAGS = -c -g -O3 --ptxas-options=-v -Dfortran3 -Dnewc -arch=$(CUDA_ARCH)
+CUDA_APP_FLAGS = -c -g -O3 --ptxas-options=-v -Dfortran3 -Dnewc -arch=$(CUDA_ARCH)

AMSS_NCKU_source/monitor.C

@@ -1,8 +1,7 @@
 
-#ifdef newc
-#include <cstdio>
-#include <sstream>
-using namespace std;
+#ifdef newc
+#include <cstdio>
+using namespace std;
 #else
 #include <stdio.h>
 #endif
@@ -78,17 +77,16 @@ monitor::monitor(const char fname[], int myrank, string head)
       parameters::str_par.insert(map<string, string>::value_type("output dir", out_dir));
     }
     // considering checkpoint run
-    string filename = out_dir + "/" + fname;
-    int i = 1;
-    while ((access(filename.c_str(), F_OK)) != -1)
-    {
-      stringstream ss;
-      ss << out_dir << "/" << i << "_" << fname;
-      filename = ss.str();
-      i++;
-    }
-
-    outfile.open(filename.c_str(), ios::trunc);
+    char filename[50];
+    sprintf(filename, "%s/%s", out_dir.c_str(), fname);
+    int i = 1;
+    while ((access(filename, F_OK)) != -1)
+    {
+      sprintf(filename, "%s/%d_%s", out_dir.c_str(), i, fname);
+      i++;
+    }
+
+    outfile.open(filename, ios::trunc);
 
     time_t tnow;
     time(&tnow);
@@ -109,17 +107,16 @@ monitor::monitor(const char fname[], int myrank, const int out_rank, string head
   if (I_Print)
   {
     // considering checkpoint run
-    string filename = out_dir + "/" + fname;
-    int i = 1;
-    while ((access(filename.c_str(), F_OK)) != -1)
-    {
-      stringstream ss;
-      ss << out_dir << "/" << i << "_" << fname;
-      filename = ss.str();
-      i++;
-    }
-
-    outfile.open(filename.c_str(), ios::trunc);
+    char filename[50];
+    sprintf(filename, "%s/%s", out_dir.c_str(), fname);
+    int i = 1;
+    while ((access(filename, F_OK)) != -1)
+    {
+      sprintf(filename, "%s/%d_%s", out_dir.c_str(), i, fname);
+      i++;
+    }
+
+    outfile.open(filename, ios::trunc);
 
     time_t tnow;
     time(&tnow);

AMSS_NCKU_source/z4c_rhs_cuda.h

@@ -53,6 +53,14 @@ int z4c_cuda_pack_state_batch_to_host_buffer(void *block_tag,
                                              int i0, int j0, int k0,
                                              int sx, int sy, int sz);
 
+int z4c_cuda_pack_state_batch_to_host_buffer_for_host_views(void *block_tag,
+                                                            double **state_host_key,
+                                                            int state_count,
+                                                            double *host_buffer,
+                                                            int *ex,
+                                                            int i0, int j0, int k0,
+                                                            int sx, int sy, int sz);
+
 int z4c_cuda_unpack_state_batch_from_host_buffer(void *block_tag,
                                                  int state_count,
                                                  double *host_buffer,
@@ -60,6 +68,14 @@ int z4c_cuda_unpack_state_batch_from_host_buffer(void *block_tag,
                                                  int i0, int j0, int k0,
                                                  int sx, int sy, int sz);
 
+int z4c_cuda_unpack_state_batch_from_host_buffer_for_host_views(void *block_tag,
+                                                                double **state_host_key,
+                                                                int state_count,
+                                                                double *host_buffer,
+                                                                int *ex,
+                                                                int i0, int j0, int k0,
+                                                                int sx, int sy, int sz);
+
 int z4c_cuda_pack_state_batch_to_device_buffer(void *block_tag,
                                                int state_count,
                                                double *device_buffer,
@@ -67,6 +83,14 @@ int z4c_cuda_pack_state_batch_to_device_buffer(void *block_tag,
                                                int i0, int j0, int k0,
                                                int sx, int sy, int sz);
 
+int z4c_cuda_pack_state_batch_to_device_buffer_for_host_views(void *block_tag,
+                                                              double **state_host_key,
+                                                              int state_count,
+                                                              double *device_buffer,
+                                                              int *ex,
+                                                              int i0, int j0, int k0,
+                                                              int sx, int sy, int sz);
+
 int z4c_cuda_unpack_state_batch_from_device_buffer(void *block_tag,
                                                    int state_count,
                                                    double *device_buffer,
@@ -74,6 +98,78 @@ int z4c_cuda_unpack_state_batch_from_device_buffer(void *block_tag,
                                                    int i0, int j0, int k0,
                                                    int sx, int sy, int sz);
 
+int z4c_cuda_unpack_state_batch_from_device_buffer_for_host_views(void *block_tag,
+                                                                  double **state_host_key,
+                                                                  int state_count,
+                                                                  double *device_buffer,
+                                                                  int *ex,
+                                                                  int i0, int j0, int k0,
+                                                                  int sx, int sy, int sz);
+
+int z4c_cuda_pack_state_segments_to_device_buffer(void *block_tag,
+                                                  int state_count,
+                                                  double *device_buffer,
+                                                  int *ex,
+                                                  int segment_count,
+                                                  const int *segment_meta);
+
+int z4c_cuda_pack_state_segments_to_device_buffer_for_host_views(void *block_tag,
+                                                                 double **state_host_key,
+                                                                 int state_count,
+                                                                 double *device_buffer,
+                                                                 int *ex,
+                                                                 int segment_count,
+                                                                 const int *segment_meta);
+
+int z4c_cuda_unpack_state_segments_from_device_buffer(void *block_tag,
+                                                      int state_count,
+                                                      double *device_buffer,
+                                                      int *ex,
+                                                      int segment_count,
+                                                      const int *segment_meta);
+
+int z4c_cuda_unpack_state_segments_from_device_buffer_for_host_views(void *block_tag,
+                                                                     double **state_host_key,
+                                                                     int state_count,
+                                                                     double *device_buffer,
+                                                                     int *ex,
+                                                                     int segment_count,
+                                                                     const int *segment_meta);
+
+int z4c_cuda_restrict_state_segments_to_device_buffer(void *block_tag,
+                                                      int state_count,
+                                                      double *device_buffer,
+                                                      int *ex,
+                                                      int segment_count,
+                                                      const int *segment_meta,
+                                                      const double *state_soa);
+
+int z4c_cuda_restrict_state_segments_to_device_buffer_for_host_views(void *block_tag,
+                                                                     double **state_host_key,
+                                                                     int state_count,
+                                                                     double *device_buffer,
+                                                                     int *ex,
+                                                                     int segment_count,
+                                                                     const int *segment_meta,
+                                                                     const double *state_soa);
+
+int z4c_cuda_prolong_state_segments_to_device_buffer(void *block_tag,
+                                                     int state_count,
+                                                     double *device_buffer,
+                                                     int *ex,
+                                                     int segment_count,
+                                                     const int *segment_meta,
+                                                     const double *state_soa);
+
+int z4c_cuda_prolong_state_segments_to_device_buffer_for_host_views(void *block_tag,
+                                                                    double **state_host_key,
+                                                                    int state_count,
+                                                                    double *device_buffer,
+                                                                    int *ex,
+                                                                    int segment_count,
+                                                                    const int *segment_meta,
+                                                                    const double *state_soa);
+
 int z4c_cuda_restrict_state_batch_to_device_buffer(void *block_tag,
                                                    int state_count,
                                                    double *device_buffer,
@@ -82,6 +178,15 @@ int z4c_cuda_restrict_state_batch_to_device_buffer(void *block_tag,
                                                    int fi0, int fj0, int fk0,
                                                    const double *state_soa);
 
+int z4c_cuda_restrict_state_batch_to_device_buffer_for_host_views(void *block_tag,
+                                                                  double **state_host_key,
+                                                                  int state_count,
+                                                                  double *device_buffer,
+                                                                  int *ex,
+                                                                  int sx, int sy, int sz,
+                                                                  int fi0, int fj0, int fk0,
+                                                                  const double *state_soa);
+
 int z4c_cuda_prolong_state_batch_to_device_buffer(void *block_tag,
                                                   int state_count,
                                                   double *device_buffer,
@@ -91,6 +196,16 @@ int z4c_cuda_prolong_state_batch_to_device_buffer(void *block_tag,
                                                   int lbc_i, int lbc_j, int lbc_k,
                                                   const double *state_soa);
 
+int z4c_cuda_prolong_state_batch_to_device_buffer_for_host_views(void *block_tag,
+                                                                 double **state_host_key,
+                                                                 int state_count,
+                                                                 double *device_buffer,
+                                                                 int *ex,
+                                                                 int sx, int sy, int sz,
+                                                                 int ii0, int jj0, int kk0,
+                                                                 int lbc_i, int lbc_j, int lbc_k,
+                                                                 const double *state_soa);
+
 int z4c_cuda_download_state_subset(void *block_tag,
                                    int *ex,
                                    int subset_count,
@@ -103,7 +218,36 @@ int z4c_cuda_upload_state_subset(void *block_tag,
                                  const int *state_indices,
                                  double **state_host_in);
 
+int z4c_cuda_compute_constraints_resident(void *block_tag,
+                                          int *ex, double *X, double *Y, double *Z,
+                                          int Symmetry, double eps, int co,
+                                          double **constraint_host_out);
+
+int z4c_cuda_interp_state_point3(void *block_tag,
+                                 int *ex,
+                                 int state0,
+                                 int state1,
+                                 int state2,
+                                 double x0,
+                                 double y0,
+                                 double z0,
+                                 double dx,
+                                 double dy,
+                                 double dz,
+                                 double px,
+                                 double py,
+                                 double pz,
+                                 int ordn,
+                                 int symmetry,
+                                 const double *soa3,
+                                 double *out3);
+
+int z4c_cuda_download_constraint_outputs(int *ex,
+                                         double **constraint_host_out);
+
 int z4c_cuda_has_resident_state(void *block_tag);
+int z4c_cuda_resident_state_matches(void *block_tag,
+                                    double **state_host_key);
 
 void z4c_cuda_release_step_ctx(void *block_tag);
 

makefile_and_run.py

@@ -75,13 +75,6 @@ def _input_or_env(input_name, env_name, default=None):
     return getattr(input_data, input_name, default)
 
 
-def _input_env_passthrough(runtime_env, env_name):
-    if env_name in runtime_env:
-        return
-    if hasattr(input_data, env_name):
-        runtime_env[env_name] = str(getattr(input_data, env_name))
-
-
 def _start_cuda_mps_if_requested(runtime_env):
     if input_data.GPU_Calculation != "yes":
         return False
@@ -145,95 +138,28 @@ def _stop_cuda_mps(runtime_env):
 
 def _gpu_runtime_env():
     runtime_env = os.environ.copy()
-    finite_difference = str(getattr(input_data, "Finite_Diffenence_Method", "4th-order")).strip()
 
     defaults = {
-        "AMSS_EVOLVE_TIMING": "1",
-        "AMSS_ESCALAR_STEP_TIMING": "0",
         "AMSS_INTERP_FAST": "1",
         "AMSS_INTERP_GPU": "1",
         "AMSS_ANALYSIS_MAP_EVERY": "1000000",
         "AMSS_CUDA_AWARE_MPI": "1",
         "AMSS_CUDA_KEEP_RESIDENT_AFTER_STEP": "1",
+        "AMSS_CUDA_Z4C_KEEP_RESIDENT_AFTER_STEP": "1",
         "AMSS_CUDA_KEEP_ALL_LEVELS": "1",
-        "AMSS_CUDA_ESCALAR_KEEP_RESIDENT_AFTER_STEP": "1",
-        "AMSS_CUDA_ESCALAR_KEEP_ALL_LEVELS": "1",
-        "AMSS_CUDA_EM_CACHE_SOURCES": "1",
-        "AMSS_CUDA_EM_ZERO_FASTPATH": "1",
-        "AMSS_EM_ZERO_ANALYSIS_FASTPATH": "1",
-        "AMSS_EM_ZERO_RESIDENT_DOWNLOAD_FASTPATH": "1",
-        "AMSS_CUDA_AMR_HOST_STAGED": "1",
-        "AMSS_CUDA_AMR_RESTRICT_DEVICE": "0",
+        "AMSS_CUDA_Z4C_AMR_DEVICE": "0",
+        "AMSS_CUDA_AMR_RESTRICT_DEVICE": "1",
         "AMSS_CUDA_AMR_RESTRICT_BATCH": "0",
         "AMSS_CUDA_DEVICE_SEGMENT_BATCH": "0",
-        "AMSS_CUDA_UNCACHED_DEVICE_BUFFERS": "1",
-        "AMSS_SHELL_FAST_INTERP": "0",
-        "AMSS_SHELL_PARALLEL_INTERP": "0",
-        "AMSS_SHELL_CUDA_INTERP": "0",
+        "AMSS_CUDA_PIN_ESCALAR_TRANSFERS": "0",
+        "AMSS_ESCALAR_GPU_RK": "0",
     }
-    if finite_difference in ("2nd-order", "8th-order"):
-        defaults.update({
-            "AMSS_INTERP_FAST": "0",
-            "AMSS_INTERP_GPU": "0",
-            "AMSS_CUDA_AWARE_MPI": "0",
-        })
-    if finite_difference == "8th-order" and getattr(input_data, "Equation_Class", "") == "BSSN-EM":
-        defaults.update({
-            "AMSS_CUDA_AMR_RESTRICT_DEVICE": "1",
-            "AMSS_CUDA_AMR_RESTRICT_BATCH": "1",
-            "AMSS_CUDA_DEVICE_SEGMENT_BATCH": "1",
-        })
-    if getattr(input_data, "basic_grid_set", "") == "Shell-Patch":
-        defaults.update({
-            "AMSS_CUDA_AWARE_MPI": "0",
-            "AMSS_SHELL_FAST_INTERP": "1",
-            "AMSS_SHELL_PARALLEL_INTERP": "1",
-            "AMSS_SHELL_INTERP_THREADS": "16",
-        })
-    if getattr(input_data, "Equation_Class", "") in ("BSSN", "BSSN-EScalar", "Z4C"):
-        defaults["AMSS_CUDA_AMR_RESTRICT_DEVICE"] = "1"
     if getattr(input_data, "Equation_Class", "") == "Z4C":
-        defaults.update({
-            "AMSS_Z4C_CUDA_RESIDENT": "1",
-            "AMSS_CONSTRAINT_OUT_EVERY": "1000000",
-        })
+        defaults["AMSS_CUDA_Z4C_KEEP_RESIDENT_AFTER_STEP"] = "0"
+        defaults["AMSS_CUDA_KEEP_ALL_LEVELS"] = "0"
     for key, value in defaults.items():
         runtime_env.setdefault(key, value)
 
-    passthrough_envs = [
-        "AMSS_CUDA_RESIDENT_SYNC",
-        "AMSS_CUDA_BSSN_RESIDENT_SYNC",
-        "AMSS_CUDA_EM_RESIDENT_SYNC",
-        "AMSS_CUDA_ESCALAR_RESIDENT_SYNC",
-        "AMSS_CUDA_BH_INTERP_RESIDENT",
-        "AMSS_CUDA_KEEP_RESIDENT_AFTER_STEP",
-        "AMSS_CUDA_KEEP_ALL_LEVELS",
-        "AMSS_CUDA_EM_KEEP_RESIDENT_AFTER_STEP",
-        "AMSS_CUDA_EM_KEEP_ALL_LEVELS",
-        "AMSS_CUDA_ESCALAR_KEEP_RESIDENT_AFTER_STEP",
-        "AMSS_CUDA_ESCALAR_KEEP_ALL_LEVELS",
-        "AMSS_CUDA_AMR_HOST_STAGED",
-        "AMSS_CUDA_AMR_RESTRICT_DEVICE",
-        "AMSS_CUDA_AMR_RESTRICT_BATCH",
-        "AMSS_CUDA_DEVICE_SEGMENT_BATCH",
-        "AMSS_CUDA_UNCACHED_DEVICE_BUFFERS",
-        "AMSS_CUDA_EM_CACHE_SOURCES",
-        "AMSS_CUDA_EM_ZERO_FASTPATH",
-        "AMSS_CUDA_AWARE_MPI",
-        "AMSS_CUDA_REGRID_FLUSH_ALWAYS",
-        "AMSS_Z4C_CUDA_RESIDENT",
-        "AMSS_SHELL_FAST_INTERP",
-        "AMSS_SHELL_PARALLEL_INTERP",
-        "AMSS_SHELL_CUDA_INTERP",
-        "AMSS_SHELL_INTERP_THREADS",
-        "AMSS_EM_ZERO_ANALYSIS_FASTPATH",
-        "AMSS_EM_ZERO_RESIDENT_DOWNLOAD_FASTPATH",
-        "AMSS_INTERP_FAST",
-        "AMSS_INTERP_GPU",
-    ]
-    for env_name in passthrough_envs:
-        _input_env_passthrough(runtime_env, env_name)
-
     optional_overrides = {
         "AMSS_INTERP_FAST_COMPARE": "AMSS_Interp_Fast_Compare",
         "AMSS_INTERP_FAST_COMPARE_LIMIT": "AMSS_Interp_Fast_Compare_Limit",
@@ -262,13 +188,11 @@ def makefile_ABE():
     print( " Compiling the AMSS-NCKU executable file ABE/ABEGPU " ) 
     print(                                                        )
 
-    z4c_mrbd = int(getattr(input_data, "AMSS_Z4C_MRBD", 0))
-
     ## Build command with CPU binding to nohz_full cores
     if (input_data.GPU_Calculation == "no"):
-        makefile_command  = f"{NUMACTL_CPU_BIND} env AMSS_Z4C_MRBD={z4c_mrbd} make -j{BUILD_JOBS} INTERP_LB_MODE=off USE_CUDA_BSSN=0 USE_CUDA_Z4C=0 ABE"
+        makefile_command  = f"{NUMACTL_CPU_BIND} make -j{BUILD_JOBS} INTERP_LB_MODE=off USE_CUDA_BSSN=0 USE_CUDA_Z4C=0 ABE"
     elif (input_data.GPU_Calculation == "yes"):
-        makefile_command  = f"{NUMACTL_CPU_BIND} env AMSS_Z4C_MRBD={z4c_mrbd} make -j{BUILD_JOBS} INTERP_LB_MODE=off USE_CUDA_BSSN=1 USE_CUDA_Z4C=1 ABE_CUDA"
+        makefile_command  = f"{NUMACTL_CPU_BIND} make -j{BUILD_JOBS} INTERP_LB_MODE=off USE_CUDA_BSSN=1 USE_CUDA_Z4C=1 ABE_CUDA"
     else:
         print( " CPU/GPU numerical calculation setting is wrong " )
         print(                                                    )
@@ -344,58 +268,29 @@ def run_ABE():
     mpi_env = None
     started_mps = False
     
-    mpi_processes = int(input_data.MPI_processes)
-    if (input_data.GPU_Calculation == "yes" and
-        getattr(input_data, "Equation_Class", "") == "Z4C"):
-        z4c_env_np = os.environ.get("AMSS_Z4C_GPU_MPI_PROCESSES")
-        if z4c_env_np and int(z4c_env_np) > 0:
-            mpi_processes = int(z4c_env_np)
-        elif mpi_processes < 4:
-            mpi_processes = 4
-    if (input_data.GPU_Calculation == "yes" and
-        getattr(input_data, "basic_grid_set", "") == "Shell-Patch"):
-        shell_env_np = os.environ.get("AMSS_SHELL_GPU_MPI_PROCESSES")
-        if shell_env_np and int(shell_env_np) > 0:
-            mpi_processes = int(shell_env_np)
-        elif mpi_processes < 4:
-            mpi_processes = 4
-
     if (input_data.GPU_Calculation == "no"):
-        mpi_command         = NUMACTL_CPU_BIND + " mpirun -np " + str(mpi_processes) + " ./ABE"
+        mpi_command         = NUMACTL_CPU_BIND + " mpirun -np " + str(input_data.MPI_processes) + " ./ABE"
         #mpi_command         = " mpirun -np " + str(input_data.MPI_processes) + " ./ABE"
         mpi_command_outfile = "ABE_out.log"
     elif (input_data.GPU_Calculation == "yes"):
-        mpi_command         = NUMACTL_CPU_BIND + " I_MPI_OFFLOAD=1 I_MPI_OFFLOAD_IPC=0 mpirun -np " + str(mpi_processes) + " ./ABE_CUDA"
+        mpi_command         = NUMACTL_CPU_BIND + " mpirun -np " + str(input_data.MPI_processes) + " ./ABE_CUDA"
         mpi_command_outfile = "ABEGPU_out.log"
         mpi_env = _gpu_runtime_env()
         started_mps = _start_cuda_mps_if_requested(mpi_env)
         print(" GPU optimized runtime switches:")
-        print(f"   MPI processes={mpi_processes}")
         print(f"   AMSS_INTERP_FAST={mpi_env.get('AMSS_INTERP_FAST', '')}")
         print(f"   AMSS_INTERP_GPU={mpi_env.get('AMSS_INTERP_GPU', '')}")
         print(f"   AMSS_ANALYSIS_MAP_EVERY={mpi_env.get('AMSS_ANALYSIS_MAP_EVERY', '')}")
-        print(f"   AMSS_EVOLVE_TIMING={mpi_env.get('AMSS_EVOLVE_TIMING', '')}")
-        print(f"   AMSS_ESCALAR_STEP_TIMING={mpi_env.get('AMSS_ESCALAR_STEP_TIMING', '')}")
         print(f"   AMSS_CUDA_AWARE_MPI={mpi_env.get('AMSS_CUDA_AWARE_MPI', '')}")
         print(f"   AMSS_CUDA_KEEP_RESIDENT_AFTER_STEP={mpi_env.get('AMSS_CUDA_KEEP_RESIDENT_AFTER_STEP', '')}")
+        print(f"   AMSS_CUDA_Z4C_KEEP_RESIDENT_AFTER_STEP={mpi_env.get('AMSS_CUDA_Z4C_KEEP_RESIDENT_AFTER_STEP', '')}")
         print(f"   AMSS_CUDA_KEEP_ALL_LEVELS={mpi_env.get('AMSS_CUDA_KEEP_ALL_LEVELS', '')}")
-        print(f"   AMSS_CUDA_ESCALAR_KEEP_RESIDENT_AFTER_STEP={mpi_env.get('AMSS_CUDA_ESCALAR_KEEP_RESIDENT_AFTER_STEP', '')}")
-        print(f"   AMSS_CUDA_ESCALAR_KEEP_ALL_LEVELS={mpi_env.get('AMSS_CUDA_ESCALAR_KEEP_ALL_LEVELS', '')}")
-        print(f"   AMSS_CUDA_EM_CACHE_SOURCES={mpi_env.get('AMSS_CUDA_EM_CACHE_SOURCES', '')}")
-        print(f"   AMSS_CUDA_EM_ZERO_FASTPATH={mpi_env.get('AMSS_CUDA_EM_ZERO_FASTPATH', '')}")
-        print(f"   AMSS_EM_ZERO_ANALYSIS_FASTPATH={mpi_env.get('AMSS_EM_ZERO_ANALYSIS_FASTPATH', '')}")
-        print(f"   AMSS_EM_ZERO_RESIDENT_DOWNLOAD_FASTPATH={mpi_env.get('AMSS_EM_ZERO_RESIDENT_DOWNLOAD_FASTPATH', '')}")
-        print(f"   AMSS_CUDA_AMR_HOST_STAGED={mpi_env.get('AMSS_CUDA_AMR_HOST_STAGED', '')}")
+        print(f"   AMSS_CUDA_Z4C_AMR_DEVICE={mpi_env.get('AMSS_CUDA_Z4C_AMR_DEVICE', '')}")
         print(f"   AMSS_CUDA_AMR_RESTRICT_DEVICE={mpi_env.get('AMSS_CUDA_AMR_RESTRICT_DEVICE', '')}")
         print(f"   AMSS_CUDA_AMR_RESTRICT_BATCH={mpi_env.get('AMSS_CUDA_AMR_RESTRICT_BATCH', '')}")
         print(f"   AMSS_CUDA_DEVICE_SEGMENT_BATCH={mpi_env.get('AMSS_CUDA_DEVICE_SEGMENT_BATCH', '')}")
-        print(f"   AMSS_CUDA_UNCACHED_DEVICE_BUFFERS={mpi_env.get('AMSS_CUDA_UNCACHED_DEVICE_BUFFERS', '')}")
-        print(f"   AMSS_SHELL_FAST_INTERP={mpi_env.get('AMSS_SHELL_FAST_INTERP', '')}")
-        print(f"   AMSS_SHELL_PARALLEL_INTERP={mpi_env.get('AMSS_SHELL_PARALLEL_INTERP', '')}")
-        print(f"   AMSS_SHELL_CUDA_INTERP={mpi_env.get('AMSS_SHELL_CUDA_INTERP', '')}")
-        print(f"   AMSS_SHELL_INTERP_THREADS={mpi_env.get('AMSS_SHELL_INTERP_THREADS', '')}")
-        print(f"   AMSS_Z4C_CUDA_RESIDENT={mpi_env.get('AMSS_Z4C_CUDA_RESIDENT', '')}")
-        print(f"   AMSS_CONSTRAINT_OUT_EVERY={mpi_env.get('AMSS_CONSTRAINT_OUT_EVERY', '')}")
+        print(f"   AMSS_CUDA_PIN_ESCALAR_TRANSFERS={mpi_env.get('AMSS_CUDA_PIN_ESCALAR_TRANSFERS', '')}")
+        print(f"   AMSS_ESCALAR_GPU_RK={mpi_env.get('AMSS_ESCALAR_GPU_RK', '')}")
         if "CUDA_MPS_PIPE_DIRECTORY" in mpi_env:
             print(f"   CUDA_MPS_PIPE_DIRECTORY={mpi_env['CUDA_MPS_PIPE_DIRECTORY']}")
  

plot_xiaoqu.py

@@ -808,10 +808,10 @@ def generate_ADMmass_plot( outdir, figure_outdir, detector_number_i ):
 
 ## Plot constraint violation for each grid level
 
-def generate_constraint_check_plot( outdir, figure_outdir, input_level_number ):
-
-    # path to data file
-    file0 = os.path.join(outdir, "bssn_constraint.dat")
+def generate_constraint_check_plot( outdir, figure_outdir, input_level_number ):
+
+    # path to data file
+    file0 = os.path.join(outdir, "bssn_constraint.dat")
 
     if ( input_level_number == 0 ):
         print(                                                   )
@@ -819,26 +819,13 @@ def generate_constraint_check_plot( outdir, figure_outdir, input_level_number ):
         print(                                                          )
         print( " corresponding data file = ", file0 )
         print(                                      )
-
-    print( " Begin the constraint violation plot for grid level number =  ", input_level_number )
-
-    if (not os.path.exists(file0)) or os.path.getsize(file0) == 0:
-        if ( input_level_number == 0 ):
-            print( " Constraint data file is empty; skip constraint violation plots" )
-            print(                                                            )
-        return
-
-    # load the full data file (assumed whitespace-separated floats)
-    data = numpy.loadtxt(file0)
-    data = numpy.atleast_2d(data)
-
-    if data.shape[1] < 8:
-        if ( input_level_number == 0 ):
-            print( " Constraint data file has insufficient columns; skip constraint violation plots" )
-            print(                                                                                )
-        return
-
-    # extract columns from the constraint data file
+
+    print( " Begin the constraint violation plot for grid level number =  ", input_level_number )
+    
+    # load the full data file (assumed whitespace-separated floats)
+    data = numpy.loadtxt(file0)
+    
+    # extract columns from the constraint data file
     time          = data[:,0]
     Constraint_H  = data[:,1]
     Constraint_Px = data[:,2]