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

Timestamp:

Jun 30, 2017, 12:00:23 PM (7 years ago)

Author:

fcheruy

Message:

Creation of LMDZ branch to incorporate tree drag from ORCHIDEE.
Should merge in LMDZ trunk quickly

6. Cheruy with assistance from LF

Location:

LMDZ5/branches/LMDZ_tree_FC

Files:

• . (copied) (copied from LMDZ5/trunk)
• libf/phylmd/phyredem.F90 (modified) (2 diffs)

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

@@ -22 +22 @@
                                 wake_pe, wake_fip, fm_therm, entr_therm,     &
                                 detr_therm, Ale_bl, Ale_bl_trig, Alp_bl,     &
-                                du_gwd_rando, du_gwd_front, u10m, v10m
+                                du_gwd_rando, du_gwd_front, u10m, v10m,      &
+                                treedrg
   USE geometry_mod, ONLY : longitude_deg, latitude_deg
   USE iostart, ONLY: open_restartphy, close_restartphy, put_field, put_var
@@ -160 +161 @@
 ! ================== Tsoil =========================================
   CALL put_field_srf2("Tsoil","Temperature",tsoil(:,:,:))
+!FC
+  CALL put_field_srf2("treedrg","freinage arbres",treedrg(:,:,:))
+
 
   CALL put_field_srf1("QS"  , "Humidite",qsurf(:,:))