Changeset 4048 for LMDZ6/trunk/libf


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

Corrections to fix the isotopic version compilation.

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
2 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
  • LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90

    r4046 r4048  
    126126#ifdef ISO
    127127    INTEGER  :: ixt,iiso,izone
    128     CHARACTER(LEN=50) :: outiso
     128    CHARACTER(LEN=LEN(striso)) :: outiso
    129129    CHARACTER(LEN=20) :: unit
    130130#endif
     
    587587    do ixt=1,ntraciso
    588588      if (ixt.le.niso) then
    589         striso_sortie=striso(ixt)
     589        outiso=striso(ixt)
    590590      else
    591591#ifdef ISOTRAC
    592592        iiso=index_iso(ixt)
    593593        izone=index_zone(ixt)       
    594         striso_sortie=striso(iiso)//strtrac(izone)
     594        outiso=striso(iiso)//strtrac(izone)
    595595#else
    596596        write(*,*) 'phys_output_mod 546: ixt,ntraciso=', ixt,ntraciso
     
    630630                                                                                      unit, [('',i=1,nfiles)])
    631631      o_dxtdecroiss (ixt)=ctrl_out(flag, 'dqdecroiss'//TRIM(outiso), 'dHTO/dt due to radiative destruction',   &
     632                                                                                      unit, [('',i=1,nfiles)])
    632633      END IF
    633634    enddo !do ixt=1,niso
Note: See TracChangeset for help on using the changeset viewer.