From 4e029ce39c600860163a2964d8d7bc32dd5037ef Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Tue, 26 Sep 2023 16:18:27 +0200
Subject: [PATCH] clearer std out
---
src/geometry_mod.F90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/geometry_mod.F90 b/src/geometry_mod.F90
index 73b4e589..5675ced4 100644
--- a/src/geometry_mod.F90
+++ b/src/geometry_mod.F90
@@ -167,7 +167,9 @@ CONTAINS
! inv squared of the magnetic gradient bckg amplitude (for fast kperp update)
inv_hatB2 = 1/hatB/hatB
! Reset kx grid (to account for Cyq0_x0 factor)
+ CALL speak('--Reset kx grid according to Cyq0_x0 factor--')
CALL set_kxgrid(shear,ExBrate,Npol,Cyq0_x0,LINEARITY,N_HD)
+ CALL speak('-- done --')
!
! Evaluate perpendicular wavenumber
! k_\perp^2 = g^{xx} k_x^2 + 2 g^{xy}k_x k_y + k_y^2 g^{yy}
--
GitLab