Changeset 4121

Timestamp:

Apr 5, 2022, 4:17:50 PM (2 years ago)

Author:

dcugnet

Message:

Fix in sortTracer for gfortran compatibility.

File:

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

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -600 +600 @@
 !------------------------------------------------------------------------------------------------------------------------------
   TYPE(trac_type), ALLOCATABLE, INTENT(INOUT) :: tr(:)         !--- Tracer derived type vector
-!  TYPE(trac_type), ALLOCATABLE :: ttr(:)
   INTEGER,         ALLOCATABLE :: iy(:), iz(:)
   INTEGER :: ig, ng, iq, jq, ip, nq, n, ix(SIZE(tr)), k
@@ -608 +607 @@
     iq = strIdx(tr(:)%name, addPhase('H2O', ip))
     IF(iq == 0) CYCLE
-    tr = tr([iq, 1:iq-1, iq+1:nq])
-!    tr(:)%name = nam
+    tr = [tr(iq), tr(1:iq-1), tr(iq+1:nq)]
   END DO
   IF(lSortByGen) THEN