Skip to content
Snippets Groups Projects
Commit 496d9f0d authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan
Browse files

Juan 07/03/2024:mode_io_read_lfi.f90, Bypas Bug Cray cce/16.0.0(Ok with...

Juan 07/03/2024:mode_io_read_lfi.f90, Bypas Bug Cray cce/16.0.0(Ok with cce/17.0.0)  , remove index<=>(1) in using TRANSFER fonction<-> pass all array
parent 5c113c01
No related branches found
No related tags found
No related merge requests found
......@@ -799,7 +799,7 @@ REAL(KIND=MNHREAL64),DIMENSION(:),ALLOCATABLE :: ZFIELD8
ILENG = SIZE(PFIELDOUT)
!
#if (MNH_REAL == 8)
PFIELDOUT(:) = TRANSFER(KFIELDIN,PFIELDOUT(1),ILENG)
PFIELDOUT(:) = TRANSFER(KFIELDIN,PFIELDOUT,ILENG)
#else
ALLOCATE(ZFIELD8(ILENG))
ZFIELD8(:) = TRANSFER(KFIELDIN,ZFIELD8(1),ILENG)
......
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