From f6ee877938c439cb07e1e9e3e48fe21ddc8e1c1c Mon Sep 17 00:00:00 2001
From: Pedro Costa
Date: Sun, 16 Feb 2025 18:05:43 +0100
Subject: [PATCH] Force `is_impdiff = T` when `is_impdiff_1d = T`.
---
src/param.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/param.f90 b/src/param.f90
index 680dcde7..5e4b3375 100644
--- a/src/param.f90
+++ b/src/param.f90
@@ -301,6 +301,7 @@ subroutine read_input(myid)
close(iunit)
error stop
end if
+ if(is_impdiff_1d) is_impdiff = .true.
!
! read `other_options` namelist
!