WIP

adcroft · Aug 13, 2024 · 786d0f7 · 786d0f7
1 parent 5bde4b2
commit 786d0f7
Show file tree

Hide file tree

Showing 2 changed files with 414 additions and 0 deletions.
diff --git a/src/ALE/MOM_remapping.F90 b/src/ALE/MOM_remapping.F90
@@ -24,6 +24,7 @@ module MOM_remapping
 use Recon1d_EMPLM_WA, only : EMPLM_WA
 use Recon1d_MPLM_WA_poly, only : MPLM_WA_poly
 use Recon1d_EMPLM_WA_poly, only : EMPLM_WA_poly
+use Recon1d_PPM_CW, only : PPM_CW
 use Recon1d_PPM_H4_2019, only : PPM_H4_2019
 
 implicit none ; private
@@ -1760,6 +1761,9 @@ subroutine setReconstructionType(string,CS)
     case ("C_EMPLM_WA_POLY")
       allocate( EMPLM_WA_poly :: CS%reconstruction )
       CS%remapping_scheme = REMAPPING_VIA_CLASS
+    case ("C_PPM_CW")
+      allocate( PPM_CW :: CS%reconstruction )
+      CS%remapping_scheme = REMAPPING_VIA_CLASS
     case ("C_PPM_H4_2019")
       allocate( PPM_H4_2019 :: CS%reconstruction )
       CS%remapping_scheme = REMAPPING_VIA_CLASS
@@ -1820,6 +1824,7 @@ logical function remapping_unit_tests(verbose, num_comp_samp)
   type(MPLM_WA_poly) :: MPLM_WA_poly
   type(EMPLM_WA_poly) :: EMPLM_WA_poly
   type(PPM_H4_2019) :: PPM_H4_2019
+  type(PPM_CW) :: PPM_CW
 
   call test%set( verbose=verbose ) ! Sets the verbosity flag in test
   call test%set( stop_instantly=.true. ) ! While debugging
@@ -2438,7 +2443,9 @@ logical function remapping_unit_tests(verbose, num_comp_samp)
   call test%test( MPLM_WA_poly%unit_tests(verbose, test%stdout, test%stderr), 'MPLM_WA_poly unit test')
   call test%test( EMPLM_WA_poly%unit_tests(verbose, test%stdout, test%stderr), 'EMPLM_WA_poly unit test')
   call test%test( PLM_CW%unit_tests(verbose, test%stdout, test%stderr), 'PLM_CW unit test')
+  call test%test( PPM_CW%unit_tests(verbose, test%stdout, test%stderr), 'PPM_CW unit test')
   call test%test( PPM_H4_2019%unit_tests(verbose, test%stdout, test%stderr), 'PPM_H4_2019 unit test')
+stop
 
   ! Randomized, brute force tests
   ntests = 3000