Ignore:
Timestamp:
Jun 14, 2016, 9:16:45 AM (8 years ago)
Author:
Laurent Fairhead
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phyredem.F90

    r2499 r2569  
    2121                                wake_pe, wake_fip, fm_therm, entr_therm,     &
    2222                                detr_therm, Ale_bl, Ale_bl_trig, Alp_bl,     &
    23                                 du_gwd_rando, du_gwd_front
     23                                du_gwd_rando, du_gwd_front, u10m, v10m
    2424  USE geometry_mod, ONLY : longitude_deg, latitude_deg
    2525  USE iostart, ONLY: open_restartphy, close_restartphy, put_field, put_var
     
    151151  CALL put_field_srf2("A_dir_SW","Albedo direct",falb_dir(:,:,:))
    152152  CALL put_field_srf2("A_dif_SW","Albedo diffus",falb_dif(:,:,:))
     153
     154  CALL put_field_srf1("U10M", "u a 10m", u10m)
     155
     156  CALL put_field_srf1("V10M", "v a 10m", v10m)
     157
    153158
    154159! ================== Tsoil =========================================
Note: See TracChangeset for help on using the changeset viewer.