Changeset 5545
- Timestamp:
- Feb 17, 2025, 3:01:39 PM (4 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/contrails/libf/phylmd/lmdz_lscp.f90
r5456 r5545 1054 1054 DO i = 1, klon 1055 1055 1056 cf_seri(i,k) = rneb(i,k) 1057 1056 1058 IF ( zoliq(i) .LE. 0. ) THEN 1057 1059 !--If everything was precipitated, the remaining empty cloud is dissipated 1058 1060 !--and everything is transfered to the subsaturated clear sky region 1059 rneb(i,k) = 0. 1061 !--NB. we do not change rneb, as it is a diagnostic only 1062 cf_seri(i,k) = 0. 1060 1063 qvc(i) = 0. 1061 1064 ENDIF 1062 1063 cf_seri(i,k) = rneb(i,k)1064 1065 1065 1066 IF ( .NOT. ok_unadjusted_clouds ) THEN
Note: See TracChangeset
for help on using the changeset viewer.