Changeset 4527
- Timestamp:
- May 9, 2023, 11:20:58 AM (21 months ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4523 r4527 1155 1155 ! Declarations pour Simulateur COSP 1156 1156 !============================================================ 1157 ! AI 10-22 1158 #ifdef CPP_COSP 1159 include "ini_COSP.h" 1160 #endif 1157 1161 real :: mr_ozone(klon,klev), phicosp(klon,klev) 1158 1162 … … 1694 1698 IF (.NOT. create_etat0_limit) CALL init_readaerosolstrato(flag_aerosol_strat) !! initialise aero strato from file for XIOS interpolation (unstructured_grid) 1695 1699 1700 if (ok_cosp) then 1696 1701 #ifdef CPP_COSP 1697 IF (ok_cosp) THEN1698 ! DO k = 1, klev 1699 ! DO i = 1, klon 1700 ! phicosp(i,k) = pphi(i,k) + pphis(i) 1701 ! ENDDO 1702 ! ENDDO 1702 ! A.I : Initialisations pour le 1er passage a Cosp 1703 CALL ini_COSP(ref_liq_cosp0,ref_ice_cosp0,pctsrf_cosp0,zu10m_cosp0,zv10m_cosp0, & 1704 zxtsol_cosp0,zx_rh_cosp0,cldfra_cosp0,rnebcon_cosp0,flwc_cosp0, & 1705 fiwc_cosp0,prfl_cosp0,psfl_cosp0,pmflxr_cosp0,pmflxs_cosp0, & 1706 mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) 1707 1703 1708 CALL phys_cosp(itap,phys_tstep,freq_cosp, & 1704 1709 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & … … 1713 1718 pmflxr(:,1:klev),pmflxs(:,1:klev), & 1714 1719 mr_ozone,cldtau, cldemi) 1715 ENDIF1716 1720 #endif 1717 1721 1718 1722 #ifdef CPP_COSP2 1719 IF (ok_cosp) THEN1720 ! DO k = 1, klev1721 ! DO i = 1, klon1722 ! phicosp(i,k) = pphi(i,k) + pphis(i)1723 ! ENDDO1724 ! ENDDO1725 1723 CALL phys_cosp2(itap,phys_tstep,freq_cosp, & 1726 1724 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & … … 1735 1733 pmflxr(:,1:klev),pmflxs(:,1:klev), & 1736 1734 mr_ozone,cldtau, cldemi) 1737 ENDIF1738 1735 #endif 1739 1736 1740 1737 #ifdef CPP_COSPV2 1741 IF (ok_cosp) THEN1742 DO k = 1, klev1743 DO i = 1, klon1744 phicosp(i,k) = pphi(i,k) + pphis(i)1745 ENDDO1746 ENDDO1747 1738 CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, & 1748 1739 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & … … 1757 1748 pmflxr(:,1:klev),pmflxs(:,1:klev), & 1758 1749 mr_ozone,cldtau, cldemi) 1759 ENDIF1760 1750 #endif 1751 ENDIF 1761 1752 1762 1753 !
Note: See TracChangeset
for help on using the changeset viewer.