From ebee05e0c80672c16fceaee800a747cf3ab096b0 Mon Sep 17 00:00:00 2001
From: Antoine <antoine.hoffmann@epfl.ch>
Date: Mon, 27 Nov 2023 11:18:36 +0100
Subject: [PATCH] add default parameters
---
src/geometry_mod.F90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/geometry_mod.F90 b/src/geometry_mod.F90
index cf3adae4..13d0ab5e 100644
--- a/src/geometry_mod.F90
+++ b/src/geometry_mod.F90
@@ -88,6 +88,10 @@ CONTAINS
READ(lu_in,geometry)
PB_PHASE = .false.
IF(shear .GT. 0._xp) SHEARED = .TRUE.
+ SELECT CASE(geom)
+ CASE('z-pinch','Z-pinch','zpinch','Zpinch')
+ parallel_bc = 'shearless'
+ END SELECT
SELECT CASE(parallel_bc)
CASE ('dirichlet')
CASE ('periodic')
--
GitLab