Changeset 4047 for trunk/LMDZ.TITAN/libf/phytitan/callkeys_mod.F90

Timestamp:

Feb 5, 2026, 5:50:37 PM (3 weeks ago)

Author:

aslmd

Message:

Titan PCM:

• add possibility to release latent heat to the atmosphere due to gases condensation.
• correct sign error on temperature tendency due to latent heat release in phytitan/cond_muphy.F90
• add latent heat release flag in callphys.def ("latent_heat" : .true. or .false.).

EMo

File:

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

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

@@ -21 +21 @@
       logical,save :: callchim, callmufi, callclouds
 !$OMP THREADPRIVATE(callchim,callmufi,callclouds)
+      logical,save :: latent_heat
+!$OMP THREADPRIVATE(latent_heat)
       logical,save :: global1d
 !$OMP THREADPRIVATE(global1d)