From 245f2d2be81ea0acad73198bed752af7c70bb295 Mon Sep 17 00:00:00 2001
From: Kateryna Andrych <kateryna.andrych@mq.edu.au>
Date: Wed, 4 Dec 2024 15:22:53 +1100
Subject: [PATCH] set isink=1for ieos=6 in case where isink was not set

---
 src/main/eos.f90 | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/main/eos.f90 b/src/main/eos.f90
index 5df8d12ca..59c4326c5 100644
--- a/src/main/eos.f90
+++ b/src/main/eos.f90
@@ -481,9 +481,8 @@ subroutine init_eos(eos_type,ierr)
     !--Check that if using ieos=6, then isink is set properly
     !
     if (isink==0) then
-       call error('eos','ieos=6, but isink is not set')
-       ierr = ierr_isink_not_set
-       return
+       call error('eos','ieos=6, but isink is not set, setting to 1')
+       isink = 1
     endif
 
  case(8)