Skip to content
Snippets Groups Projects
Commit f70bb0ca authored by Wautelet Philippe's avatar Wautelet Philippe
Browse files

Philippe 26/10/2021: OpenACC: bugfix in MNH_ALLOCATE_ZT3DFLAT

parent 83ca807f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/mode_mnh_zwork.f90
+ 1
− 1
View file @ f70bb0ca
......@@ -1131,7 +1131,7 @@ CONTAINS
IKB = KKB
IKE = KKE
ISIZE = ( IIE - IIB + 1_MNHINT64 ) * ( IJE - IJB + 1_MNHINT64 ) * ( IIE - IIB + 1_MNHINT64 )
ISIZE = ( IIE - IIB + 1_MNHINT64 ) * ( IJE - IJB + 1_MNHINT64 ) * ( IKE - IKB + 1_MNHINT64 )
NTOT_ALLOCSIZE_ZT3DFLAT = NTOT_ALLOCSIZE_ZT3DFLAT + ISIZE
......
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