Changeset 5173
- Timestamp:
- Sep 9, 2024, 11:01:27 AM (4 months ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/physiq_mod.F90
r5172 r5173 1758 1758 1759 1759 IF (CPPKEY_COSPV2) THEN 1760 CALL lmdz_cosp_interface(itap, phys_tstep, freq_cosp, & 1761 ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, & 1762 ecrit_mth, ecrit_day, ecrit_hf, ok_all_xml, missing_val, & 1763 klon, klev, longitude_deg, latitude_deg, presnivs, overlap, & 1764 JrNt, ref_liq, ref_ice, & 1765 pctsrf(:, is_ter) + pctsrf(:, is_lic), & 1766 zu10m, zv10m, pphis, & 1767 phicosp, paprs(:, 1:klev), pplay, zxtsol, t_seri, & 1768 qx(:, :, ivap), zx_rh, cldfra, rnebcon, flwc, fiwc, & 1769 prfl(:, 1:klev), psfl(:, 1:klev), & 1770 pmflxr(:, 1:klev), pmflxs(:, 1:klev), & 1771 mr_ozone, cldtau, cldemi) 1760 CALL ini_COSP(ref_liq_cosp0,ref_ice_cosp0,pctsrf_cosp0,zu10m_cosp0,zv10m_cosp0, & 1761 zxtsol_cosp0,zx_rh_cosp0,cldfra_cosp0,rnebcon_cosp0,flwc_cosp0, & 1762 fiwc_cosp0,prfl_cosp0,psfl_cosp0,pmflxr_cosp0,pmflxs_cosp0, & 1763 mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) 1764 1765 CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, & 1766 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 1767 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 1768 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 1769 JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, & 1770 pctsrf_cosp0, & 1771 zu10m_cosp0,zv10m_cosp0,pphis, & 1772 pphi,paprs(:,1:klev),pplay,zxtsol_cosp0,t, & 1773 qx(:,:,ivap),zx_rh_cosp0,cldfra_cosp0,rnebcon_cosp0,flwc_cosp0,fiwc_cosp0, & 1774 prfl_cosp0(:,1:klev),psfl_cosp0(:,1:klev), & 1775 pmflxr_cosp0(:,1:klev),pmflxs_cosp0(:,1:klev), & 1776 mr_ozone_cosp0,cldtau_cosp0, cldemi_cosp0) 1772 1777 END IF 1773 1778 END IF -
LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90
r5172 r5173 1944 1944 1945 1945 IF (CPPKEY_COSPV2) THEN 1946 CALL ini_COSP(ref_liq_cosp0,ref_ice_cosp0,pctsrf_cosp0,zu10m_cosp0,zv10m_cosp0, & 1947 zxtsol_cosp0,zx_rh_cosp0,cldfra_cosp0,rnebcon_cosp0,flwc_cosp0, & 1948 fiwc_cosp0,prfl_cosp0,psfl_cosp0,pmflxr_cosp0,pmflxs_cosp0, & 1949 mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) 1950 1946 1951 CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, & 1947 1952 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 1948 1953 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 1949 1954 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 1950 JrNt ,ref_liq,ref_ice, &1951 pctsrf (:,is_ter)+pctsrf(:,is_lic), &1952 zu10m ,zv10m,pphis, &1953 p hicosp,paprs(:,1:klev),pplay,zxtsol,t_seri, &1954 qx(:,:,ivap),zx_rh ,cldfra,rnebcon,flwc,fiwc, &1955 prfl (:,1:klev),psfl(:,1:klev), &1956 pmflxr (:,1:klev),pmflxs(:,1:klev), &1957 mr_ozone ,cldtau, cldemi)1955 JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, & 1956 pctsrf_cosp0, & 1957 zu10m_cosp0,zv10m_cosp0,pphis, & 1958 pphi,paprs(:,1:klev),pplay,zxtsol_cosp0,t, & 1959 qx(:,:,ivap),zx_rh_cosp0,cldfra_cosp0,rnebcon_cosp0,flwc_cosp0,fiwc_cosp0, & 1960 prfl_cosp0(:,1:klev),psfl_cosp0(:,1:klev), & 1961 pmflxr_cosp0(:,1:klev),pmflxs_cosp0(:,1:klev), & 1962 mr_ozone_cosp0,cldtau_cosp0, cldemi_cosp0) 1958 1963 END IF 1959 1964 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.