Ignore:
Timestamp:
Dec 26, 2021, 10:27:36 PM (4 years ago)
Author:
dcugnet
Message:

Fixes for previous commit:

  • few tracers(:)%nqChilds were errouneously replaced with tarcers(:)%nqDesc
  • minor changes
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/infotrac_phy.F90

    r4050 r4052  
    205205      ALLOCATE(index_trac(ntraceurs_zone,niso))
    206206      index_trac(:,:)=index_trac_(:,:)
    207 
    208207    ENDIF ! of IF(ok_isotopes)
    209208
    210       ALLOCATE(itr_indice(nqtottr))
    211       itr_indice(:)=itr_indice_(:)
     209    ALLOCATE(itr_indice(nqtottr))
     210    itr_indice(:)=itr_indice_(:)
    212211
    213212        write(*,*) 'infotrac_phy 207: nqtottr=',nqtottr
Note: See TracChangeset for help on using the changeset viewer.