Changeset 1855

Timestamp:

Aug 30, 2013, 3:16:02 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Bug fix, zpluie and zice are sometimes used without being set.
EM

File:

• LMDZ5/trunk/libf/phylmd/fisrtilp.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/fisrtilp.F90

@@ -655 +655 @@
            IF (rneb(i,k).GT.0.0) THEN
               zrhol(i) = zrho(i) * zoliq(i) / zneb(i)
-
+              ! Initialization of zpluie and zice:
+              zpluie=0
+              zice=0
               IF (zneb(i).EQ.seuil_neb) THEN
-                 zpluie= 0.0
-                 zice = 0.0  
                  ztot = 0.0
               ELSE