Ignore:
Timestamp:
Dec 16, 2021, 5:02:20 PM (2 years ago)
Author:
dcugnet
Message:

Corrections to fix the isotopic version compilation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmdiso/infotrac_phy.F90

    r4046 r4048  
    136136    INTEGER,INTENT(IN) :: id_BIN01_strat_
    137137#endif
    138     CHARACTER(len=*),INTENT(IN) :: tracers_(nqtot_) ! tracers descriptors
     138    TYPE(trac_type), INTENT(IN) :: tracers_(nqtot_) ! tracers descriptors
    139139    CHARACTER(len=*),INTENT(IN) :: type_trac_
    140140    INTEGER,INTENT(IN) :: niadv_ (nqtot_) ! equivalent dyn / physique
Note: See TracChangeset for help on using the changeset viewer.