Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Added check for OUT_STAT=='APPEND' in symba_io_param_reader in order …
Browse files Browse the repository at this point in the history
…to correctly set the param%lrestart flag in SyMBA runs prior to calling the main io_param_reader subroutine
  • Loading branch information
daminton committed Nov 15, 2021
1 parent 9c3770c commit 7b848c2
Showing 1 changed file with 5 additions and 0 deletions.
5 changes: 5 additions & 0 deletions src/symba/symba_io.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 7b848c2

Please sign in to comment.