From 07d95da84d18ddfd6f7f916ba0d9bb0fd61ff8df Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <antoine.hoffmann@epfl.ch>
Date: Sun, 19 Feb 2023 11:45:38 +0000
Subject: [PATCH] Update closure_mod.F90
---
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 6a3225b9..c7d7bb20 100644
--- a/src/closure_mod.F90
+++ b/src/closure_mod.F90
@@ -29,7 +29,7 @@ SUBROUTINE apply_closure_model
! e.g. Dmax = 3 means
! only Napj s.t. p+2j <= 3 are evolved
! -> (p,j) allowed are (0,0),(1,0),(0,1),(2,0),(1,1),(3,0)
- ! =>> Dmax = min(Pmax,Jmax+1)
+ ! =>> Dmax = min(Pmax,2*Jmax+1)
IF(KIN_E) THEN
DO ip = ipgs_e,ipge_e
DO ij = ijgs_e,ijge_e
--
GitLab