Changeset 1788 for trunk/LMDZ.TITAN/libf/phytitan/tracer_h.F90

Timestamp:

Sep 26, 2017, 12:43:42 PM (7 years ago)

Author:

jvatant

Message:

Get rid of all the old-generic dummy aerosol scheme ( just left scatterers_h for compilation )
as the new microphysics for Titan will be plugged in
-> even removed sedimentation ( will be done in the microphysical model )
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/tracer_h.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/tracer_h.F90

@@ -10 +10 @@
        character*20, DIMENSION(:), ALLOCATABLE :: noms   ! name of the tracer
        real, DIMENSION(:), ALLOCATABLE :: mmol     ! mole mass of tracer (g/mol-1) 
-       real, DIMENSION(:), ALLOCATABLE :: radius   ! dust and ice particle radius (m)
        real, DIMENSION(:), ALLOCATABLE :: rho_q    ! tracer densities (kg.m-3)
-       real, DIMENSION(:), ALLOCATABLE :: qext     ! Single Scat. Extinction coeff at 0.67 um
-       real, DIMENSION(:), ALLOCATABLE :: alpha_lift  ! saltation vertical flux/horiz flux ratio (m-1)
-       real, DIMENSION(:), ALLOCATABLE :: alpha_devil ! lifting coeeficient by dust devil
-       real, DIMENSION(:), ALLOCATABLE :: qextrhor ! Intermediate for computing opt. depth from q
 
-!$OMP THREADPRIVATE(noms,mmol,radius,rho_q,qext,alpha_lift,alpha_devil,qextrhor)
+!$OMP THREADPRIVATE(noms,mmol,rho_q)
 
 ! tracer indexes: these are initialized in initracer and should be 0 if the