diff --git a/src/closure_mod.F90 b/src/closure_mod.F90 index c580905d9eb5c10802721cb259ec5ef1027a66cd..c644b8f2d6ec7d08c02816eab3001dad5280799a 100644 --- a/src/closure_mod.F90 +++ b/src/closure_mod.F90 @@ -80,7 +80,9 @@ SUBROUTINE set_closure_model nmaxarray(ij) = jmax - jarray(ij+ngj/2) ENDDO ELSE - nmaxarray(:) = nmax + DO ij = 1,local_nj + nmaxarray(ij) = MIN(nmax,jmax) + ENDDO ENDIF CASE('anti_laguerre_aliasing') DO ij = 1,local_nj