Skip to content
Snippets Groups Projects
Commit ebee05e0 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

add default parameters

parent 15aede86
No related branches found
No related tags found
No related merge requests found
......@@ -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')
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment