Changeset 2940 for LMDZ5/branches/LMDZ_tree_FC

Timestamp:

Jul 10, 2017, 8:11:42 AM (7 years ago)

Author:

fcheruy

Message:

pour avoir drgtree ds les restart (a ameliorer)

Location:

LMDZ5/branches/LMDZ_tree_FC/libf/phylmd

Files:

• phyetat0.F90 (modified) (2 diffs)
• phyredem.F90 (modified) (1 diff)

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

@@ -53 +53 @@
   REAL trs(klon, nbtr)
   REAL zts(klon)
+  ! pour drag arbres FC
+  REAL drg_ter(klon,klev)
 
   CHARACTER*6 ocean_in
@@ -322 +324 @@
 !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

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

@@ -162 +162 @@
   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))