From ee4eebe45cc4b40ac6a507bbed123aeb53f835f7 Mon Sep 17 00:00:00 2001
From: Benedetta Veronesi
 <benedettaveronesi@dyn-49-127-142-159.its.monash.edu.au>
Date: Thu, 16 Feb 2023 15:13:44 +1100
Subject: [PATCH] #114 fixing default cooling in disc_setup

---
 src/setup/setup_disc.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/setup/setup_disc.f90 b/src/setup/setup_disc.f90
index 08a63934a..5941cd2b4 100644
--- a/src/setup/setup_disc.f90
+++ b/src/setup/setup_disc.f90
@@ -653,7 +653,7 @@ subroutine equation_of_state(gamma)
     !--adiabatic
     ieos = 2
     gamma = 5./3.
-    icooling = 1
+    icooling = 3
 
     if (use_mcfost) then
        icooling = 0