Changeset 2936 for LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyetat0.F90

Timestamp:

Jul 7, 2017, 12:02:31 PM (7 years ago)

Author:

fcheruy

Message:

corrected restart for drgtree
Cd_frein is read from physiq.def

File:

• LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyetat0.F90 (modified) (1 diff)

LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyetat0.F90

@@ -321 +321 @@
   ENDIF
 !FC
+     IF (ifl_pbltree>1) then
+  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.)
+     found=phyetat0_srf(klev,treedrg,"treedrg","freinage arbres",0.)
    ENDIF
+      endif