Changeset 4412 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Feb 1, 2023, 5:35:29 PM (17 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4389 r4412 827 827 REAL dialiq(klon,klev) ! eau liquide nuageuse 828 828 REAL diafra(klon,klev) ! fraction nuageuse 829 REAL cldliq(klon,klev) ! eau liquide nuageuse829 REAL radocond(klon,klev) ! eau condensee nuageuse 830 830 ! 831 831 !XXX PB … … 3637 3637 t_seri, q_seri,ptconv,ratqs, & 3638 3638 d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, rneblsvol, rneb_seri, & 3639 cldliq, picefra, rain_lsc, snow_lsc, &3639 radocond, picefra, rain_lsc, snow_lsc, & 3640 3640 frac_impa, frac_nucl, beta_prec_fisrt, & 3641 3641 prfl, psfl, rhcl, & … … 3649 3649 CALL fisrtilp(phys_tstep,paprs,pplay, & 3650 3650 t_seri, q_seri,ptconv,ratqs, & 3651 d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, cldliq, &3651 d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, radocond, & 3652 3652 rain_lsc, snow_lsc, & 3653 3653 pfrac_impa, pfrac_nucl, pfrac_1nucl, & … … 3696 3696 cldfra(i,k) = rneb(i,k) 3697 3697 !CR: a quoi ca sert? Faut-il ajouter qs_seri? 3698 IF (.NOT.new_oliq) cldliq(i,k) = ql_seri(i,k)3698 IF (.NOT.new_oliq) radocond(i,k) = ql_seri(i,k) 3699 3699 ENDDO 3700 3700 ENDDO … … 3760 3760 DO i = 1, klon 3761 3761 IF (diafra(i,k).GT.cldfra(i,k)) THEN 3762 cldliq(i,k) = dialiq(i,k)3762 radocond(i,k) = dialiq(i,k) 3763 3763 cldfra(i,k) = diafra(i,k) 3764 3764 ENDIF … … 3797 3797 DO i=1,klon 3798 3798 IF (ptconv(i,k).AND.ptconvth(i,k)) THEN 3799 cldliq(i,k)=cldliq(i,k)+rnebcon(i,k)*clwcon(i,k)3799 radocond(i,k)=radocond(i,k)+rnebcon(i,k)*clwcon(i,k) 3800 3800 cldfra(i,k)=min(cldfra(i,k)+rnebcon(i,k),1.) 3801 3801 ELSE IF (ptconv(i,k)) THEN 3802 3802 cldfra(i,k)=rnebcon(i,k) 3803 cldliq(i,k)=rnebcon(i,k)*clwcon(i,k)3803 radocond(i,k)=rnebcon(i,k)*clwcon(i,k) 3804 3804 ENDIF 3805 3805 ENDDO … … 3810 3810 DO i=1,klon 3811 3811 cldfra(i,k)=min(cldfra(i,k)+rnebcon(i,k),1.) 3812 cldliq(i,k)=cldliq(i,k)+rnebcon(i,k)*clwcon(i,k)3812 radocond(i,k)=radocond(i,k)+rnebcon(i,k)*clwcon(i,k) 3813 3813 ENDDO 3814 3814 ENDDO … … 3828 3828 IF (ptconv(i,k).AND. .NOT.ptconvth(i,k)) THEN 3829 3829 cldfra(i,k)=rnebcon(i,k) 3830 cldliq(i,k)=rnebcon(i,k)*clwcon(i,k)3830 radocond(i,k)=rnebcon(i,k)*clwcon(i,k) 3831 3831 ENDIF 3832 3832 ENDDO … … 3839 3839 ! Ancienne version 3840 3840 cldfra(:,:)=min(max(cldfra(:,:),rnebcon(:,:)),1.) 3841 cldliq(:,:)=cldliq(:,:)+rnebcon(:,:)*clwcon(:,:)3841 radocond(:,:)=radocond(:,:)+rnebcon(:,:)*clwcon(:,:) 3842 3842 ENDIF 3843 3843 … … 3859 3859 DO i = 1, klon 3860 3860 IF (diafra(i,k).GT.cldfra(i,k)) THEN 3861 cldliq(i,k) = dialiq(i,k)3861 radocond(i,k) = dialiq(i,k) 3862 3862 cldfra(i,k) = diafra(i,k) 3863 3863 ENDIF … … 4168 4168 ENDIF 4169 4169 CALL newmicro (flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, & 4170 paprs, pplay, t_seri, cldliq, picefra, cldfra, &4170 paprs, pplay, t_seri, radocond, picefra, cldfra, & 4171 4171 cldtau, cldemi, cldh, cldl, cldm, cldt, cldq, & 4172 4172 flwp, fiwp, flwc, fiwc, & … … 4176 4176 ELSE 4177 4177 CALL nuage (paprs, pplay, & 4178 t_seri, cldliq, picefra, cldfra, cldtau, cldemi, &4178 t_seri, radocond, picefra, cldfra, cldtau, cldemi, & 4179 4179 cldh, cldl, cldm, cldt, cldq, & 4180 4180 ok_aie, & … … 5003 5003 presnivs, pphis, pphi, albsol1, & 5004 5004 sh_in, ch_in, rhcl, cldfra, rneb, & 5005 diafra, cldliq, itop_con, ibas_con, &5005 diafra, radocond, itop_con, ibas_con, & 5006 5006 pmflxr, pmflxs, prfl, psfl, & 5007 5007 da, phi, mp, upwd, &
Note: See TracChangeset
for help on using the changeset viewer.