Index: trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90
===================================================================
--- trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90	(revision 3767)
+++ trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90	(revision 3768)
@@ -241,6 +241,7 @@
         else 
             dqsat = (RLVTT_generic/cpp) *qsat*(p/(p-(1-epsi_generic)*psat))*dummy
-            dlnpsat = (RLVTT_generic/cpp) * dummy 
         endif
+
+        dlnpsat = (RLVTT_generic/cpp) * dummy 
 
     end subroutine Lcpdqsat_generic