Changeset 3617 for LMDZ6/branches/Ocean_skin/libf/phylmd/cv3_routines.F90

Timestamp:

Dec 17, 2019, 3:44:15 PM (5 years ago)

Author:

lguez

Message:

Sync latest trunk changes to branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/cv3_routines.F90 (modified) (1 diff)

LMDZ6/branches/Ocean_skin/libf/phylmd/cv3_routines.F90

@@ -1495 +1495 @@
 !!!!            qcld(i,k) = min(clw(i,k), elacrit)                                          !!jygprl
             qcld(i,k) = min(clw(i,k), elacrit*(1.-qta(i,k-1))/(1.-elacrit))             !!jygprl
-            phinu2p = qhsat(i,k-1) + qcld(i,k-1) - (qhsat(i,k) + qcld(i,k))                     !!jygprl
+            phinu2p = max(qhsat(i,k-1) + qcld(i,k-1) - (qhsat(i,k) + qcld(i,k)),0.)   !!jygprl
             qpl(i,k) = qpl(i,k-1) + (1.-frac(i,k))*phinu2p                            !!jygprl
             qps(i,k) = qps(i,k-1) + frac(i,k)     *phinu2p                            !!jygprl