From c0c6522014678554e6a71594c18d5be80dc3c294 Mon Sep 17 00:00:00 2001 From: JRChreim Date: Sat, 10 Feb 2024 13:27:00 -0800 Subject: [PATCH 1/2] small fix to m_mpi_proxy.fpp Adding 'cv' and 'qvp' variables to m_mpi_proxy.fpp module such that parallel pre-processing runs correctly whenever those variables are called (e.g. phase change module). --- src/pre_process/m_mpi_proxy.fpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/pre_process/m_mpi_proxy.fpp b/src/pre_process/m_mpi_proxy.fpp index b8a0910298..68271fe067 100644 --- a/src/pre_process/m_mpi_proxy.fpp +++ b/src/pre_process/m_mpi_proxy.fpp @@ -99,7 +99,7 @@ contains ! Fluids physical parameters do i = 1, num_fluids_max #:for VAR in [ 'gamma','pi_inf','mul0','ss','pv','gamma_v','M_v', & - & 'mu_v','k_v', 'G', 'qv' ] + & 'mu_v','k_v', 'G', 'cv', 'qv', 'qvp' ] call MPI_BCAST(fluid_pp(i)%${VAR}$, 1, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr) #:endfor end do From 30f3db02999de9457f0dd331b0795d6a26ea6ab3 Mon Sep 17 00:00:00 2001 From: JRChreim Date: Tue, 13 Feb 2024 08:44:16 -0800 Subject: [PATCH 2/2] Update m_mpi_proxy.fpp ./mfc.sh format run --- src/pre_process/m_mpi_proxy.fpp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/pre_process/m_mpi_proxy.fpp b/src/pre_process/m_mpi_proxy.fpp index 17a0dc1648..2eb5288623 100644 --- a/src/pre_process/m_mpi_proxy.fpp +++ b/src/pre_process/m_mpi_proxy.fpp @@ -103,9 +103,8 @@ contains ! Fluids physical parameters do i = 1, num_fluids_max - #:for VAR in [ 'gamma','pi_inf','mul0','ss','pv','gamma_v','M_v', & + #:for VAR in [ 'gamma','pi_inf','mul0','ss','pv','gamma_v','M_v', & & 'mu_v','k_v', 'G', 'cv', 'qv', 'qvp' ] - call MPI_BCAST(fluid_pp(i)%${VAR}$, 1, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr) #:endfor end do