Changeset 1830 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Dec 4, 2017, 6:22:23 PM (7 years ago)

Author:

mlefevre

Message:

MESOSCALE GENERIC. changed parameters for cloud condensation. within precomp flag MESOSCALE.

File:

• trunk/LMDZ.GENERIC/libf/phystd/largescale.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/largescale.F90

@@ -110 +110 @@
          zdelq(i) = MAX(MIN(ratqs * zq(i),1.-zq(i)),1.d-12)
          rneb(i,k) = (zq(i)+zdelq(i)-zqs(i)) / (2.0*zdelq(i))
+#ifdef MESOSCALE
+         if (rneb(i,k).lt.0.01) then  !no clouds MESO
+#else
          if (rneb(i,k).lt.0.) then  !no clouds
+#endif
 
             rneb(i,k)=0.
@@ -137 +141 @@
 
          else   !standard case      
-
+#ifdef MESOSCALE
+            rneb(i,k)=1. !LES/MESO case
+            zx_q(i) = (zq(i)+zqs(i))/2.0d0 ! LES
+#else
             zx_q(i) = (zq(i)+zdelq(i)+zqs(i))/2.0d0 !water vapor in cloudy sky
+#endif
 !           iterative process to stabilize the scheme when large water amounts JL12
             zcond(i) = 0.0d0