Changeset 4234 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Sep 1, 2022, 9:46:01 AM (2 years ago)

Author:

dcugnet

Message:

Modification that should have been included in r4232

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -6385 +6385 @@
     d_t_ec(:,:)=0.
     forall (k=1: nbp_lev) exner(:, k) = (pplay(:, k)/paprs(:,1))**RKAPPA
-    CALL ener_conserv(klon,klev,pdtphys,u,v,t,qx(:,:,ivap),qx(:,:,iliq),qx(:,:,isol), &
+    CALL ener_conserv(klon,klev,pdtphys,u,v,t,qx,ivap,iliq,isol, &
          u_seri,v_seri,t_seri,q_seri,ql_seri,qs_seri,pbl_tke(:,:,is_ave)-tke0(:,:), &
          zmasse,exner,d_t_ec)