Everything is compiling

Author: danieljvickers

examples/2D_acoustic_pulse/case.py

@@ -75,7 +75,7 @@
             "patch_icpp(1)%alpha_rho(1)": rho_inf,
             "patch_icpp(1)%alpha(1)": 1.0,
             # Patch 2
-            "patch_icpp(2)%geometry": 7,
+            "patch_icpp(2)%geometry": 2,
             "patch_icpp(2)%x_centroid": 0,
             "patch_icpp(2)%y_centroid": 0,
             "patch_icpp(2)%radius": 1.0,

examples/2D_isentropicvortex/case.py

@@ -96,7 +96,7 @@
             "omega_wrt(3)": "T",
             "fd_order": 2,
             # Patch 1
-            "patch_icpp(1)%geometry": 7,
+            "patch_icpp(1)%geometry": 3,
             "patch_icpp(1)%x_centroid": 0,
             "patch_icpp(1)%y_centroid": 0,
             "patch_icpp(1)%length_x": 10.0,

examples/2D_zero_circ_vortex/case.py

@@ -77,7 +77,7 @@
             "patch_icpp(1)%alpha_rho(1)": 1,
             "patch_icpp(1)%alpha(1)": 1.0,
             # Patch 2
-            "patch_icpp(2)%geometry": 7,
+            "patch_icpp(2)%geometry": 2,
             "patch_icpp(2)%x_centroid": 0,
             "patch_icpp(2)%y_centroid": 0,
             "patch_icpp(2)%radius": 1.0,

examples/3D_TaylorGreenVortex/case.py

@@ -78,7 +78,7 @@
             "parallel_io": "T",
             # I will use 1 for WATER properties, and 2 for AIR properties
             # Patch 1: Background (AIR - 2)
-            "patch_icpp(1)%geometry": 13,
+            "patch_icpp(1)%geometry": 9,
             "patch_icpp(1)%x_centroid": 0,
             "patch_icpp(1)%y_centroid": 0,
             "patch_icpp(1)%z_centroid": 0,

src/pre_process/include/2dHardcodedIC.fpp

@@ -164,7 +164,7 @@
     case (280)
         ! This is patch is hard-coded for test suite optimization used in the
         ! 2D_zero_circ_vortex case:
-        ! This analytic patch used geometry 2
+        ! This analytic patch uses geometry 2
         if (patch_id == 1) then
             q_prim_vf(E_idx)%sf(i, j, 0) = 1d0*(1d0 - (1d0/1d0)*(5d0/(2d0*3.141592653589793))*(5d0/(8d0*1d0*(1.4 + 1d0)*3.141592653589793))*exp(2d0*1d0*(1d0 - (x_cc(i) - patch_icpp(1)%x_centroid)**2d0- (y_cc(j) - patch_icpp(1)%y_centroid)**2d0)))**(1.4 + 1d0)
             q_prim_vf(contxb + 0)%sf(i, j, 0) = 1d0*(1d0 - (1d0/1d0)*(5d0/(2d0*3.141592653589793))*(5d0/(8d0*1d0*(1.4 + 1d0)*3.141592653589793))*exp(2d0*1d0*(1d0 - (x_cc(i) - patch_icpp(1)%x_centroid)**2d0- (y_cc(j) - patch_icpp(1)%y_centroid)**2d0)))**1.4
@@ -175,7 +175,7 @@
     case (281)
         ! This is patch is hard-coded for test suite optimization used in the
         ! 2D_acoustic_pulse case:
-        ! This analytic patch used geometry 2
+        ! This analytic patch uses geometry 2
         if (patch_id == 2) then
             q_prim_vf(E_idx)%sf(i, j, 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4 / (1.4 - 1))
             q_prim_vf(contxb + 0)%sf(i, j, 0) = 1*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1 / (1.4 - 1))