Changeset 3959 for trunk/LMDZ.PLUTO/libf/phypluto/callkeys_mod.F90

Timestamp:

Nov 12, 2025, 6:12:16 PM (6 weeks ago)

Author:

debatzbr

Message:

Pluto PCM: Take clouds into account in radiative transfer.
BBT

File:

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

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

@@ -217 +217 @@
 !! Variables for aerosol absorption
       real,save :: Fabs_aers_VI, Fabs_aerf_VI, Fabs_aers_IR, Fabs_aerf_IR
-!$OMP THREADPRIVATE(Fabs_aers_VI, Fabs_aerf_VI, Fabs_aers_IR, Fabs_aerf_IR)
+!$OMP THREADPRIVATE(Fabs_aers_VI,Fabs_aerf_VI,Fabs_aers_IR,Fabs_aerf_IR)
+!! Variables for cloud drop absorption
+      real,save :: Fabs_cldd_VI, Fabs_cldd_IR
+!$OMP THREADPRIVATE(Fabs_cldd_VI,Fabs_cldd_IR)
 
       integer,save :: iddist