Changeset 4693 for LMDZ6/trunk/libf/phylmdiso
- Timestamp:
- Sep 18, 2023, 7:24:45 PM (12 months ago)
- Location:
- LMDZ6/trunk/libf/phylmdiso
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r4691 r4693 76 76 USE vampir 77 77 USE write_field_phy 78 USE wxios, ONLY: g_ctx, wxios_set_context, using_xios 78 USE wxios, ONLY: g_ctx, wxios_set_context 79 USE lmdz_lscp, ONLY : lscp 79 80 USE lmdz_cloud_optics_prop, ONLY : cloud_optics_prop 80 USE lmdz_lscp, ONLY : lscp81 81 USE lmdz_lscp_old, ONLY : fisrtilp 82 82 USE lmdz_wake_ini, ONLY : wake_ini … … 89 89 USE lmdz_ratqs_main, ONLY : ratqs_main 90 90 USE lmdz_ratqs_ini, ONLY : ratqs_ini 91 USE lmdz_cloud_optics_prop_ini, ONLY : cloud_optics_prop_ini 91 92 USE phys_output_var_mod, ONLY : cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv 92 93 … … 396 397 #endif 397 398 ! 399 USE phys_local_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, & 400 reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, & 401 zfice, dNovrN, ptconv 402 398 403 399 404 IMPLICIT NONE … … 1926 1931 RCPD, RLSTT, RLVTT, RLMLT, & 1927 1932 RVTMP2, RTT,RD,RG) 1928 1933 CALL cloud_optics_prop_ini(klon, prt_level, lunout, flag_aerosol, & 1934 & ok_cdnc, bl95_b0, & 1935 & bl95_b1, latitude_deg) 1929 1936 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1930 1937 … … 5583 5590 #endif 5584 5591 ENDIF 5585 CALL cloud_optics_prop( flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, &5592 CALL cloud_optics_prop(klon, klev, & 5586 5593 paprs, pplay, t_seri, radocond, picefra, cldfra, & 5587 5594 cldtau, cldemi, cldh, cldl, cldm, cldt, cldq, & 5588 5595 flwp, fiwp, flwc, fiwc, & 5589 5596 mass_solu_aero, mass_solu_aero_pi, & 5590 cldtaupi, latitude_deg, distcltop, temp_cltop, re, fl, ref_liq, ref_ice, & 5591 ref_liq_pi, ref_ice_pi) 5597 cldtaupi, distcltop, temp_cltop, re, fl, ref_liq, ref_ice, & 5598 ref_liq_pi, ref_ice_pi, scdnc, cldncl, reffclwtop, lcc, reffclws, & 5599 reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, & 5600 zfice, dNovrN, ptconv, rnebcon, clwcon) 5592 5601 ELSE 5593 5602 CALL nuage (paprs, pplay, &
Note: See TracChangeset
for help on using the changeset viewer.