Changeset 4869 for LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90
- Timestamp:
- Mar 22, 2024, 2:31:51 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90
r4830 r4869 110 110 USE lmdz_lscp_ini, ONLY : iflag_autoconversion, ffallv_con, ffallv_lsc 111 111 USE lmdz_lscp_ini, ONLY : RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG 112 USE lmdz_lscp_ini, ONLY : ok_poprecip 112 USE lmdz_lscp_ini, ONLY : ok_poprecip, ok_bug_fonte_lscp 113 113 114 114 IMPLICIT NONE … … 630 630 zrflcld(i)=zrflcld(i)+zmelt*ziflcld(i) 631 631 zrfl(i)=zrflclr(i)+zrflcld(i) 632 632 IF (ok_bug_fonte_lscp) THEN 633 633 ziflclr(i)=ziflclr(i)*(1.-zmelt) 634 634 ziflcld(i)=ziflcld(i)*(1.-zmelt) 635 635 zifl(i)=ziflclr(i)+ziflcld(i) 636 636 ENDIF 637 637 ELSE 638 638 zrfl(i)=zrfl(i)+zmelt*zifl(i) 639 639 IF (ok_bug_fonte_lscp) THEN 640 640 zifl(i)=zifl(i)*(1.-zmelt) 641 ENDIF 641 642 ENDIF 642 643 … … 648 649 zt(i)=zt(i)-zifl(i)*zmelt*(RG*dtime)/(paprs(i,k)-paprs(i,k+1)) & 649 650 *RLMLT/RCPD/(1.0+RVTMP2*(zq(i)+zmqc(i))) 650 651 652 IF (.NOT. ok_bug_fonte_lscp) THEN 653 IF (iflag_evap_prec.GE.4) THEN 654 ziflclr(i)=ziflclr(i)*(1.-zmelt) 655 ziflcld(i)=ziflcld(i)*(1.-zmelt) 656 zifl(i)=ziflclr(i)+ziflcld(i) 657 ELSE 658 zifl(i)=zifl(i)*(1.-zmelt) 659 ENDIF 660 ENDIF 651 661 652 662 ELSE
Note: See TracChangeset
for help on using the changeset viewer.