Changeset 5163 for LMDZ6/branches


Ignore:
Timestamp:
Aug 26, 2024, 11:42:24 AM (2 months ago)
Author:
aborella
Message:

Correctif calcul chaleur latente lscp

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp.F90

    r4951 r5163  
    10181018                        ENDIF
    10191019
    1020                         qlbef(i)=max(0.,zqn(i)-zqs(i))
     1020                        IF ( ok_unadjusted_clouds ) THEN
     1021                          !--AB We relax the saturation adjustment assumption
     1022                          !-- qvc (grid-mean vapor in cloud) is calculated by the condensation scheme
     1023                          IF ( rneb(i,k) .GT. eps ) THEN
     1024                            qlbef(i) = MAX(0., zqn(i) - qvc(i) / rneb(i,k))
     1025                          ELSE
     1026                            qlbef(i) = 0.
     1027                          ENDIF
     1028                        ELSE
     1029                          qlbef(i)=max(0.,zqn(i)-zqs(i))
     1030                        ENDIF
     1031
    10211032                        num = -Tbef(i)+zt(i)+rneb(i,k)*((1-zfice(i))*RLVTT &
    10221033                              +zfice(i)*RLSTT)/RCPD/(1.0+RVTMP2*(zq(i)+zmqc(i)))*qlbef(i)
Note: See TracChangeset for help on using the changeset viewer.