Index: trunk/LMDZ.TITAN/libf/muphytitan/mm_clouds.f90
===================================================================
--- trunk/LMDZ.TITAN/libf/muphytitan/mm_clouds.f90	(revision 4051)
+++ trunk/LMDZ.TITAN/libf/muphytitan/mm_clouds.f90	(revision 4084)
@@ -532,5 +532,5 @@
     INTEGER, PARAMETER                          :: ichx  = 1
     matrix = 0._mm_wp ; nz = SIZE(rad) ; ALLOCATE(puit(nz))
-    zsurf = mm_zlev(nz)
+    zsurf = mm_zlev(nz+1)
     
     ! compute exchange matrix