Changeset 2940


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyetat0.F90

    r2938 r2940  
    5353  REAL trs(klon, nbtr)
    5454  REAL zts(klon)
     55  ! pour drag arbres FC
     56  REAL drg_ter(klon,klev)
    5557
    5658  CHARACTER*6 ocean_in
     
    322324!FC
    323325     IF (ifl_pbltree>0) then
    324   found=phyetat0_srf(1,treedrg,"treedrg","drag from vegetation" , 0.)
     326!CALL get_field("FTER", pctsrf(:, is_ter), found)
     327     treedrg(:,1:klev,1:nbsrf)= 0.0
     328   CALL get_field("treedrg_ter", drg_ter(:,:), found)
     329!  found=phyetat0_srf(1,treedrg,"treedrg","drag from vegetation" , 0.)
    325330  !lecture du profile de freinage des arbres
    326331   IF (.not. found ) then
    327332     treedrg(:,1:klev,1:nbsrf)= 0.0
    328333   else
    329      found=phyetat0_srf(klev,treedrg,"treedrg","freinage arbres",0.)
     334     treedrg(:,1:klev,is_ter)= drg_ter(:,:)
     335!     found=phyetat0_srf(klev,treedrg,"treedrg","freinage arbres",0.)
    330336   ENDIF
    331337      endif
  • LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyredem.F90

    r2924 r2940  
    162162  CALL put_field_srf2("Tsoil","Temperature",tsoil(:,:,:))
    163163!FC
    164   CALL put_field_srf2("treedrg","freinage arbres",treedrg(:,:,:))
     164!  CALL put_field_srf2("treedrg","freinage arbres",treedrg(:,:,:))
     165  CALL put_field("treedrg_ter","freinage arbres",treedrg(:,:,is_ter))
    165166
    166167
Note: See TracChangeset for help on using the changeset viewer.