Fix logical comparison bug caught by Gnu build (#4)

hu5970 · Apr 5, 2022 · eb0a1e2 · eb0a1e2
1 parent e301730
commit eb0a1e2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)