Changeset 2940 for LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phyredem.F90

Timestamp:

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

Author:

fcheruy

Message:

pour avoir drgtree ds les restart (a ameliorer)

File:

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

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))