Changeset 4449 for LMDZ6/trunk/libf/phylmd
- Timestamp:
- Mar 2, 2023, 4:17:32 PM (16 months ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 2 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
r4370 r4449 23 23 USE climb_wind_mod, ONLY : climb_wind_down, climb_wind_up 24 24 USE coef_diff_turb_mod, ONLY : coef_diff_turb 25 USE atke_exchange_coeff_mod, ONLY : atke_compute_km_kh 25 26 USE ioipsl_getin_p_mod, ONLY : getin_p 26 27 USE cdrag_mod … … 1656 1657 !!! jyg le 07/02/2012 1657 1658 IF (iflag_split .eq.0) THEN 1658 !!!1659 1659 !!! nrlmd & jyg les 02/05/2011, 13/06/2011, 05/02/2012 1660 1660 IF (prt_level >=10) THEN … … 1669 1669 print *,' args coef_diff_turb: ycdragh ', ycdragh 1670 1670 print *,' args coef_diff_turb: ytke ', ytke 1671 1672 1671 ENDIF 1672 1673 IF (iflag_pbl>=50) THEN 1674 1675 CALL atke_compute_km_kh(knon,klev,yu,yv,yt, & 1676 ypplay,ypaprs,ytke,ycoefm, ycoefh) 1677 1678 ELSE 1679 1673 1680 CALL coef_diff_turb(dtime, nsrf, knon, ni, & 1674 1681 ypaprs, ypplay, yu, yv, yq, yt, yts, yqsurf, ycdragm, & … … 1686 1693 ENDDO 1687 1694 ENDIF 1695 1696 ENDIF ! iflag_pbl >= 50 1697 1688 1698 IF (prt_level >=10) print *,'coef_diff_turb -> ycoefh ',ycoefh 1689 ! 1699 1700 1690 1701 ELSE !(iflag_split .eq.0) 1702 1703 1691 1704 IF (prt_level >=10) THEN 1692 1705 print *,' args coef_diff_turb: yu_x ', yu_x … … 1699 1712 print *,' args coef_diff_turb: ycdragh_x ', ycdragh_x 1700 1713 print *,' args coef_diff_turb: ytke_x ', ytke_x 1701 1702 ENDIF 1714 ENDIF 1715 1716 1717 IF (iflag_pbl>=50) THEN 1718 1719 CALL atke_compute_km_kh(knon,klev,yu_x,yv_x,yt_x, & 1720 ypplay,ypaprs,ytke_x,ycoefm_x, ycoefh_x) 1721 1722 ELSE 1723 1703 1724 CALL coef_diff_turb(dtime, nsrf, knon, ni, & 1704 1725 ypaprs, ypplay, yu_x, yv_x, yq_x, yt_x, yts_x, yqsurf_x, ycdragm_x, & … … 1716 1737 ENDDO 1717 1738 ENDIF 1739 1740 ENDIF ! iflag_pbl >= 50 1741 1718 1742 IF (prt_level >=10) print *,'coef_diff_turb -> ycoefh_x ',ycoefh_x 1719 1743 ! … … 1728 1752 print *,' args coef_diff_turb: ycdragh_w ', ycdragh_w 1729 1753 print *,' args coef_diff_turb: ytke_w ', ytke_w 1730 ENDIF 1754 ENDIF 1755 1756 IF (iflag_pbl>=50) THEN 1757 1758 CALL atke_compute_km_kh(knon,klev,yu_w,yv_w,yt_w, & 1759 ypplay,ypaprs,ytke_w,ycoefm_w, ycoefh_w) 1760 1761 ELSE 1762 1731 1763 CALL coef_diff_turb(dtime, nsrf, knon, ni, & 1732 1764 ypaprs, ypplay, yu_w, yv_w, yq_w, yt_w, yts_w, yqsurf_w, ycdragm_w, & … … 1743 1775 ENDDO 1744 1776 ENDIF 1777 1778 ENDIF ! iflag_pbl >= 50 1779 1780 1745 1781 IF (prt_level >=10) print *,'coef_diff_turb -> ycoefh_w ',ycoefh_w 1746 ! 1782 1747 1783 !!!jyg le 10/04/2013 1748 1784 !! En attendant de traiter le transport des traceurs dans les poches froides, formule … … 1754 1790 ENDDO 1755 1791 ENDDO 1756 !!! 1792 1793 1757 1794 ENDIF ! (iflag_split .eq.0) 1758 !!! 1795 1759 1796 1760 1797 !**************************************************************************************** -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4448 r4449 82 82 USE wake_ini_mod, ONLY : wake_ini 83 83 USE yamada_ini_mod, ONLY : yamada_ini 84 84 USE atke_turbulence_ini_mod, ONLY : atke_ini 85 85 USE thermcell_ini_mod, ONLY : thermcell_ini 86 86 USE lscp_ini_mod, ONLY : lscp_ini … … 1748 1748 CALL wake_ini(rg,rd,rv,prt_level) 1749 1749 CALL yamada_ini(klon,lunout,prt_level) 1750 CALL atke_ini(prt_level, lunout, RG, RD, RPI) 1750 1751 CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, & 1751 1752 & RG,RD,RCPD,RKAPPA,RLVTT,RETV)
Note: See TracChangeset
for help on using the changeset viewer.