Changeset 4872
- Timestamp:
- Mar 25, 2024, 3:53:03 PM (6 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4870 r4872 1197 1197 include "ini_COSP.h" 1198 1198 #endif 1199 #ifdef CPP_COSPV2 1200 include "ini_COSP.h" 1201 #endif 1199 1202 real :: mr_ozone(klon,klev), phicosp(klon,klev) 1200 1203 … … 1815 1818 1816 1819 #ifdef CPP_COSP2 1817 CALL phys_cosp2(itap,phys_tstep,freq_cosp, & 1820 CALL ini_COSP(ref_liq_cosp0,ref_ice_cosp0,pctsrf_cosp0,zu10m_cosp0,zv10m_cosp0, & 1821 zxtsol_cosp0,zx_rh_cosp0,cldfra_cosp0,rnebcon_cosp0,flwc_cosp0, & 1822 fiwc_cosp0,prfl_cosp0,psfl_cosp0,pmflxr_cosp0,pmflxs_cosp0, & 1823 mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) 1824 1825 CALL phys_cosp2(itap,phys_tstep,freq_cosp, & 1818 1826 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 1819 1827 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
Note: See TracChangeset
for help on using the changeset viewer.