Ignore:
Timestamp:
Jul 10, 2014, 3:56:28 PM (11 years ago)
Author:
emillour
Message:

Generic GCM:
Oops, two bugs were introduced in the previous commit.
EM

Location:
trunk/LMDZ.GENERIC/libf/phystd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/mass_redistribution.F90

    r1308 r1309  
    205205            zmflux(l+1) = zmflux(l) + pdmassmr(ig,l) - (bp(l)-bp(l+1))*(zdmass_sum(ig,1)+zmflux(1))
    206206! zmflux set to 0 if very low to avoid: top layer is disappearing in v1ld 
    207             if (abs(zmflux(l+1)).lt.1E-13.OR.sigma(l+1).eq.0.) zmflux(l+1)=0.
     207            if (abs(zmflux(l+1)).lt.1E-13.OR.bp(l+1).eq.0.) zmflux(l+1)=0.
    208208         END DO
    209209

  • trunk/LMDZ.GENERIC/libf/phystd/physiq.F90

    r1308 r1309  
    13681368               zdqssnow(1:ngrid)    = 0.0
    13691369
    1370                call rain(ngrid,nq,ptimestep,pplev,pplay,pt,pdt,pq,pdq,            &
     1370               call rain(ngrid,nlayer,nq,ptimestep,pplev,pplay,pt,pdt,pq,pdq,            &
    13711371                   zdtrain,zdqrain,zdqsrain,zdqssnow,cloudfrac)
    13721372
Note: See TracChangeset for help on using the changeset viewer.