Changeset 3275 for trunk/LMDZ.PLUTO/libf/phypluto/tracer_h.F90

Timestamp:

Mar 20, 2024, 3:05:14 PM (8 months ago)

Author:

afalco

Message:

Pluto PCM:
Changed _vap to _gas;
Included surfprop.F90;
callcorrk includes methane
AF

Location:

trunk/LMDZ.PLUTO/libf/phypluto

Files:

• . (modified) (1 prop)
• tracer_h.F90 (modified) (2 diffs)

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

@@ -51 +51 @@
        ! Lists of constants for condensable tracers
        real, save, allocatable :: constants_mass(:)                    ! molecular mass of the specie (g/mol)
-       real, save, allocatable :: constants_delta_vapH(:)           ! Enthalpy of vaporization (J/mol)
+       real, save, allocatable :: constants_delta_gasH(:)           ! Enthalpy of vaporization (J/mol)
        real, save, allocatable :: constants_Tref(:)                 ! Ref temperature for Clausis-Clapeyron (K)
        real, save, allocatable :: constants_Pref(:)                 ! Reference pressure for Clausius Clapeyron (Pa)
@@ -58 +58 @@
        real, save, allocatable :: constants_metallicity_coeff(:)    ! Coefficient to take into account the metallicity
        real, save, allocatable :: constants_RCPV_generic(:)                   ! specific heat capacity of the tracer vapor at Tref
-!$OMP THREADPRIVATE(constants_mass,constants_delta_vapH,constants_Tref)
+!$OMP THREADPRIVATE(constants_mass,constants_delta_gasH,constants_Tref)
 !$OMP THREADPRIVATE(constants_Pref,constants_epsi_generic)
 !$OMP THREADPRIVATE(constants_RLVTT_generic,constants_metallicity_coeff,constants_RCPV_generic)