Index: LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90	(revision 4358)
+++ LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90	(revision 4359)
@@ -714,9 +714,8 @@
 !-----------------------------------------------------------------------------
   INTEGER :: nsrf, i
-  CHARACTER(LEN=maxlen), ALLOCATABLE :: nam(:)
-  CHARACTER(LEN=maxlen) :: tname, des
+  CHARACTER(LEN=maxlen) :: nam(SIZE(name)), tname, des
   IF(SIZE(field,3)>99) CALL abort_physic("phyetat0", "Too much sub-cells", 1)
   DO nsrf = 1, SIZE(field,3)
-    nam = [(TRIM(name(i))//TRIM(int2str(nsrf,2)), i=1, SIZE(name))]
+    DO i = 1, SIZE(name); nam(i) = TRIM(name(i))//TRIM(int2str(nsrf,2)); END DO
     des = TRIM(descr)//" srf:"//int2str(nsrf,2)
     lFound = phyetat0_get21(field(:,:,nsrf), nam, TRIM(des), default, tname)
Index: LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90	(revision 4358)
+++ LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90	(revision 4359)
@@ -766,9 +766,8 @@
 !-----------------------------------------------------------------------------
   INTEGER :: nsrf, i
-  CHARACTER(LEN=maxlen), ALLOCATABLE :: nam(:)
-  CHARACTER(LEN=maxlen) :: tname, des
+  CHARACTER(LEN=maxlen) :: nam(SIZE(name)), tname, des
   IF(SIZE(field,3)>99) CALL abort_physic("phyetat0", "Too much sub-cells", 1)
   DO nsrf = 1, SIZE(field,3)
-    nam = [(TRIM(name(i))//TRIM(int2str(nsrf,2)), i=1, SIZE(name))]
+    DO i = 1, SIZE(name); nam(i) = TRIM(name(i))//TRIM(int2str(nsrf,2)); END DO
     des = TRIM(descr)//" srf:"//int2str(nsrf,2)
     lFound = phyetat0_get21(field(:,:,nsrf), nam, TRIM(des), default, tname)