Index: LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90	(revision 5668)
+++ LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90	(revision 5669)
@@ -25,6 +25,5 @@
        ql_ancien, qs_ancien, qbs_ancien, cf_ancien, rvc_ancien, &
        prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
-       u10m,v10m,ale_wake,ale_bl_stat, &
-       hice, tice, bilg_cumul
+       u10m,v10m,ale_wake,ale_bl_stat
 
 
@@ -220,4 +219,5 @@
       real :: run_off_lic_0(1)
       real :: fder(1),snsrf(1,nbsrf),qsurfsrf(1,nbsrf)
+      real :: hice(1), tice(1), bilg_cumul(1)
       real :: tsoil(1,nsoilmx,nbsrf)
 !     real :: agesno(1,nbsrf)
@@ -827,22 +827,8 @@
   !IF (iflag_seaice == 2) THEN
 
-  found=phyetat0_get(hice,"hice","Ice thickness",0.)
-  IF (.NOT. found) THEN
-       PRINT*, "phyetat0: Le champ <hice> est absent"
-       PRINT*, "Initialisation a hice=1m "
-       hice(:)=1.0
-  END IF
-  found=phyetat0_get(tice,"tice","Sea Ice temperature",0.)
-  IF (.NOT. found) THEN
-       PRINT*, "phyetat0: Le champ <tice> est absent"
-       PRINT*, "Initialisation a tsol_sic"
-       tice(:)=ftsol(:,is_sic)
-  END IF
-  found=phyetat0_get(bilg_cumul,"bilg_cumul","Flux conductivite + transmit sea-ice",0.)
-  IF (.NOT. found) THEN
-       PRINT*, "phyetat0: Le champ <bilg_cumul> est absent"
-       PRINT*, "Initialisation a zero"
-       bilg_cumul(:)=0.0
-  END IF
+     hice(:)=1.0
+     tice(:)=ftsol(:,is_sic)
+     bilg_cumul(:)=0.0
+
 
   !END IF
Index: LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90	(revision 5668)
+++ LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90	(revision 5669)
@@ -25,6 +25,5 @@
        ql_ancien, qs_ancien, qbs_ancien, cf_ancien, rvc_ancien, &
        prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
-       u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_, &
-       hice, tice, bilg_cumul
+       u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_
 
 
@@ -183,4 +182,5 @@
       real :: run_off_lic_0(1)
       real :: fder(1),snsrf(1,nbsrf),qsurfsrf(1,nbsrf)
+      real :: hice(1), tice(1), bilg_cumul(1)
       real :: tsoil(1,nsoilmx,nbsrf)
       ! AM
Index: LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90	(revision 5668)
+++ LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90	(revision 5669)
@@ -121,4 +121,5 @@
 !
 !****************************************************************************************    
+
     ALLOCATE(fder(klon), stat=ierr)
     IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
@@ -126,11 +127,11 @@
 !GG
     ALLOCATE(hice(klon), stat=ierr)
-    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init hice', 'pb in allocation',1)
 
     ALLOCATE(tice(klon), stat=ierr)
-    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init tice', 'pb in allocation',1)
 
     ALLOCATE(bilg_cumul(klon), stat=ierr)
-    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init bilg', 'pb in allocation',1)
 !GG
 
@@ -4442,4 +4443,7 @@
 !   DEALLOCATE(qsol, fder, snow, qsurf, evap, rugos, agesno, ftsoil)
     IF (ALLOCATED(fder)) DEALLOCATE(fder)
+    IF (ALLOCATED(hice)) DEALLOCATE(hice)
+    IF (ALLOCATED(tice)) DEALLOCATE(tice)
+    IF (ALLOCATED(bilg_cumul)) DEALLOCATE(bilg_cumul)
     IF (ALLOCATED(snow)) DEALLOCATE(snow)
     IF (ALLOCATED(qsurf)) DEALLOCATE(qsurf)