Changeset 2568 for LMDZ5/branches/testing/libf/phylmd/phyredem.F90

Timestamp:

Jun 13, 2016, 4:55:29 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Pour retrouver 1+1=2 avec iflag_albedo=1
LF

File:

• LMDZ5/branches/testing/libf/phylmd/phyredem.F90 (modified) (2 diffs)

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

@@ -21 +21 @@
                                 wake_pe, wake_fip, fm_therm, entr_therm,     &
                                 detr_therm, Ale_bl, Ale_bl_trig, Alp_bl,     &
-                                du_gwd_rando, du_gwd_front
+                                du_gwd_rando, du_gwd_front, u10m, v10m
   USE geometry_mod, ONLY : longitude_deg, latitude_deg
   USE iostart, ONLY: open_restartphy, close_restartphy, put_field, put_var
@@ -152 +152 @@
   CALL put_field_srf2("A_dif_SW","Albedo diffus",falb_dif(:,:,:))
 
+  
+  CALL put_field_srf1("U10M", "u a 10m", u10m)
+
+  CALL put_field_srf1("V10M", "v a 10m", v10m)
+  
 ! ================== Tsoil =========================================
   CALL put_field_srf2("Tsoil","Temperature",tsoil(:,:,:))