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

Timestamp:

Sep 17, 2023, 1:16:26 PM (8 months ago)

Author:

fhourdin

Message:

Preparation/test de convergence num en temps

File:

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

LMDZ6/trunk/libf/phylmd/calltherm.F90

@@ -4 +4 @@
       subroutine calltherm(dtime  &
      &      ,pplay,paprs,pphi,weak_inversion  &
-     &      ,u_seri_,v_seri_,t_seri_,q_seri_,zqsat,debut  &
+     &      ,u_seri_,v_seri_,t_seri_,q_seri_,t_env,q_env,zqsat,debut  &
      &      ,d_u_ajs,d_v_ajs,d_t_ajs,d_q_ajs  &
      &      ,fm_therm,entr_therm,detr_therm,zqasc,clwcon0,lmax,ratqscth,  &
@@ -56 +56 @@
 
       REAL, DIMENSION(klon,klev), INTENT(IN) :: u_seri_,v_seri_
-      REAL, DIMENSION(klon,klev), INTENT(IN) :: t_seri_,q_seri_
+      REAL, DIMENSION(klon,klev), INTENT(IN) :: t_seri_,q_seri_,t_env,q_env
       REAL, DIMENSION(klon,klev) :: u_seri,v_seri
       REAL, DIMENSION(klon,klev) :: t_seri,q_seri
@@ -295 +295 @@
             CALL thermcell_main(itap,klon,klev,zdt  &
      &      ,pplay,paprs,pphi,debut  &
-     &      ,u_seri,v_seri,t_seri,q_seri  &
+     &      ,u_seri,v_seri,t_seri,q_seri,t_env,q_env  &
      &      ,d_u_the,d_v_the,d_t_the,d_q_the  &
      &      ,zfm_therm,zentr_therm,zdetr_therm,zqasc,zqla,lmax  &