Changeset 5353 for LMDZ6/trunk/libf/misc

Timestamp:

Nov 29, 2024, 3:15:38 PM (13 days ago)

Author:

yann meurdesoif

Message:

Nvidia compiler has some difficulties to compile correctly some complex array constructor.
This commit decompose it the several phases in order to achieve the compilation.
Please Lionel and David, have a look to this in order to validate.
Probably, in future, when compiler heuristic will be improved, this commit can be reversed.
YM

Location:

LMDZ6/trunk/libf/misc

Files:

• readTracFiles_mod.f90 (modified) (1 diff)
• strings_mod.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -990 +990 @@
   CHARACTER(LEN=maxlen), ALLOCATABLE :: n0(:)
   CHARACTER(LEN=maxlen) :: nm
+  CHARACTER(LEN=maxlen) :: tmp2(nq)
+
   lerr = .FALSE.
   IF(nam(1) == 'iq') THEN
-    tmp = int2str([(iq, iq=1, nq)])
+    tmp2 = int2str([(iq, iq=1, nq)])
+    tmp = tmp2
   ELSE
     lerr = getKey(nam, tmp, dBase(idb)%trac(:)%keys, lDisp=lMandatory)

LMDZ6/trunk/libf/misc/strings_mod.f90

@@ -813 +813 @@
   tmp = horzcat_s00(s0(nc), s1, s2, s3, s4, s5, s6, s7, s8, s9)
   IF(nc == 1) out = tmp
-  IF(nc /= 1) out = [s0(1:nc-1), tmp]
+  IF(nc /= 1) THEN
+!ym fix for nvidia compiler
+!ym out = [s0(1:nc-1), tmp]
+    out = s0(1:nc-1)
+    out = [out , tmp]
+  ENDIF
 END FUNCTION horzcat_s10
 !==============================================================================================================================
@@ -845 +850 @@
   CHARACTER(LEN=*),           INTENT(IN) :: s0(:,:), s1(:)
   CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: s2(:), s3(:), s4(:), s5(:), s6(:), s7(:), s8(:), s9(:)
-  CHARACTER(LEN=maxlen), ALLOCATABLE :: out(:,:), tmp(:,:)
+  CHARACTER(LEN=maxlen), ALLOCATABLE :: out(:,:), tmp(:,:), pk(:)
   INTEGER :: nc
   nc  = SIZE(s0, 2)
   tmp = horzcat_s11(s0(:,nc), s1, s2, s3, s4, s5, s6, s7, s8, s9)
   IF(nc == 1) out = tmp
-  IF(nc /= 1) out = RESHAPE([PACK(s0(:,1:nc-1), .TRUE.), PACK(tmp, .TRUE.)], SHAPE=[SIZE(s0, 1), nc + SIZE(tmp, 2)-1])
+!ym fix for nvidia compiler
+!ym  IF(nc /= 1) out = RESHAPE([PACK(s0(:,1:nc-1), .TRUE.), PACK(tmp, .TRUE.)], SHAPE=[SIZE(s0, 1), nc + SIZE(tmp, 2)-1])
+  IF(nc /= 1) THEN
+    pk = PACK(s0(:,1:nc-1), .TRUE.)
+    pk = [ pk, PACK(tmp, .TRUE.)]
+    out = RESHAPE(pk, SHAPE=[SIZE(s0, 1), nc + SIZE(tmp, 2)-1])
+  ENDIF
 END FUNCTION horzcat_s21
 !==============================================================================================================================