Changeset 347 for LMDZ.3.3/trunk

Timestamp:

Mar 18, 2002, 5:30:29 PM (23 years ago)

Author:

lmdz

Message:

Inclusion humidite relative en ciel clair. O. Boucher
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F (modified) (3 diffs)

LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F

@@ -5 +5 @@
      s                   pfrac_impa, pfrac_nucl, pfrac_1nucl,
      s                   frac_impa, frac_nucl,
-     s                   prfl, psfl)
+     s                   prfl, psfl, rhcl)
 
 c
@@ -33 +33 @@
       REAL rneb(klon,klev) ! fraction nuageuse
       REAL radliq(klon,klev) ! eau liquide utilisee dans rayonnements
+      REAL rhcl(klon,klev) ! humidite relative en ciel clair
       REAL rain(klon) ! pluies (mm/s)
       REAL snow(klon) ! neige (mm/s)
@@ -290 +291 @@
             rneb(i,k) = MAX(0.0,MIN(1.0,rneb(i,k)))
             zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k)/(1.+zdqs(i))
+c--Olivier
+            rhcl(i,k)=(zqs(i)+zq(i)-zdelq)/2./zqs(i)
+            IF (rneb(i,k) .LE. 0.0) rhcl(i,k)=zq(i)/zqs(i)
+            IF (rneb(i,k) .GE. 1.0) rhcl(i,k)=1.0
+c--fin
          ENDDO
       ELSE