Changeset 1855 for LMDZ5/trunk/libf


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/fisrtilp.F90

    r1849 r1855  
    655655           IF (rneb(i,k).GT.0.0) THEN
    656656              zrhol(i) = zrho(i) * zoliq(i) / zneb(i)
    657 
     657              ! Initialization of zpluie and zice:
     658              zpluie=0
     659              zice=0
    658660              IF (zneb(i).EQ.seuil_neb) THEN
    659                  zpluie= 0.0
    660                  zice = 0.0 
    661661                 ztot = 0.0
    662662              ELSE
Note: See TracChangeset for help on using the changeset viewer.