From a6b16f0c478f5bdf9b92026b2c3cdfb27e2ab757 Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Wed, 27 Mar 2024 11:20:32 -0400 Subject: [PATCH] Debug ppoly0 values --- src/ALE/MOM_remapping.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/ALE/MOM_remapping.F90 b/src/ALE/MOM_remapping.F90 index 94cccad7fd..5d4aa45f4b 100644 --- a/src/ALE/MOM_remapping.F90 +++ b/src/ALE/MOM_remapping.F90 @@ -1792,6 +1792,8 @@ logical function remapping_unit_tests(verbose) ! u_sub = |1| 2 |3| 4 | 5.5 | 6 | call PLM_reconstruction(3, (/2.,2.,1./), (/2.,4.,5.5/), ppoly0_E, ppoly0_coefs, h_neglect ) call PLM_boundary_extrapolation(3, (/2.,2.,1./),(/2.,4.,5.5/), ppoly0_E, ppoly0_coefs, h_neglect) + call test%real_arr(3, ppoly0_E(:,1), (/1.,3.,5./), 'ppoly0_E(:,1)') + call test%real_arr(3, ppoly0_E(:,2), (/3.,5.,6./), 'ppoly0_E(:,1)') allocate(u_sub(6), uh_sub(6)) call remap_src_to_sub_grid(3, (/2.,2.,1./), (/2.,4.,5.5/), ppoly0_E, ppoly0_coefs, 3, h_sub, & h0_eff, isrc_start, isrc_end, isrc_max, isub_src, &