From a129393dd904c8f3529043d8de9f013d1b93c681 Mon Sep 17 00:00:00 2001
From: Cristian Lussana <cristianl@pc4979.pc.met.no>
Date: Sun, 1 Apr 2018 01:55:27 +0200
Subject: [PATCH] bug fixed in the plausibility check

---
 titan.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/titan.R b/titan.R
index b7a3dce..c6346b0 100755
--- a/titan.R
+++ b/titan.R
@@ -1288,8 +1288,7 @@ if (argv$verbose | argv$debug) {
 # plausibility test
 # NOTE: keep-listed stations could be flagged here
 ix<-which( (is.na(dqcflag) | dqcflag==keep.code) &
-           data$value<argv$tmin &
-           data$value>argv$tmax)
+           (data$value<argv$tmin | data$value>argv$tmax))
 if (length(ix)>0) dqcflag[ix]<-p.code
 if (argv$verbose | argv$debug) {
   print("plausibility test")