Index: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/read_rsun_rrtm.F90
===================================================================
--- LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/read_rsun_rrtm.F90	(revision 4191)
+++ LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/read_rsun_rrtm.F90	(revision 4192)
@@ -27,5 +27,5 @@
 ! Local variables
   INTEGER :: ncid, dimid, varid, ncerr, nbday
-  REAL, POINTER :: wlen(:), time(:)
+  REAL, ALLOCATABLE :: wlen(:), time(:)
   REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: SSI_FRAC
 !$OMP THREADPRIVATE(SSI_FRAC)
Index: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90
===================================================================
--- LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90	(revision 4191)
+++ LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90	(revision 4192)
@@ -32,8 +32,8 @@
     INTEGER n_lev   ! number of levels in the input data
     INTEGER n_month ! number of months in the input data
-    REAL, POINTER:: latitude(:)
-    REAL, POINTER:: longitude(:)
-    REAL, POINTER:: time(:)
-    REAL, POINTER:: lev(:)
+    REAL, ALLOCATABLE:: latitude(:)
+    REAL, ALLOCATABLE:: longitude(:)
+    REAL, ALLOCATABLE:: time(:)
+    REAL, ALLOCATABLE:: lev(:)
     INTEGER k, band, wave, i
     INTEGER, SAVE :: mth_pre=1
Index: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90
===================================================================
--- LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90	(revision 4191)
+++ LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90	(revision 4192)
@@ -40,8 +40,8 @@
     INTEGER n_month ! number of months in the input data
     INTEGER n_wav   ! number of wavelengths in the input data
-    REAL, POINTER:: latitude(:)
-    REAL, POINTER:: time(:)
-    REAL, POINTER:: lev(:)
-    REAL, POINTER:: wav(:)
+    REAL, ALLOCATABLE:: latitude(:)
+    REAL, ALLOCATABLE:: time(:)
+    REAL, ALLOCATABLE:: lev(:)
+    REAL, ALLOCATABLE:: wav(:)
     INTEGER i,k,wave,band
     INTEGER, SAVE :: mth_pre=1