From 0b0a8b918e4e99802ae5a57ec903e7c861993d0d Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Sun, 12 Mar 2023 18:06:53 +0100
Subject: [PATCH] Why this typo was not detected by mpifort... thanks gnu
---
src/cosolver_interface_mod.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/cosolver_interface_mod.F90 b/src/cosolver_interface_mod.F90
index f617dd74..6d8de067 100644
--- a/src/cosolver_interface_mod.F90
+++ b/src/cosolver_interface_mod.F90
@@ -19,7 +19,7 @@ CONTAINS
ikxs,ikxe,ikys,ikye,izs,ize, bar
USE array, ONLY: Capj, Caa, Cab_T, Cab_F, nadiab_moments
USE MPI
- USE model, ONLY: GK_CO, Na, CLOS
+ USE model, ONLY: Na, CLOS
USE species, ONLY: nu_ab
IMPLICIT NONE
LOGICAL, INTENT(IN) :: GK_CO, INTERSPECIES
@@ -101,7 +101,7 @@ CONTAINS
izs,ize,bar
USE array, ONLY: Caa, Cab_T, Cab_F
USE MPI
- USE model, ONLY: GK_CO, Na, LINEARITY
+ USE model, ONLY: Na, LINEARITY
USE species, ONLY: name
USE futils
IMPLICIT NONE
--
GitLab