Merge branch 'fix-empty-restart-files' into id-fix-for-32-bit

NOAA-GFDL · Jun 16, 2017 · 2ec7bd0 · 2ec7bd0
2 parents e7fc83f + 04dfea1
commit 2ec7bd0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/icebergs_io.F90 b/icebergs_io.F90
@@ -801,7 +801,7 @@ subroutine read_restart_bergs(bergs,Time)
      allocate(iceberg_num(nbergs_in_file))
   endif
 
-  if (found_restart) then
+  if (found_restart .and. nbergs_in_file > 0) then
      call read_unlimited_axis(filename,'lon',lon,domain=grd%domain)
      call read_unlimited_axis(filename,'lat',lat,domain=grd%domain)
      call read_unlimited_axis(filename,'uvel',uvel,domain=grd%domain)