Index: trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90
===================================================================
--- trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90	(revision 4084)
+++ trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90	(revision 4099)
@@ -140,6 +140,6 @@
       ! Optical diagnostics
       ! Haze
-      REAL*8 diag_opthi(L_LEVELS,L_NSPECTI,3)
-      REAL*8 diag_opthv(L_LEVELS,L_NSPECTV,3)
+      REAL*8 diag_opthi(L_LEVELS,L_NSPECTI,6)
+      REAL*8 diag_opthv(L_LEVELS,L_NSPECTV,6)
       ! Clouds
       REAL*8 diag_optti(L_LEVELS,L_NSPECTI,3)