Changeset 1525 for LMDZ5/trunk/libf/phylmd/physiq.F

Timestamp:

May 25, 2011, 12:55:27 PM (13 years ago)

Author:

idelkadi

Message:

Modifications concerning the cloud scheme:

1. In newmicro, it now possible to read a min and max effective radius of ice particles from physiq.def : rei_min and rei_max which were initially set to 3.5 and 61.29 microns in the code.

concerns : conf_phys.F90, nuage.h, newmicro.F

2. In physiq.F, in case of combination of iflag_cldcon>=5 (A. Jam cloud scheme) and iflag_coupl=5

concerns : physiq.F and thermcell_main.F90

File:

• LMDZ5/trunk/libf/phylmd/physiq.F (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/physiq.F

@@ -2920 +2920 @@
          enddo
 
+         else if (iflag_coupl==5) then
+         do k=1,klev
+            do i=1,klon
+               cldfra(i,k)=min(cldfra(i,k)+rnebcon(i,k),1.)
+               cldliq(i,k)=cldliq(i,k)+rnebcon(i,k)*clwcon(i,k)
+            enddo
+         enddo
+
          else
+
 ! Si on est sur un point touche par la convection profonde et pas
 ! par les thermiques, on prend la couverture nuageuse et l'eau nuageuse