From eb0e63121a59dfd7683373a87cea14bcdb1aeee5 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Mon, 15 Jan 2024 11:19:44 +0100 Subject: [PATCH] Philippe 15/01/2024: bugfix: anel_balancen.f90: wrong dimension for ZTRIGSY --- src/MNH/anel_balancen.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/MNH/anel_balancen.f90 b/src/MNH/anel_balancen.f90 index 233e6871a..99ff228bc 100644 --- a/src/MNH/anel_balancen.f90 +++ b/src/MNH/anel_balancen.f90 @@ -217,7 +217,7 @@ ELSE ALLOCATE(ZBFY(IJY,IIY,SIZE(XRHODJ,3))) ENDIF ALLOCATE(ZTRIGSX(3*(NIMAX_ll+2*JPHEXT))) -ALLOCATE(ZTRIGSY(3*(NIMAX_ll+2*JPHEXT))) +ALLOCATE(ZTRIGSY(3*(NJMAX_ll+2*JPHEXT))) ALLOCATE(ZBFB(IIU_B,IJU_B,IKU)) ALLOCATE(ZBF_SXP2_YP1_Z(IIU_SXP2_YP1_Z_ll,IJU_SXP2_YP1_Z_ll,IKU_SXP2_YP1_Z_ll)) @@ -236,7 +236,7 @@ ELSE CALL MNH_MEM_GET( ZBFY, IJY, IIY, IKU ) END IF CALL MNH_MEM_GET( ZTRIGSX, 3*(NIMAX_ll+2*JPHEXT) ) -CALL MNH_MEM_GET( ZTRIGSY, 3*(NIMAX_ll+2*JPHEXT) ) +CALL MNH_MEM_GET( ZTRIGSY, 3*(NJMAX_ll+2*JPHEXT) ) CALL MNH_MEM_GET( IIFAXX, 19 ) CALL MNH_MEM_GET( IIFAXY, 19 ) CALL MNH_MEM_GET( ZBFB, IIU_B, IJU_B, IKU ) -- GitLab