Changeset 689 for trunk/LMDZ.MARS/libf/phymars/watersat.F

Timestamp:

Jun 4, 2012, 10:12:14 AM (12 years ago)

Author:

flefevre

Message:

Minor change. Better handling of very small water mixing ratio at saturation
(for very low temperatures).

File:

• trunk/LMDZ.MARS/libf/phymars/watersat.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/watersat.F

@@ -36 +36 @@
         es=10.**es 
         qsat(i)=(es*100.)/p(i)*0.41 
+        qsat(i) = max(qsat(i), 1.e-30)
 
 c        qss = specific humidity