Ignore:
Timestamp:
Apr 8, 2022, 4:47:04 PM (2 years ago)
Author:
dcugnet
Message:

Remove solsym, ok_isotopes (=niso>0), ok_isotrac (=nzone>0)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/tracreprobus_mod.F90

    r4050 r4124  
    1212
    1313    USE dimphy
    14     USE infotrac_phy, ONLY: nbtr, solsym
     14    USE infotrac_phy, ONLY: nbtr
    1515#ifdef REPROBUS
    1616    USE CHEM_REP, ONLY : pdt_rep, &  ! pas de temps reprobus
    … …  
    119119       
    120120    END DO
    121    
    122 
    123     !
    124     DO it=1,nbtr
    125        WRITE(solsym(it),'(i2)') it
    126     END DO
    127121#endif
    128122  END SUBROUTINE tracreprobus
Note: See TracChangeset for help on using the changeset viewer.