From 8aa770b613a049b2302357fa697b1ab4ac4303a8 Mon Sep 17 00:00:00 2001
From: mattijs <mattijs>
Date: Tue, 11 Sep 2012 10:36:12 +0100
Subject: [PATCH] ENH: Time: propagate application setting into environment var

---
 src/OpenFOAM/db/Time/TimeIO.C | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/OpenFOAM/db/Time/TimeIO.C b/src/OpenFOAM/db/Time/TimeIO.C
index 557ebdddcb..853c6244d7 100644
--- a/src/OpenFOAM/db/Time/TimeIO.C
+++ b/src/OpenFOAM/db/Time/TimeIO.C
@@ -30,6 +30,13 @@ License
 
 void Foam::Time::readDict()
 {
+    word application;
+    if (controlDict_.readIfPresent("application", application))
+    {
+        // Do not override if already set so external application can override
+        setEnv("FOAM_APPLICATION", application, false);
+    }
+
     if (!deltaTchanged_)
     {
         deltaT_ = readScalar(controlDict_.lookup("deltaT"));