From 72cb6f4e424e4354833568336e62f7eefda7ba32 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 27 Jul 2021 10:13:44 +0200
Subject: [PATCH] undo last change
---
src/inital.F90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/inital.F90 b/src/inital.F90
index e78dd6ef..91f05c86 100644
--- a/src/inital.F90
+++ b/src/inital.F90
@@ -64,9 +64,10 @@ 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