Changeset 4843 for LMDZ6/trunk/libf/phylmd/calltherm.F90

Timestamp:

Mar 4, 2024, 6:58:03 PM (3 months ago)

Author:

crio

Message:

Nouvelle formulation du strig et correction thermiques montent trop haut

File:

• LMDZ6/trunk/libf/phylmd/calltherm.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/calltherm.F90

@@ -12 +12 @@
      &      ,pbl_tke,pctsrf,omega,airephy &
      &      ,zlcl_th,fraca0,w0,w_conv,therm_tke_max0,env_tke_max0 &
-     &      ,n2,s2,ale_bl_stat &
+     &      ,n2,s2,strig,zcong,ale_bl_stat &
      &      ,therm_tke_max,env_tke_max &
      &      ,alp_bl_det,alp_bl_fluct_m,alp_bl_fluct_tke &
@@ -87 +87 @@
       real zthl(klon,klev)
       real wmax_sec(klon)
+      real zcong(klon)
       real zmax_sec(klon)
       real f_sec(klon)
@@ -116 +117 @@
       real zlcl_th(klon),fraca0(klon),w0(klon),w_conv(klon)
       real therm_tke_max0(klon),env_tke_max0(klon)
-      real n2(klon),s2(klon)
+      real n2(klon),s2(klon),strig(klon)
       real ale_bl_stat(klon)
       real therm_tke_max(klon,klev),env_tke_max(klon,klev)
@@ -302 +303 @@
      &      ,zmax0,f0,zw2,fraca,ztv,zpspsk &
      &      ,ztla,zthl,ztva &
-     &      ,pcon,rhobarz,wth3,wmax_sec,lalim,fm,alim_star,zmax &
+     &      ,pcon,rhobarz,wth3,wmax_sec,lalim,fm,alim_star,zmax,zcong &
 #ifdef ISO         
      &      ,xt_seri,d_xt_the &
@@ -314 +315 @@
      &        ,zw2,fraca &                                           ! in
      &        ,pcon,rhobarz,wth3,wmax_sec,lalim,fm,alim_star,zmax &  ! in
-     &        ,ale,alp,lalim_conv,wght_th &                          ! out
+     &        ,zcong,ale,alp,lalim_conv,wght_th &                          ! out
      &        ,zlcl_th,fraca0,w0,w_conv,therm_tke_max0,env_tke_max0 &! out
-     &        ,n2,s2,ale_bl_stat &                                   ! out
+     &        ,n2,s2,strig,ale_bl_stat &                                   ! out
      &        ,therm_tke_max,env_tke_max &                           ! out
      &        ,alp_bl_det,alp_bl_fluct_m,alp_bl_fluct_tke &          ! out