Index: trunk/LMDZ.GENERIC/libf/phygeneric/evap_generic.F90
===================================================================
--- trunk/LMDZ.GENERIC/libf/phygeneric/evap_generic.F90	(revision 4036)
+++ trunk/LMDZ.GENERIC/libf/phygeneric/evap_generic.F90	(revision 4146)
@@ -3,4 +3,5 @@
     Use generic_cloud_common_h
     Use tracer_h
+    use comcstfi_mod, only: cppd_ref
     implicit none 
 !==================================================================
@@ -38,5 +39,5 @@
 
     !   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