Index: /LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyetat0.F90
===================================================================
--- /LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyetat0.F90	(revision 2939)
+++ /LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyetat0.F90	(revision 2940)
@@ -53,4 +53,6 @@
   REAL trs(klon, nbtr)
   REAL zts(klon)
+  ! pour drag arbres FC
+  REAL drg_ter(klon,klev)
 
   CHARACTER*6 ocean_in
@@ -322,10 +324,14 @@
 !FC
      IF (ifl_pbltree>0) then
-  found=phyetat0_srf(1,treedrg,"treedrg","drag from vegetation" , 0.)
+!CALL get_field("FTER", pctsrf(:, is_ter), found)
+     treedrg(:,1:klev,1:nbsrf)= 0.0
+   CALL get_field("treedrg_ter", drg_ter(:,:), found)
+!  found=phyetat0_srf(1,treedrg,"treedrg","drag from vegetation" , 0.)
   !lecture du profile de freinage des arbres
    IF (.not. found ) then
      treedrg(:,1:klev,1:nbsrf)= 0.0
    else
-     found=phyetat0_srf(klev,treedrg,"treedrg","freinage arbres",0.)
+     treedrg(:,1:klev,is_ter)= drg_ter(:,:)
+!     found=phyetat0_srf(klev,treedrg,"treedrg","freinage arbres",0.)
    ENDIF
       endif
Index: /LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyredem.F90
===================================================================
--- /LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyredem.F90	(revision 2939)
+++ /LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyredem.F90	(revision 2940)
@@ -162,5 +162,6 @@
   CALL put_field_srf2("Tsoil","Temperature",tsoil(:,:,:))
 !FC
-  CALL put_field_srf2("treedrg","freinage arbres",treedrg(:,:,:))
+!  CALL put_field_srf2("treedrg","freinage arbres",treedrg(:,:,:))
+  CALL put_field("treedrg_ter","freinage arbres",treedrg(:,:,is_ter))