Changeset 4189 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Jun 29, 2022, 4:48:13 PM (2 years ago)

Author:

acozic

Message:

correct a compilator bug for inca use

File:

• LMDZ6/trunk/libf/dyn3d_common/infotrac.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -274 +274 @@
       ttr(1+nqo+nqCO2:nqtrue)%parent      = tran0
       ttr(1+nqo+nqCO2:nqtrue)%phase       = 'g'
-      lerr = getKey('hadv', had, ky=tracers(:)%keys); hadv(:) = [had, hadv_inca]
-      lerr = getKey('vadv', vad, ky=tracers(:)%keys); vadv(:) = [vad, vadv_inca]
+      lerr = getKey('hadv', had, ky=tracers(:)%keys)
+      lerr = getKey('vadv', vad, ky=tracers(:)%keys)
+
+      hadv(nqo+1:nqtrue) = hadv_inca
+      vadv(nqo+1:nqtrue) = vadv_inca
+
+
+
       CALL MOVE_ALLOC(FROM=ttr, TO=tracers)
       CALL setGeneration(tracers)                                    !--- SET FIELDS %iGeneration, %gen0Name