Changeset 2952 for LMDZ5/trunk/libf/phylmd/phyredem.F90

Timestamp:

Jul 14, 2017, 10:23:40 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Parametrization of drag by copses
Need version 4465 of ORCHIDEE at least

6. Cheruy

Location:

LMDZ5/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/phyredem.F90 (modified) (2 diffs)

LMDZ5/trunk/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("treedrg_ter","freinage arbres",treedrg(:,:,is_ter))
+
 
   CALL put_field_srf1("QS"  , "Humidite",qsurf(:,:))