diff --git a/src/MNH/anel_balancen.f90 b/src/MNH/anel_balancen.f90 index 233e6871adf7a0cdf9a2a6b0c138c1632c4a857e..99ff228bc7ed2a37da0aec05e606e5b762e4f684 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 )