Skip to content
Snippets Groups Projects
Commit 2761100c authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 24/02/2023: bugfix for integration in mesonh (DO NOT TAKE THIS BUG ON...

Quentin 24/02/2023: bugfix for integration in mesonh (DO NOT TAKE THIS BUG ON PHYEX/MASTER). Bug created by a forgot change to do before applying sed transformation of indices in array syntax
parent 8c26d09c
No related branches found
No related tags found
No related merge requests found
...@@ -1731,7 +1731,7 @@ IF ( TURBN%CTURBDIM /= '1DIM' ) THEN ...@@ -1731,7 +1731,7 @@ IF ( TURBN%CTURBDIM /= '1DIM' ) THEN
END IF END IF
! 1D turbulence scheme ! 1D turbulence scheme
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE) !$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
PLM(:,:) = PZZ(:,IKL+:+IKL) - PZZ(:,:) PLM(:,:) = PZZ(:,IKTB+IKL:IKTE+IKL) - PZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
!$mnh_expand_array(JIJ=IIJB:IIJE) !$mnh_expand_array(JIJ=IIJB:IIJE)
PLM(:,IKU) = PLM(:,IKE) PLM(:,IKU) = PLM(:,IKE)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment