From cb5e977808392dab7c872f226f46d02847de6dab Mon Sep 17 00:00:00 2001 From: Haocheng Yu <98496194+haochey@users.noreply.github.com> Date: Tue, 5 Nov 2024 11:15:01 -0500 Subject: [PATCH] Reverse Changes on #544 for Rectangle Patches The changes on the rectangle patches are added mistakenly. --- src/pre_process/m_patches.fpp | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/src/pre_process/m_patches.fpp b/src/pre_process/m_patches.fpp index 5baf28cc89..61cd54bad1 100644 --- a/src/pre_process/m_patches.fpp +++ b/src/pre_process/m_patches.fpp @@ -988,18 +988,6 @@ contains y_boundary%end >= y_cc(j)) & then - call s_assign_patch_primitive_variables(patch_id, i, j, 0, & - eta, q_prim_vf, patch_id_fp) - - @:analytical() - - if ((q_prim_vf(1)%sf(i, j, 0) < 1.e-10) .and. (model_eqns == 4)) then - !zero density, reassign according to Tait EOS - q_prim_vf(1)%sf(i, j, 0) = & - (((q_prim_vf(E_idx)%sf(i, j, 0) + pi_inf)/(pref + pi_inf))**(1d0/lit_gamma))* & - rhoref*(1d0 - q_prim_vf(alf_idx)%sf(i, j, 0)) - end if - ! Updating the patch identities bookkeeping variable if (1d0 - eta < 1d-16) patch_id_fp(i, j, 0) = patch_id