Merge branch 'debug'

MintonGroup · Nov 15, 2021 · dbb735e · dbb735e
2 parents c2ddf3e + 7b848c2
commit dbb735e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90
@@ -44,6 +44,9 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
                ifirst = ilast + 1
                param_value = io_get_token(line_trim, ifirst, ilast, iostat)
                select case (param_name)
+               case ("OUT_STAT") ! We need to duplicate this from the standard io_param_reader in order to make sure that the restart flag gets set properly in SyMBA
+                  call io_toupper(param_value)
+                  param%out_stat = param_value 
                case ("FRAGMENTATION")
                   call io_toupper(param_value)
                   if (param_value == "YES" .or. param_value == "T") self%lfragmentation = .true.
@@ -80,6 +83,8 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
          1 continue
          close(unit)
 
+         param%lrestart = (param%out_stat == "APPEND")
+
          if (self%GMTINY < 0.0_DP) then
             write(iomsg,*) "GMTINY invalid or not set: ", self%GMTINY
             iostat = -1