From eb0a1e2fad6fcb246b0247faf05ef1e48c84b2a3 Mon Sep 17 00:00:00 2001
From: Christopher Harrop
 <35781497+christopherwharrop-noaa@users.noreply.github.com>
Date: Mon, 4 Apr 2022 18:14:14 -0600
Subject: [PATCH] Fix logical comparison bug caught by Gnu build (#4)

---
 src/enkf/gridio_fv3reg.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/enkf/gridio_fv3reg.f90 b/src/enkf/gridio_fv3reg.f90
index 0dd03dfb82..55494ee0c3 100644
--- a/src/enkf/gridio_fv3reg.f90
+++ b/src/enkf/gridio_fv3reg.f90
@@ -227,7 +227,7 @@ subroutine readgriddata(nanal1,nanal2,vars3d,vars2d,n3d,n2d,levels,ndim,ntimes,f
 
     endif
 
-    if (tv_ind > 0.or.tsen_ind) then
+    if (tv_ind > 0.or.tsen_ind > 0) then
        allocate(tsenworkvar3d(nx_res,ny_res,nlevs))
        varstrname = 'T'
        call read_fv3_restart_data3d(varstrname,fv3filename,file_id,tsenworkvar3d)