From ba05f7e1415dc2b32dd89d746a8132e731f67473 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 27 Jul 2021 10:12:01 +0200
Subject: [PATCH] Correction of Tcoll init
---
src/inital.F90 | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/inital.F90 b/src/inital.F90
index 91f05c86..e78dd6ef 100644
--- a/src/inital.F90
+++ b/src/inital.F90
@@ -64,10 +64,9 @@ SUBROUTINE inital
!!!!!! Load the COSOlver collision operator coefficients !!!!!!
IF (ABS(CO) .GT. 1) THEN
CALL load_COSOlver_mat
- ! Compute collision
- CALL compute_TColl ! compute C_0 = C(N_0)
ENDIF
-
+ ! Compute collision
+ CALL compute_TColl ! compute C_0 = C(N_0)
END SUBROUTINE inital
!******************************************************************************!
--
GitLab