Changeset 4441 for LMDZ6/trunk/libf/phylmd/thermcell_down.F90

Timestamp:

Feb 17, 2023, 5:11:37 PM (20 months ago)

Author:

fhourdin

Message:

Parametre controlant les downdrafts

File:

• LMDZ6/trunk/libf/phylmd/thermcell_down.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/thermcell_down.F90

@@ -223 +223 @@
 
 
-   USE thermcell_ini_mod, ONLY : prt_level,RLvCp,RKAPPA,RETV
+   USE thermcell_ini_mod, ONLY : prt_level,RLvCp,RKAPPA,RETV,fact_thermals_down
    IMPLICIT NONE
 
@@ -271 +271 @@
       do ig=1,ngrid
          if (ilay.le.lmax(ig).and.lmax(ig)>1) then
-            edn(ig,ilay)=0.5*dup(ig,ilay)
-            ddn(ig,ilay)=0.5*eup(ig,ilay)
+            edn(ig,ilay)=fact_thermals_down*dup(ig,ilay)
+            ddn(ig,ilay)=fact_thermals_down*eup(ig,ilay)
             fdn(ig,ilay)=fdn(ig,ilay+1)+edn(ig,ilay)-ddn(ig,ilay)
             thetad(ig,ilay)=( fdn(ig,ilay+1)*thetad(ig,ilay+1) + edn(ig,ilay)*theta(ig,ilay) ) / (fdn(ig,ilay)+ddn(ig,ilay))