From abc0b475f553ecc2e1fae9ad3a603940e47d37a2 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 3 Apr 2023 15:14:34 +0200
Subject: [PATCH] typo in max_degree closure option
---
src/closure_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/closure_mod.F90 b/src/closure_mod.F90
index 06eaf276..8d57639c 100644
--- a/src/closure_mod.F90
+++ b/src/closure_mod.F90
@@ -46,7 +46,7 @@ SUBROUTINE set_closure_model
DO ip = 1,local_np+ngp
DO ij = 1, local_nj+ngj
evolve_mom(ip,ij) = (parray(ip).GE.0) .AND. (jarray(ij).GE.0) &
- .AND. (2*parray(ip)+jarray(ij) .GT. dmax)
+ .AND. (2*parray(ip)+jarray(ij) .LE. dmax)
ENDDO
ENDDO
CASE DEFAULT
--
GitLab