Changeset 3405 for trunk/LMDZ.PLUTO/libf/phypluto/initracer.F90

Timestamp:

Aug 20, 2024, 12:08:44 PM (3 months ago)

Author:

afalco

Message:

Pluto PCM:
Do not call specie_parameters_table

File:

• trunk/LMDZ.PLUTO/libf/phypluto/initracer.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/initracer.F90

@@ -374 +374 @@
                 write(*,*) "There is a specie which is condensable, for generic condensation : ", noms(iq)
                 write(*,*) 'looking specie parameters for : ',noms(iq)(1:len(trim(noms(iq)))-4)
-                call specie_parameters_table(noms(iq)(1:len(trim(noms(iq)))-4))
-                constants_mass(iq)=m
-                constants_delta_gasH(iq)=delta_gasH
-                constants_Tref(iq)=Tref
-                constants_Pref(iq)=Pref
-                constants_epsi_generic(iq)=epsi_generic
-                constants_RLVTT_generic(iq)=RLVTT_generic
-                constants_metallicity_coeff(iq)=metallicity_coeff
-                constants_RCPV_generic(iq)=RCPV_generic
+                ! call specie_parameters_table(noms(iq)(1:len(trim(noms(iq)))-4))
+                ! constants_mass(iq)=m
+                ! constants_delta_gasH(iq)=delta_gasH
+                ! constants_Tref(iq)=Tref
+                ! constants_Pref(iq)=Pref
+                ! constants_epsi_generic(iq)=epsi_generic
+                ! constants_RLVTT_generic(iq)=RLVTT_generic
+                ! constants_metallicity_coeff(iq)=metallicity_coeff
+                ! constants_RCPV_generic(iq)=RCPV_generic
         else
                 write(*,*) "This tracer is not condensable, for generic condensation :  : ", noms(iq)