--- trunk/Sources/phylmd/CV30_routines/cv30_undilute1.f	2016/03/22 16:31:39	188
+++ trunk/Sources/phylmd/CV30_routines/cv30_undilute1.f	2016/03/29 15:20:23	189
@@ -5,6 +5,11 @@
             use cvthermo
       implicit none
 
+    ! UNDILUTE (ADIABATIC) UPDRAFT / 1st part
+    ! (up through ICB for convect4, up through ICB + 1 for convect3)
+    ! Calculates the lifted parcel virtual temperature at nk, the
+    ! actual temperature, and the adiabatic liquid water content.
+
 !----------------------------------------------------------------
 ! Equivalent de TLIFT entre NK et ICB+1 inclus
 !