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

closure fix for P=0,J=0 case

parent 0ba231f3
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 1 deletion
src/closure_mod.F90
+ 3
− 1
View file @ 30cebcc6
...@@ -80,7 +80,9 @@ SUBROUTINE set_closure_model ...@@ -80,7 +80,9 @@ SUBROUTINE set_closure_model
nmaxarray(ij) = jmax - jarray(ij+ngj/2) nmaxarray(ij) = jmax - jarray(ij+ngj/2)
ENDDO ENDDO
ELSE ELSE
nmaxarray(:) = nmax DO ij = 1,local_nj
nmaxarray(ij) = MIN(nmax,jmax)
ENDDO
ENDIF ENDIF
CASE('anti_laguerre_aliasing') CASE('anti_laguerre_aliasing')
DO ij = 1,local_nj DO ij = 1,local_nj
......
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