Changeset 4047 for trunk/LMDZ.TITAN/libf/phytitan/inifis_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/inifis_mod.F90 (modified) (1 diff)

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

@@ -490 +490 @@
      endif
 
+     write(*,*) "Apply condensation heating rate?"
+     latent_heat=.false. ! default value
+     call getin_p("latent_heat",latent_heat)
+     write(*,*)" latent_heat = ",latent_heat
+
      write(*,*) "Disable the coupling of microphysics within rad. transf. ?"
      write(*,*) "If disabled we will assume a planetwide vert. profile of extinction ..."