Changeset 2201 for LMDZ5/trunk/libf/phylmd/cv3a_compress.F90

Timestamp:

Feb 10, 2015, 3:23:19 PM (9 years ago)

Author:

crio

Message:

Expérience du tube de dentifrice: Ajout d'un terme de grande-échelle dans
la fermeture du schéma de convection. La fraction de la convergence
grande-échelle de masse au LFC ajoutée au flux de masse à la base calculé
par la fermeture en ALP est controlée par coef_clos_ls lu dans physiq.def
(valeur comprise entre 0 et 1, 0 par défaut).
Tube of toothpaste experiment: Additional large-scale term in the closure
formulation of the deep convection scheme. The fraction of the large-scale
convergence of mass at LFC additioned to the cloud-base mass-flux given by
the ALP closure is controlled by coef_clos_ls read in physiq.def (value
between 0 and 1, 0 by default).

File:

• LMDZ5/trunk/libf/phylmd/cv3a_compress.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/cv3a_compress.F90

@@ -4 +4 @@
     th1_wake, tra1, h1, lv1, lf1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, &
     h1_wake, lv1_wake, lf1_wake, cpn1_wake, tv1_wake, sig1, w01, ptop21, &
-    ale1, alp1, iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, hnk, unk, vnk, &
+    ale1, alp1, omega1, iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, hnk, unk, vnk, &
     wghti, pbase, buoybase, t, q, qs, t_wake, q_wake, qs_wake, s_wake, u, v, &
     gz, th, th_wake, tra, h, lv, lf, cpn, p, ph, tv, tp, tvp, clw, h_wake, &
-    lv_wake, lf_wake, cpn_wake, tv_wake, sig, w0, ptop2, ale, alp)
+    lv_wake, lf_wake, cpn_wake, tv_wake, sig, w0, ptop2, ale, alp, omega)
   ! **************************************************************
   ! *
@@ -40 +40 @@
   REAL sig1(len, nd), w01(len, nd), ptop21(len)
   REAL ale1(len), alp1(len)
+  REAL omega1(len,nd)
 
   ! outputs:
@@ -60 +61 @@
   REAL sig(len, nd), w0(len, nd), ptop2(len)
   REAL ale(len), alp(len)
+  REAL omega(len,nd)
 
   ! local variables:
@@ -102 +104 @@
         sig(nn, k) = sig1(i, k)
         w0(nn, k) = w01(i, k)
+        omega(nn, k) = omega1(i, k)
       END IF
     END DO