Changeset 4146 for trunk/LMDZ.GENERIC/libf/phygeneric/evap_generic.F90

Timestamp:

Mar 19, 2026, 2:35:46 PM (3 weeks ago)

Author:

gmilcareck

Message:

Thermodynamics update on LMDZ.GENERIC

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/evap_generic.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/evap_generic.F90

@@ -3 +3 @@
     Use generic_cloud_common_h
     Use tracer_h
+    use comcstfi_mod, only: cppd_ref
     implicit none 
 !==================================================================
@@ -38 +39 @@
 
     !   Evaporate all the ice from the tracer
-    zlvdcp = RLVTT_generic/cpp ! RLVTT_generic is the latent heat of vaporization (comes from generic_cloud_common_h attention)
+    zlvdcp = RLVTT_generic/cppd_ref ! RLVTT_generic is the latent heat of vaporization (comes from generic_cloud_common_h attention)
  
     DO l=1,nlayer