Changeset 3405 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Aug 20, 2024, 12:08:44 PM (4 months ago)
Author:
afalco
Message:

Pluto PCM:
Do not call specie_parameters_table

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.PLUTO/libf/phypluto/initracer.F90

    r3275 r3405  
    374374                write(*,*) "There is a specie which is condensable, for generic condensation : ", noms(iq)
    375375                write(*,*) 'looking specie parameters for : ',noms(iq)(1:len(trim(noms(iq)))-4)
    376                 call specie_parameters_table(noms(iq)(1:len(trim(noms(iq)))-4))
    377                 constants_mass(iq)=m
    378                 constants_delta_gasH(iq)=delta_gasH
    379                 constants_Tref(iq)=Tref
    380                 constants_Pref(iq)=Pref
    381                 constants_epsi_generic(iq)=epsi_generic
    382                 constants_RLVTT_generic(iq)=RLVTT_generic
    383                 constants_metallicity_coeff(iq)=metallicity_coeff
    384                 constants_RCPV_generic(iq)=RCPV_generic
     376                ! call specie_parameters_table(noms(iq)(1:len(trim(noms(iq)))-4))
     377                ! constants_mass(iq)=m
     378                ! constants_delta_gasH(iq)=delta_gasH
     379                ! constants_Tref(iq)=Tref
     380                ! constants_Pref(iq)=Pref
     381                ! constants_epsi_generic(iq)=epsi_generic
     382                ! constants_RLVTT_generic(iq)=RLVTT_generic
     383                ! constants_metallicity_coeff(iq)=metallicity_coeff
     384                ! constants_RCPV_generic(iq)=RCPV_generic
    385385        else
    386386                write(*,*) "This tracer is not condensable, for generic condensation :  : ", noms(iq)
Note: See TracChangeset for help on using the changeset viewer.