diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index e931f1404b078690ab5aca7f34fe969a78675b88..ebb581f093658e91f146198784598934fc5aa691 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -308,7 +308,7 @@ USE MODD_DIM_n
 USE MODD_BUDGET
 USE MODD_RADIATIONS_n
 USE MODD_SHADOWS_n
-USE MODD_PARAM_RAD_n,   ONLY : CLW, CAER, LRAD_DUST
+USE MODD_PARAM_RAD_n,   ONLY : CLW, CAER, CAOP     
 USE MODD_VAR_ll,        ONLY : IP
 !
 USE MODD_STAND_ATM,     ONLY : XSTROATM, XSMLSATM, XSMLWATM, XSPOSATM, XSPOWATM
@@ -700,11 +700,21 @@ IF (CTURB /= 'NONE') THEN
   ALLOCATE(XRTKES(IIU,IJU,IKU))
   ALLOCATE(XRTKEMS(IIU,IJU,IKU)); XRTKEMS = 0.0
   ALLOCATE(XWTHVMF(IIU,IJU,IKU))
+  ALLOCATE(XDYP(IIU,IJU,IKU))
+  ALLOCATE(XTHP(IIU,IJU,IKU))
+  ALLOCATE(XTR(IIU,IJU,IKU))
+  ALLOCATE(XDISS(IIU,IJU,IKU))
+  ALLOCATE(XLEM(IIU,IJU,IKU))
   XTKEMIN=XKEMIN
 ELSE
   ALLOCATE(XTKET(0,0,0))
   ALLOCATE(XRTKES(0,0,0))
   ALLOCATE(XWTHVMF(0,0,0))
+  ALLOCATE(XDYP(0,0,0))
+  ALLOCATE(XTHP(0,0,0))
+  ALLOCATE(XTR(0,0,0))
+  ALLOCATE(XDISS(0,0,0))
+  ALLOCATE(XLEM(0,0,0))
 END IF
 IF (CTOM == 'TM06') THEN
   ALLOCATE(XBL_DEPTH(IIU,IJU))
@@ -1967,10 +1977,8 @@ IF (CRAD   == 'ECMW') THEN
                                XSTATM,ZCOVER,XOZON, XAER,XDST_WL, LSUBG_COND              )
 !
     DEALLOCATE(ZCOVER)
-    IF (LRAD_DUST) THEN
-       ALLOCATE (XAER_CLIM(SIZE(XAER,1),SIZE(XAER,2),SIZE(XAER,3),SIZE(XAER,4)))
-        XAER_CLIM(:,:,:,:) =XAER(:,:,:,:)
-    END IF    
+    ALLOCATE (XAER_CLIM(SIZE(XAER,1),SIZE(XAER,2),SIZE(XAER,3),SIZE(XAER,4)))
+    XAER_CLIM(:,:,:,:) =XAER(:,:,:,:)
 !
   END IF
 ELSE