Changeset 5791 for LMDZ6/branches/contrails/libf/phylmdiso/cva_driver.F90

Timestamp:

Jul 28, 2025, 7:23:15 PM (7 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmdiso/cva_driver.F90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmdiso/cva_driver.F90

@@ -53 +53 @@
   USE print_control_mod, ONLY: prt_level, lunout
   USE add_phys_tend_mod, ONLY: fl_cor_ebil
+  USE cv3p1_closure_mod, ONLY : cv3p1_closure
+  USE cv3p2_closure_mod, ONLY : cv3p2_closure
+  USE cv3_mixscale_mod, ONLY : cv3_mixscale
 #ifdef ISO
   USE infotrac_phy, ONLY: ntraciso=>ntiso,niso,niso,itZonIso,nzone
@@ -1312 +1315 @@
                            pbase, plcl, p, ph, tv, tvp, buoy, &
                            supmax, ok_inhib, Ale, Alp, omega, &
-                           sig, w0, ptop2, cape, cin, m, iflag, coef_clos, &
+                           sig, w0, ptop2, cape, cin, m, iflag, coef_clos, coef_clos, &
                            Plim1, plim2, asupmax, supmax0, &
                            asupmaxmin, cbmf, plfc, wbeff)