Changeset 1334 for LMDZ4/trunk/libf/phylmd/newmicro.F

Timestamp:

Mar 31, 2010, 2:54:07 PM (14 years ago)

Author:

idelkadi

Message:

• Rajout de champs de sorties
• Correction dans la partie convection (nouvelle physique)

File:

• LMDZ4/trunk/libf/phylmd/newmicro.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/newmicro.F

@@ -131 +131 @@
       xflwc = 0.d0
       xfiwc = 0.d0
+
+! Initialisation 
+      reliq=0.
+      reice=0.
 
       DO k = 1, klev