Changeset 4380 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Jan 11, 2023, 10:45:36 AM (17 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4367 r4380 82 82 USE wake_ini_mod, ONLY : wake_ini 83 83 USE thermcell_ini_mod, ONLY : thermcell_ini 84 USE lscp_ini_mod, ONLY : lscp_ini 84 85 85 86 !USE cmp_seri_mod … … 285 286 sij, & 286 287 ! 288 rneblsvol, & 289 zqsatl, zqsats, & 290 qclr, qcld, qss, qvc, rnebclr, rnebss, gamma_ss, & 291 Tcontr, qcontr, qcontr2, fcontrN, fcontrP, & 287 292 cldemi, & 288 293 cldfra, cldtau, fiwc, & … … 1742 1747 CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, & 1743 1748 & RG,RD,RCPD,RKAPPA,RLVTT,RETV) 1744 1749 IF (ok_new_lscp) then 1750 CALL lscp_ini(pdtphys,ok_ice_sursat) 1751 endif 1745 1752 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1746 1753 … … 3627 3634 ENDIF 3628 3635 3629 CALL lscp( phys_tstep,missing_val,paprs,pplay, &3636 CALL lscp(klon,klev,phys_tstep,missing_val,paprs,pplay, & 3630 3637 t_seri, q_seri,ptconv,ratqs, & 3631 d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, rneb _seri, &3638 d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, rneblsvol, rneb_seri, & 3632 3639 cldliq, picefra, rain_lsc, snow_lsc, & 3633 pfrac_impa, pfrac_nucl, pfrac_1nucl, &3634 3640 frac_impa, frac_nucl, beta_prec_fisrt, & 3635 3641 prfl, psfl, rhcl, & 3636 3642 zqasc, fraca,ztv,zpspsk,ztla,zthl,iflag_cld_th, & 3637 iflag_ice_thermo, ok_ice_sursat) 3643 iflag_ice_thermo, ok_ice_sursat, zqsatl, zqsats, & 3644 qclr, qcld, qss, qvc, rnebclr, rnebss, gamma_ss, & 3645 Tcontr, qcontr, qcontr2, fcontrN, fcontrP ) 3638 3646 3639 3647 ELSE
Note: See TracChangeset
for help on using the changeset viewer.