Changeset 4404


Ignore:
Timestamp:
Jan 30, 2023, 9:30:01 PM (16 months ago)
Author:
dcugnet
Message:

Addition to the last commit

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4403 r4404  
    653653      CALL get_in('option_seuil_tag_tmin', option_seuil_tag_tmin, 1)
    654654   END IF
    655    DO ixt=1,niso
    656       index_zone(ixt)=0
    657       index_iso(ixt)=ixt
    658    END DO
    659655
    660656   index_zone = [(strIdx(isoZone, strTail(isoName(ixt) ,'_',.TRUE.)), ixt=1, ntiso)]
Note: See TracChangeset for help on using the changeset viewer.