Skip to content

Commit 69096ff

Browse files
committed
Add better file_format checking
1 parent 4f15ae3 commit 69096ff

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/2d/shallow/gauges_module.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -749,10 +749,10 @@ subroutine print_gauges_and_reset_nextLoc(gauge_num)
749749
(gauges(gauge_num)%data(k, j), k=1,nvals)
750750
end do
751751

752-
else if (gauges(gauge_num)%file_format >= 2) then
752+
else if (gauges(gauge_num)%file_format == 2 .or. &
753+
gauges(gauge_num)%file_format == 3) then
753754

754755
! binary output
755-
756756
open(unit=myunit, file=gauges(gauge_num)%file_name_bin, &
757757
status='unknown', position='append',access='stream')
758758

0 commit comments

Comments
 (0)