fix a bug in superob when nobs=0

gmao-cda · Mar 8, 2024 · 1b089a2 · 1b089a2
1 parent 3dc1a8b
commit 1b089a2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/obs/superob.f90 b/src/obs/superob.f90
@@ -81,9 +81,9 @@ PROGRAM superob
   ! Read observations from file
   !-----------------------------------------------------------------------------
   nobs = 0
-  CALL get_nobs(trim(obsinfile),8,nobs)
+  CALL get_nobs(trim(obsinfile),8,nobs, errIfNoObs=.false.)
 
-  if (nobs<0) then ! [NOBS <= 0]
+  if (nobs<=0) then ! [NOBS <= 0]
 
      print*, "[warning] superob :: nobs = 0. will output an empty file" 
      call create_empty_obsfile(trim(obsoutfile))