Changeset 4190


Ignore:
Timestamp:
Jun 29, 2022, 7:40:35 PM (2 years ago)
Author:
dcugnet
Message:

Fix for INCA and old "traceur.def" files

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

    r4189 r4190  
    276276      lerr = getKey('hadv', had, ky=tracers(:)%keys)
    277277      lerr = getKey('vadv', vad, ky=tracers(:)%keys)
    278 
    279       hadv(nqo+1:nqtrue) = hadv_inca
    280       vadv(nqo+1:nqtrue) = vadv_inca
    281 
    282 
    283 
     278      hadv(1:nqo) = had(:); hadv(nqo+1:nqtrue) = hadv_inca
     279      vadv(1:nqo) = vad(:); vadv(nqo+1:nqtrue) = vadv_inca
    284280      CALL MOVE_ALLOC(FROM=ttr, TO=tracers)
    285281      CALL setGeneration(tracers)                                    !--- SET FIELDS %iGeneration, %gen0Name
Note: See TracChangeset for help on using the changeset viewer.