From 60477481dd67a4e1fb9f4baecf87fa7003ee2c8b Mon Sep 17 00:00:00 2001
From: Jorge Gonzalez <jorge.gonzalez@upm.es>
Date: Thu, 9 Feb 2023 16:48:49 +0100
Subject: [PATCH] Adds the commit to the output folder

I thought it will be a good idea to write the commit into the output
folder to better track the code version responsible for the results.
---
 src/modules/solver/moduleSolver.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/modules/solver/moduleSolver.f90 b/src/modules/solver/moduleSolver.f90
index e557495..da2c9c4 100644
--- a/src/modules/solver/moduleSolver.f90
+++ b/src/modules/solver/moduleSolver.f90
@@ -518,6 +518,11 @@ MODULE moduleSolver
 
       INTEGER, INTENT(in):: t
 
+      IF (t == tInitial) THEN
+        CALL SYSTEM('git rev-parse HEAD > ' // path // folder // '/' // 'fpack_commit.txt')
+
+      END IF
+
       counterOutput = counterOutput + 1
       IF (counterOutput >= triggerOutput .OR. &
           t == tFinal .OR. t == tInitial) THEN
-- 
2.49.1