Changeset 5514


Ignore:
Timestamp:
Jan 29, 2025, 11:26:22 AM (31 hours ago)
Author:
yann meurdesoif
Message:

Fix missing indice in array DT.
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_qsat.f90

    r5512 r5514  
    6161               qsatbef=qsatbef*zcor
    6262               qlbef=max(0.,zqta(ig,l)-qsatbef)
    63                DT(ig) = 0.5*RLvCp*qlbef
     63               DT(ig,l) = 0.5*RLvCp*qlbef
    6464               zqsat(ig,l)=qsatbef
    6565     endif
Note: See TracChangeset for help on using the changeset viewer.