Changeset 3101 for trunk/LMDZ.GENERIC
- Timestamp:
- Oct 25, 2023, 1:46:14 PM (14 months ago)
- Location:
- trunk/LMDZ.GENERIC/libf/phystd
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90
r2786 r3101 22 22 real,save :: RLVTT_generic !Latent heat of vaporization (J/kg) 23 23 real,save :: metallicity_coeff ! Coefficient to take into account the metallicity 24 24 real,save :: RCPV_generic ! specific heat capacity of the tracer vapor at Tref 25 25 26 26 contains … … 158 158 print*, 'metallicity_coeff', metallicity_coeff 159 159 end if 160 160 if (index(table_traceurs_line,'RCPV_generic=' ) /= 0) then 161 read(table_traceurs_line(index(table_traceurs_line,'RCPV_generic=')+len('RCPV_generic='):),*) RCPV_generic 162 print*, 'RCPV_generic', RCPV_generic 163 end if 164 161 165 ios=1 162 166 end if -
trunk/LMDZ.GENERIC/libf/phystd/initracer.F90
r2804 r3101 128 128 IF (.NOT. allocated(constants_RLVTT_generic)) allocate(constants_RLVTT_generic(nq)) 129 129 IF (.NOT. allocated(constants_metallicity_coeff)) allocate(constants_metallicity_coeff(nq)) 130 IF (.NOT. allocated(constants_RCPV_generic)) allocate(constants_RCPV_generic(nq)) 130 131 131 132 !! initialization … … 157 158 constants_RLVTT_generic(:)=0 158 159 constants_metallicity_coeff(:)=0 160 constants_RCPV_generic(:)=0 159 161 160 162 rho_q(:) = 0. !need to be init here if we want to read it from modern traceur with get_tracdat … … 477 479 constants_RLVTT_generic(iq)=RLVTT_generic 478 480 constants_metallicity_coeff(iq)=metallicity_coeff 481 constants_RCPV_generic(iq)=RCPV_generic 479 482 else 480 483 write(*,*) "This tracer is not condensable, for generic condensation : : ", noms(iq) -
trunk/LMDZ.GENERIC/libf/phystd/tracer_h.F90
r2806 r3101 44 44 integer,save,allocatable :: is_rgcs(:) ! 1 if tracer is a radiative generic condensable specie, else 0 (added LT 2022) 45 45 ! Lists of constants for condensable tracers 46 integer, save, allocatable :: constants_mass(:) ! molecular mass of the specie (g/mol) 47 integer, save, allocatable :: constants_delta_vapH(:) ! Enthalpy of vaporization (J/mol) 48 integer, save, allocatable :: constants_Tref(:) ! Ref temperature for Clausis-Clapeyron (K) 49 integer, save, allocatable :: constants_Pref(:) ! Reference pressure for Clausius Clapeyron (Pa) 50 integer, save, allocatable :: constants_epsi_generic(:) ! fractionnal molecular mass (m/mugaz) 51 integer, save, allocatable :: constants_RLVTT_generic(:) ! Latent heat of vaporization (J/kg) 52 integer, save, allocatable :: constants_metallicity_coeff(:) ! Coefficient to take into account the metallicity 46 real, save, allocatable :: constants_mass(:) ! molecular mass of the specie (g/mol) 47 real, save, allocatable :: constants_delta_vapH(:) ! Enthalpy of vaporization (J/mol) 48 real, save, allocatable :: constants_Tref(:) ! Ref temperature for Clausis-Clapeyron (K) 49 real, save, allocatable :: constants_Pref(:) ! Reference pressure for Clausius Clapeyron (Pa) 50 real, save, allocatable :: constants_epsi_generic(:) ! fractionnal molecular mass (m/mugaz) 51 real, save, allocatable :: constants_RLVTT_generic(:) ! Latent heat of vaporization (J/kg) 52 real, save, allocatable :: constants_metallicity_coeff(:) ! Coefficient to take into account the metallicity 53 real, save, allocatable :: constants_RCPV_generic(:) ! specific heat capacity of the tracer vapor at Tref 53 54 !$OMP THREADPRIVATE(constants_mass,constants_delta_vapH,constants_Tref) 54 55 !$OMP THREADPRIVATE(constants_Pref,constants_epsi_generic) 55 !$OMP THREADPRIVATE(constants_RLVTT_generic,constants_metallicity_coeff )56 !$OMP THREADPRIVATE(constants_RLVTT_generic,constants_metallicity_coeff,constants_RCPV_generic) 56 57 57 58 !$OMP THREADPRIVATE(is_condensable,is_rgcs) !also added by LT
Note: See TracChangeset
for help on using the changeset viewer.