From b1c3045dad54096b25f3f1fa99611ca71606c4e8 Mon Sep 17 00:00:00 2001
From: "ukmo-chris.bunney" <christopher.bunney@metoffice.gov.uk>
Date: Wed, 12 Feb 2020 14:43:53 +0000
Subject: [PATCH] Bug fix to OMP directive when using OMPH switch but not T2
 switch.

---
 model/ftn/w3uno2md.ftn | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/model/ftn/w3uno2md.ftn b/model/ftn/w3uno2md.ftn
index ce2f1944f..32d4e9c5e 100644
--- a/model/ftn/w3uno2md.ftn
+++ b/model/ftn/w3uno2md.ftn
@@ -912,7 +912,9 @@
 !/C90/!DIR$ IVDEP
 !/NEC/!CDIR NODEP
 !
-!/OMPH/!$OMP PARALLEL DO PRIVATE (IP, IXY, JN, JP, QOLD )
+!/OMPH/!$OMP PARALLEL DO  &
+!/OMPH/!/T2/!$OMP       PRIVATE(QOLD), &
+!/OMPH/!$OMP       PRIVATE (IP, IXY, JN, JP)
 !
       DO IP=1, NACT
 !