Changeset 3758 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cva_driver.F90

Timestamp:

Jul 15, 2020, 10:14:33 PM (4 years ago)

Author:

adurocher

Message:

Refactoring and cleaning cv3a_driver

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cva_driver.F90 (modified) (2 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cva_driver.F90

@@ -127 +127 @@
     call cv3a_driver(len, nd, ndp1, ntra, nloc, k_upper, &
                 iflag_con, iflag_mix, iflag_ice_thermo, iflag_clos, ok_conserv_q, &
-                delt, comp_threshold, &
+                delt, &
                 t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, &
-                u1, v1, tra1, &
+                u1, v1, &
                 p1, ph1, &
                 Ale1, Alp1, omega1, &
@@ -143 +143 @@
                 ftd1, fqd1, &
                 Plim11, Plim21, asupmax1, supmax01, asupmaxmin1, &
-                lalim_conv1, & 
                 da1, phi1, mp1, phi21, d1a1, dam1, sigij1, wghti1, &
                 qta1, clw1, elij1, evap1, ep1, epmlmMm1, eplaMm1, &