From fc663eee57c4bfcbbb223f7d8c624afa045741e0 Mon Sep 17 00:00:00 2001 From: Peter R Date: Thu, 30 Jan 2025 18:59:03 +0200 Subject: [PATCH] Do not prepare mesh by default for p-elements before splitting. --- fem/src/ModelDescription.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/fem/src/ModelDescription.F90 b/fem/src/ModelDescription.F90 index 3fe104e8b3..3279fa39e1 100644 --- a/fem/src/ModelDescription.F90 +++ b/fem/src/ModelDescription.F90 @@ -2984,7 +2984,9 @@ FUNCTION LoadModel( ModelName,BoundariesOnly,numprocs,mype,MeshIndex) RESULT( Mo IF( MeshLevels > 1 ) THEN ! This has been commented out, but is needed. There may be some issues in parallel still... - CALL PrepareMesh( Model, NewMesh, ParEnv % PEs > 1 ) + IF(ListGetLogical(Model % Simulation,'Prepare Mesh Before Split',GotIt) ) THEN + CALL PrepareMesh( Model, NewMesh, ParEnv % PEs > 1 ) + END IF END IF