From e0b80928c1782d3cf4e175cd910c9c445c9ac866 Mon Sep 17 00:00:00 2001
From: Antoine <antoine.hoffmann@epfl.ch>
Date: Thu, 31 Aug 2023 13:37:57 +0200
Subject: [PATCH] add variable to store path to gyacomo dir
---
src/basic_mod.F90 | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index fb34690a..6010c59d 100644
--- a/src/basic_mod.F90
+++ b/src/basic_mod.F90
@@ -43,6 +43,13 @@ MODULE basic
! This sets if the outputs is done through a large gather or using parallelization from futils
! it is recommended to set it to .true.
LOGICAL, PUBLIC, PROTECTED :: GATHERV_OUTPUT = .true.
+ ! Store as a parameter the path to the main directory of the code
+ ! (the path to gyacomo dir is stored during the compilation)
+#ifdef __GYACDIR__
+ CHARACTER(len=*), PUBLIC, PARAMETER :: maindir = __GYACDIR__
+#else
+ CHARACTER(len=*), PUBLIC, PARAMETER :: maindir = ""
+#endif
! Routines interfaces
PUBLIC :: allocate_array, basic_outputinputs,basic_data,&
speak, str, increase_step, increase_cstep, increase_time, display_h_min_s,&
--
GitLab