Index: /trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90
===================================================================
--- /trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90	(revision 3104)
+++ /trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90	(revision 3105)
@@ -80,5 +80,5 @@
 
   real dTstrat
-  real aerosol(llm,naerkind) ! aerosol tau (kg/kg)
+  real,allocatable :: aerosol(:,:) ! aerosol tau (kg/kg)
   real OLR_nu(1,L_NSPECTI)
   real OSR_nu(1,L_NSPECTV)
@@ -326,4 +326,10 @@
   !write(*,*) 1,llm,nq,0,86400.0,1,1.0,latitude,longitude,cell_area,rad,g,r,cpp
 
+  ! initialise naerkind (from callphys.def) and allocate aerosol(:,:)
+  naerkind=0 !default
+  call getin("naerkind",naerkind)
+  allocate(aerosol(llm,naerkind))
+  aerosol(:,:)=0
+
   do iq=1,nq
      do ilay=1,nlayer
Index: /trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F
===================================================================
--- /trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F	(revision 3104)
+++ /trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F	(revision 3105)
@@ -15,5 +15,4 @@
       use phyredem, only: physdem0,physdem1
       use geometry_mod, only: init_geometry
-      use slab_ice_h, only: noceanmx
       use planete_mod, only: apoastr,periastr,year_day,peri_day,
      &         obliquit,nres,z0,lmixmin,emin_turb,coefvis,coefir,
@@ -136,5 +135,5 @@
 !     added by BC for ocean
       real rnat(1)
-      REAL tslab(1,noceanmx),tsea_ice(1),sea_ice(1)
+      REAL tslab(1,2),tsea_ice(1),sea_ice(1)
       real pctsrf_sic(1)