From 1ac9de43ef0f1a1237b94189e3d81d9017d1186b Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Fri, 15 Jan 2021 14:34:30 +0100
Subject: [PATCH] closure and kernel model flags
---
src/model_mod.F90 | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/model_mod.F90 b/src/model_mod.F90
index 1b0967a1..264a640e 100644
--- a/src/model_mod.F90
+++ b/src/model_mod.F90
@@ -6,7 +6,8 @@ MODULE model
PRIVATE
INTEGER, PUBLIC, PROTECTED :: CO = 0 ! Collision Operator
- LOGICAL, PUBLIC, PROTECTED :: DK = 0 ! Drift kinetic model
+ INTEGER, PUBLIC, PROTECTED :: CLOS = 0 ! Truncation method
+ INTEGER, PUBLIC, PROTECTED :: KERN = 0 ! Kernel model
LOGICAL, PUBLIC, PROTECTED :: NON_LIN = .true. ! To turn on non linear bracket term
REAL(dp), PUBLIC, PROTECTED :: mu = 0._dp ! Hyperdiffusivity coefficient (for num. stability)
REAL(dp), PUBLIC, PROTECTED :: nu = 1._dp ! Collision frequency
@@ -44,7 +45,7 @@ CONTAINS
USE prec_const
IMPLICIT NONE
- NAMELIST /MODEL_PAR/ CO, DK, NON_LIN, mu, nu, tau_e, tau_i, sigma_e, sigma_i, &
+ NAMELIST /MODEL_PAR/ CO, CLOS, KERN, NON_LIN, mu, nu, tau_e, tau_i, sigma_e, sigma_i, &
q_e, q_i, eta_n, eta_T, eta_B, lambdaD
READ(lu_in,model_par)
@@ -88,6 +89,8 @@ CONTAINS
INTEGER, INTENT(in) :: fidres
CHARACTER(len=256), INTENT(in) :: str
CALL attach(fidres, TRIM(str), "CO", CO)
+ CALL attach(fidres, TRIM(str), "CLOS", CLOS)
+ CALL attach(fidres, TRIM(str), "KERN", KERN)
CALL attach(fidres, TRIM(str), "NON_LIN", NON_LIN)
CALL attach(fidres, TRIM(str), "nu", nu)
CALL attach(fidres, TRIM(str), "tau_e", tau_e)
--
GitLab