Skip to content
Snippets Groups Projects
Commit 3e672380 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 16/05/2023: bugfix: flat_inv: wrong array was passed to FFT991

parent 4e174d8a
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/MNH/flat_inv.f90
+ 1
− 1
View file @ 3e672380
...@@ -496,7 +496,7 @@ IF (.NOT. L2D) THEN ...@@ -496,7 +496,7 @@ IF (.NOT. L2D) THEN
IF (HLBCY(1) == 'CYCL') THEN IF (HLBCY(1) == 'CYCL') THEN
ZBAND1D( 1 : SIZE(ZBAND_YRT,1)*SIZE(ZBAND_YRT,2)*SIZE(ZBAND_YRT(:,:,IKB-1:),3) ) => ZBAND_YRT(:,:,IKB-1:) ZBAND1D( 1 : SIZE(ZBAND_YRT,1)*SIZE(ZBAND_YRT,2)*SIZE(ZBAND_YRT(:,:,IKB-1:),3) ) => ZBAND_YRT(:,:,IKB-1:)
ZWORK1D( 1 : SIZE(ZWORKY) ) => ZWORKY(:,:,:) ZWORK1D( 1 : SIZE(ZWORKY) ) => ZWORKY(:,:,:)
CALL FFT991( ZBAND1D, ZBAND_YRT, PTRIGSY, KIFAXY, INC2Y, IJMAX,ILOTY, +1, & CALL FFT991( ZBAND1D, ZWORK1D, PTRIGSY, KIFAXY, INC2Y, IJMAX,ILOTY, +1, &
SIZE(ZBAND1D), SIZE(ZWORK1D), SIZE(PTRIGSY) ) SIZE(ZBAND1D), SIZE(ZWORK1D), SIZE(PTRIGSY) )
ELSE ELSE
CALL FFT55( ZBAND_YRT(1:,1:,IKB-1:), ZWORKY, PTRIGSY, KIFAXY, INC2Y, IJMAX, ILOTY, +1 ) CALL FFT55( ZBAND_YRT(1:,1:,IKB-1:), ZWORKY, PTRIGSY, KIFAXY, INC2Y, IJMAX, ILOTY, +1 )
......
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

Documentation | Mentions légales | CGU | Accessibilité : non conforme