Changeset 4915 for LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90
- Timestamp:
- Apr 22, 2024, 6:12:06 PM (4 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90
r4913 r4915 110 110 USE lmdz_lscp_ini, ONLY : iflag_autoconversion, ffallv_con, ffallv_lsc, min_frac_th_cld 111 111 USE lmdz_lscp_ini, ONLY : RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG 112 USE lmdz_lscp_ini, ONLY : ok_poprecip , ok_bug_fonte_lscp112 USE lmdz_lscp_ini, ONLY : ok_poprecip 113 113 114 114 IMPLICIT NONE … … 637 637 zrflcld(i)=zrflcld(i)+zmelt*ziflcld(i) 638 638 zrfl(i)=zrflclr(i)+zrflcld(i) 639 IF (ok_bug_fonte_lscp) THEN640 ziflclr(i)=ziflclr(i)*(1.-zmelt)641 ziflcld(i)=ziflcld(i)*(1.-zmelt)642 zifl(i)=ziflclr(i)+ziflcld(i)643 ENDIF644 639 ELSE 645 640 zrfl(i)=zrfl(i)+zmelt*zifl(i) 646 IF (ok_bug_fonte_lscp) THEN647 zifl(i)=zifl(i)*(1.-zmelt)648 ENDIF649 641 ENDIF 650 642 … … 657 649 *RLMLT/RCPD/(1.0+RVTMP2*(zq(i)+zmqc(i))) 658 650 659 IF (.NOT. ok_bug_fonte_lscp) THEN660 651 IF (iflag_evap_prec.GE.4) THEN 661 652 ziflclr(i)=ziflclr(i)*(1.-zmelt) … … 664 655 ELSE 665 656 zifl(i)=zifl(i)*(1.-zmelt) 666 ENDIF667 657 ENDIF 668 658
Note: See TracChangeset
for help on using the changeset viewer.