Ignore:
Timestamp:
Aug 30, 2023, 9:15:43 AM (18 months ago)
Author:
evignon
Message:

prise en compte de l'humidite pour le calcul du flux de flottabilite dans atke
+ petits ajustements

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90

    r4633 r4653  
    19811981        IF (iflag_pbl>=50) THEN
    19821982
    1983         CALL call_atke(dtime,knon,klev,ycdragm, ycdragh,yus0,yvs0,yts,yu,yv,yt, &
     1983        CALL call_atke(dtime,knon,klev,ycdragm, ycdragh,yus0,yvs0,yts,yu,yv,yt,yq, &
    19841984             ypplay,ypaprs,ytke,ycoefm, ycoefh)
    19851985
    … …  
    20242024        IF (iflag_pbl>=50) THEN
    20252025
    2026         CALL call_atke(dtime,knon,klev,ycdragm_x,ycdragh_x,yus0,yvs0,yts_x,yu_x,yv_x,yt_x, &
     2026        CALL call_atke(dtime,knon,klev,ycdragm_x,ycdragh_x,yus0,yvs0,yts_x,yu_x,yv_x,yt_x,yq_x, &
    20272027             ypplay,ypaprs,ytke_x,ycoefm_x, ycoefh_x)
    20282028
    … …  
    20642064        IF (iflag_pbl>=50) THEN
    20652065
    2066         CALL call_atke(dtime,knon,klev,ycdragm_w,ycdragh_w,yus0,yvs0,yts_w,yu_w,yv_w,yt_w, &
     2066        CALL call_atke(dtime,knon,klev,ycdragm_w,ycdragh_w,yus0,yvs0,yts_w,yu_w,yv_w,yt_w,yq_w, &
    20672067             ypplay,ypaprs,ytke_w,ycoefm_w, ycoefh_w)
    20682068

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r4651 r4653  
    19171917       CALL wake_ini(rg,rd,rv,prt_level)
    19181918       CALL yamada_ini(klon,lunout,prt_level)
    1919        CALL atke_ini(prt_level, lunout, RG, RD, RPI, RCPD)
     1919       CALL atke_ini(prt_level, lunout, RG, RD, RPI, RCPD, RV)
    19201920       CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, &
    19211921   &    RG,RD,RCPD,RKAPPA,RLVTT,RETV)
Note: See TracChangeset for help on using the changeset viewer.