Changeset 736


Ignore:
Timestamp:
Jul 24, 2012, 6:50:33 PM (12 years ago)
Author:
jleconte
Message:

24/07/2012 == JL

  • Correction of a bug in turbulent diffusion (turbdiff.F90)

=> This solves a water conservation problem arising when the code tries to
evaporate over dry land.

Location:
trunk/LMDZ.GENERIC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/README

    r731 r736  
    741741- Corrected precipitation evaporation scheme + snow fall (JL+BC)
    742742- Commented some unecessary writediagfi calls that where used for test.
     743
     744== 24/07/2012 == JL
     745- Correction of a bug in turbulent diffusion (turbdiff.F90)
     746   => This solves a water conservation problem arising when the code tries to
     747   evaporate over dry land.

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

    r732 r736  
    580580                      !recompute q1 with new water flux from surface 
    581581                      zq(ig,1,iq) = (zmass(ig,1)*(pq(ig,1,iq)+ptimestep*pdqfi(ig,1,iq))  &
    582                                             +zfluxq(ig,2)*zcq(ig,1)-dqsdif_total(ig))     &
     582                                            +zfluxq(ig,2)*zcq(ig,2)-dqsdif_total(ig))     &
    583583                                 / (zmass(ig,1)+(1.-zdq(ig,2))*zfluxq(ig,2))                 
    584584                  end if
Note: See TracChangeset for help on using the changeset viewer.