Changeset 4184 for LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

Timestamp:

Jun 23, 2022, 1:01:19 PM (2 years ago)

Author:

dcugnet

Message:

Fix for the inca case with former "traceur.def" files.

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=ttr(:)%keys); hadv(:) = [had, hadv_inca]
-      lerr = getKey('vadv', vad, ky=ttr(:)%keys); vadv(:) = [vad, vadv_inca]
+      lerr = getKey('hadv', had, ky=tracers(:)%keys); hadv(:) = [had, hadv_inca]
+      lerr = getKey('vadv', vad, ky=tracers(:)%keys); vadv(:) = [vad, vadv_inca]
       CALL MOVE_ALLOC(FROM=ttr, TO=tracers)
       CALL setGeneration(tracers)                                    !--- SET FIELDS %iGeneration, %gen0Name