Changeset 2306 for LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F90

Timestamp:

Jun 23, 2015, 11:33:09 AM (9 years ago)

Author:

jyg

Message:

Improved diagnostics: pmflxr and pmflxs are now
the true vertical profiles of liquid and solid
convective precipitation (previously they where
merely diagnosed through a test on temperature).
The convective scheme internal variable for ice
precipitation is Vprecipi.

File:

• LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F90 (modified) (6 diffs)

LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F90

@@ -3 +3 @@
                            precip, cbmf, plcl, plfc, wbeff, sig, w0, ptop2, &
                            ft, fq, fu, fv, ftra,  &
-                           sigd, ma, mip, vprecip, upwd, dnwd, dnwd0, &
+                           sigd, ma, mip, vprecip, vprecipi, upwd, dnwd, dnwd0, &
                            qcondc, wd, cape, cin, &
                            tvp, &
@@ -17 +17 @@
                            precip1, cbmf1, plcl1, plfc1, wbeff1, sig1, w01, ptop21, &
                            ft1, fq1, fu1, fv1, ftra1, &
-                           sigd1, ma1, mip1, vprecip1, upwd1, dnwd1, dnwd01, &
+                           sigd1, ma1, mip1, vprecip1, vprecipi1, upwd1, dnwd1, dnwd01, &
                            qcondc1, wd1, cape1, cin1, &
                            tvp1, &
@@ -57 +57 @@
   REAL, DIMENSION (nloc, nd), INTENT (IN)            :: ma, mip
   REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: vprecip
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: vprecipi
   REAL, DIMENSION (nloc, nd), INTENT (IN)            :: upwd, dnwd, dnwd0
   REAL, DIMENSION (nloc, nd), INTENT (IN)            :: qcondc
@@ -91 +92 @@
   REAL, DIMENSION (len, nd), INTENT (OUT)            :: ma1, mip1
   REAL, DIMENSION (len, nd+1), INTENT (OUT)          :: vprecip1
+  REAL, DIMENSION (len, nd+1), INTENT (OUT)          :: vprecipi1
   REAL, DIMENSION (len, nd), INTENT (OUT)            :: upwd1, dnwd1, dnwd01
   REAL, DIMENSION (len, nd), INTENT (OUT)            :: qcondc1
@@ -155 +157 @@
         mip1(idcum(i), k) = mip(i, k)
         vprecip1(idcum(i), k) = vprecip(i, k)
+        vprecipi1(idcum(i), k) = vprecipi(i, k)
         upwd1(idcum(i), k) = upwd(i, k)
         dnwd1(idcum(i), k) = dnwd(i, k)
@@ -255 +258 @@
       mip1(:, 1:nl+1) = mip(:, 1:nl+1)
       vprecip1(:, 1:nl+1) = vprecip(:, 1:nl+1)
+      vprecipi1(:, 1:nl+1) = vprecipi(:, 1:nl+1)
       upwd1(:, 1:nl+1) = upwd(:, 1:nl+1)
       dnwd1(:, 1:nl+1) = dnwd(:, 1:nl+1)