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 !