Changeset 5802 for LMDZ6/trunk/libf/misc


Ignore:
Timestamp:
Sep 1, 2025, 3:29:56 PM (3 months ago)
Author:
Sebastien Nguyen
Message:

removed line tr(iq)%iqParent = iqParent(iq), that was already present in rev 5800. Put right value in modname for processIsotopes routine.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

    r5801 r5802  
    10741074  DO iq = 1, nq; iGen(iq) = 0; jq = iq
    10751075    iqParent(iq) = strIdx(tnames, parent(iq))
    1076     tr(iq)%iqParent = iqParent(iq)
    10771076    DO; jq = strIdx(tnames, parent(jq)); IF(jq == 0) EXIT; iGen(iq) = iGen(iq) + 1; END DO
    10781077    CALL addKey('iqParent', iqParent(iq), tr(iq)%keys)
    1079     CALL addKey('iGeneration', iGen(iq), tr(iq)%keys)
     1078    CALL addKey('iGeneration',  iGen(iq), tr(iq)%keys)
    10801079    tr(iq)%iqParent = iqParent(iq)
    10811080    tr(iq)%iGeneration =  iGen(iq)
    … …  
    12211220
    12221221  lerr = .FALSE.
    1223   modname = 'readIsotopesFile'
     1222  modname = 'processIsotopes'
    12241223
    12251224  t => tracers
Note: See TracChangeset for help on using the changeset viewer.