Changeset 4233

Timestamp:

Aug 31, 2022, 6:40:27 PM (21 months ago)

Author:

fhourdin

Message:

Commission pour Jean-Yves

File:

• LMDZ6/trunk/libf/misc/readTracFiles_mod.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -175 +175 @@
   END SELECT
   !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
 
   IF(ALL([2,3] /= fType)) RETURN
@@ -613 +614 @@
 !------------------------------------------------------------------------------------------------------------------------------
   TYPE(trac_type), ALLOCATABLE, INTENT(INOUT) :: tr(:)         !--- Tracer derived type vector
-  INTEGER,         ALLOCATABLE :: iy(:), iz(:)
-  INTEGER :: ig, ng, iq, jq, ip, nq, n, ix(SIZE(tr)), k
+!------------------------------------------------------------------------------------------------------------------------------
+  TYPE(trac_type), ALLOCATABLE        :: tr2(:)
+  INTEGER,         ALLOCATABLE        :: iy(:), iz(:)
+  INTEGER                             :: ig, ng, iq, jq, ip, nq, n, ix(SIZE(tr)), k
+  INTEGER                             :: it
+!  tr2 is introduced in order to cope with a bug in gfortran 4.8.5 compiler
 !------------------------------------------------------------------------------------------------------------------------------
   nq = SIZE(tr)
@@ -620 +625 @@
     iq = strIdx(tr(:)%name, addPhase('H2O', ip))
     IF(iq == 0) CYCLE
-    tr = [tr(iq), tr(1:iq-1), tr(iq+1:nq)]
+    tr2 = tr(:)
+    tr = [tr2(iq), tr2(1:iq-1), tr2(iq+1:nq)]
   END DO
   IF(lSortByGen) THEN