amdflang: opt m_rhs and m_weno into defaultmap(present:allocatable) (ledger 92: their kernels re-mapped every named allocatable's descriptor per launch, ~270 sub-kilobyte copies per batch); audited per array, no arithmetic change

Author: sbryngelson

src/simulation/m_rhs.fpp

@@ -3,6 +3,15 @@
 !! @brief Contains module m_rhs
 
 #:include 'case.fpp'
+#! AMD OpenMP lane: assert allocatables present on every kernel here (see OMP_DEFAULT_STR).
+#! Audited 2026-09-06: every conditionally allocated module array a kernel here names launches
+#! only under its allocation's own condition (blkmod/alpha/Kterm: alt_soundspeed;
+#! flux_n/flux_gsrc_n/rhs_hat*: dual pass; nc_iface_vel_n: alpha_iface + alt_soundspeed, a subset
+#! of use_nc_iface_vel; tau_Re_vf: viscous; qL/qR_*: .not. igr; flux_gsrc_rsx_vf: cyl_coord;
+#! dy/y_cc/dz: idir <= num_dims). Without it every launch re-maps the descriptor of each named
+#! allocatable (ledger 92: 33 + 26 copies per direction per batch). A kernel naming an
+#! UNALLOCATED array aborts. Keep it so.
+#:set MFC_OMP_PRESENT_ALLOCATABLE = True
 #:include 'macros.fpp'
 
 !> @brief Assemble the right-hand side of the governing equations using finite-volume flux differencing, Riemann solvers, and

src/simulation/m_weno.fpp

@@ -2,6 +2,13 @@
 !! @file
 !! @brief Contains module m_weno
 #:include 'case.fpp'
+#! AMD OpenMP lane: assert allocatables present on every kernel here (see OMP_DEFAULT_STR).
+#! Audited 2026-09-06: v_rs_weno and the x/y/z coefficient tables exist whenever their kernels
+#! launch (weno_order /= 1; the y/z tables under n > 0 / p > 0, and s_weno is called with
+#! recon_dir <= num_dims). Without it every launch re-maps the descriptor of each named
+#! allocatable (ledger 92: 10 + 13 + 8 copies per direction per batch). A kernel naming an
+#! UNALLOCATED array aborts. Keep it so.
+#:set MFC_OMP_PRESENT_ALLOCATABLE = True
 #:include 'macros.fpp'
 
 !> @brief WENO/WENO-Z/TENO reconstruction with optional monotonicity-preserving bounds and mapped weights