Changeset 3965 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Nov 20, 2025, 2:13:31 PM (2 months ago)
Author:
debatzbr
Message:

Pluto PCM: add tendency of condensation heating rate (latent heat).
BBR

Location:
trunk/LMDZ.PLUTO/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_microphysics.F90

    r3962 r3965  
    120120                dmugases(:,i) = dmugases(mm_nla:1:-1,i)
    121121
    122                 ! Compute condensation heating rate
    123                 dtlc(:) = dtlc(:) + (dmugases(:,i) * mm_xESPS(i)%fmol2fmas * mm_LheatX(mm_temp,mm_xESPS(i)))
     122                ! Compute condensation heating rate (/!\ dmugases = - dm3ices)
     123                dtlc(:) = dtlc(:) - (dmugases(:,i) * mm_xESPS(i)%fmol2fmas * mm_LheatX(mm_temp,mm_xESPS(i)))
    124124            enddo
    125125         

  • trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

    r3962 r3965  
    16211621
    16221622            pdq(:,:,:) = pdq(:,:,:) + pdqmufi(:,:,:)
    1623 
     1623            IF (callmuclouds) THEN
     1624               pdt(:,:) = pdt(:,:) + zdtcond(:,:)
     1625            ENDIF ! end of callmuclouds
     1626           
    16241627            ! Increment surface tracer tendencies through precipitation
    16251628            ! Spherical aerosols
Note: See TracChangeset for help on using the changeset viewer.