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 !