Changeset 5213


Ignore:
Timestamp:
Sep 21, 2024, 2:45:14 PM (4 hours ago)
Author:
evignon
Message:

petits ajustements du 1d pour inclure proprement la neige soufflee

Location:
LMDZ6/trunk/libf/phylmd/dyn1d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

    r5212 r5213  
    1919       zgam, zmax0, zmea, zpic, zsig, &
    2020       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
    21        ql_ancien, qs_ancien, cf_ancien, rvc_ancien, &
    22        prlw_ancien, prsw_ancien, prw_ancien, &
     21       ql_ancien, qs_ancien, qbs_ancien, cf_ancien, rvc_ancien, &
     22       prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
    2323       u10m,v10m,ale_wake,ale_bl_stat
    2424
    … …  
    866866        prsw_ancien = 0.
    867867        prw_ancien = 0.
     868        IF ( ok_bs ) THEN
     869          qbs_ancien = 0.
     870          prbsw_ancien = 0.
     871        ENDIF
    868872        IF ( ok_ice_supersat ) THEN
    869873          cf_ancien = 0.

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90

    r5212 r5213  
    1515       zgam, zmax0, zmea, zpic, zsig, &
    1616       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
    17        ql_ancien, qs_ancien, cf_ancien, rvc_ancien, &
    18        prlw_ancien, prsw_ancien, prw_ancien, &
     17       ql_ancien, qs_ancien, qbs_ancien, cf_ancien, rvc_ancien, &
     18       prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
    1919       u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_
    2020
    … …  
    631631        prsw_ancien = 0.
    632632        prw_ancien = 0.
     633        IF ( ok_bs ) THEN
     634           qbs_ancien = 0.
     635           prbsw_ancien = 0.
     636        ENDIF
    633637        IF ( ok_ice_supersat ) THEN
    634638          cf_ancien = 0.
Note: See TracChangeset for help on using the changeset viewer.