Changeset 4189


Ignore:
Timestamp:
Jun 29, 2022, 4:48:13 PM (2 years ago)
Author:
acozic
Message:

correct a compilator bug for inca use

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4184 r4189  
    274274      ttr(1+nqo+nqCO2:nqtrue)%parent      = tran0
    275275      ttr(1+nqo+nqCO2:nqtrue)%phase       = 'g'
    276       lerr = getKey('hadv', had, ky=tracers(:)%keys); hadv(:) = [had, hadv_inca]
    277       lerr = getKey('vadv', vad, ky=tracers(:)%keys); vadv(:) = [vad, vadv_inca]
     276      lerr = getKey('hadv', had, ky=tracers(:)%keys)
     277      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
    278284      CALL MOVE_ALLOC(FROM=ttr, TO=tracers)
    279285      CALL setGeneration(tracers)                                    !--- SET FIELDS %iGeneration, %gen0Name
Note: See TracChangeset for help on using the changeset viewer.