Skip to content
Snippets Groups Projects
Commit 07d95da8 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

Update closure_mod.F90

parent bf08f879
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/closure_mod.F90
+ 1
− 1
View file @ 07d95da8
...@@ -29,7 +29,7 @@ SUBROUTINE apply_closure_model ...@@ -29,7 +29,7 @@ SUBROUTINE apply_closure_model
! e.g. Dmax = 3 means ! e.g. Dmax = 3 means
! only Napj s.t. p+2j <= 3 are evolved ! 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) ! -> (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 IF(KIN_E) THEN
DO ip = ipgs_e,ipge_e DO ip = ipgs_e,ipge_e
DO ij = ijgs_e,ijge_e DO ij = ijgs_e,ijge_e
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment