Changeset 3630 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Feb 10, 2020, 11:04:40 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r3613 r3630 1065 1065 LOGICAL, SAVE :: flag_bc_internal_mixture 1066 1066 !$OMP THREADPRIVATE(flag_bc_internal_mixture) 1067 LOGICAL, SAVE :: new_aod1068 !$OMP THREADPRIVATE(new_aod)1069 1067 ! 1070 1068 !--STRAT AEROSOL … … 1249 1247 ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, aerosol_couple, & 1250 1248 chemistry_couple, & 1251 flag_aerosol, flag_aerosol_strat, flag_aer_feedback, new_aod,&1249 flag_aerosol, flag_aerosol_strat, flag_aer_feedback, & 1252 1250 flag_bc_internal_mixture, bl95_b0, bl95_b1, & 1253 1251 ! nv flags pour la convection et les … … 1575 1573 ok_hf,ok_instan,ok_LES,ok_ade,ok_aie, & 1576 1574 read_climoz, phys_out_filestations, & 1577 new_aod,aerosol_couple, &1575 aerosol_couple, & 1578 1576 flag_aerosol_strat, pdtphys, paprs, pphis, & 1579 1577 pplay, lmax_th, ptconv, ptconvth, ivap, & … … 1688 1686 CALL phys_output_write(itap, pdtphys, paprs, pphis, & 1689 1687 pplay, lmax_th, aerosol_couple, & 1690 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, new_aod,ok_sync,&1688 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,& 1691 1689 ptconv, read_climoz, clevSTD, & 1692 1690 ptconvth, d_u, d_t, qx, d_qx, zmasse, & … … 3771 3769 ! 3772 3770 CALL readaerosol_optic( & 3773 debut, new_aod,flag_aerosol, itap, jD_cur-jD_ref, &3771 debut, flag_aerosol, itap, jD_cur-jD_ref, & 3774 3772 pdtphys, pplay, paprs, t_seri, rhcl, presnivs, & 3775 3773 mass_solu_aero, mass_solu_aero_pi, & … … 3796 3794 !--climatologies or INCA aerosols 3797 3795 CALL readaerosol_optic_rrtm( debut, aerosol_couple, ok_alw, ok_volcan, & 3798 new_aod,flag_aerosol, flag_bc_internal_mixture, itap, jD_cur-jD_ref, &3796 flag_aerosol, flag_bc_internal_mixture, itap, jD_cur-jD_ref, & 3799 3797 pdtphys, pplay, paprs, t_seri, rhcl, presnivs, & 3800 3798 tr_seri, mass_solu_aero, mass_solu_aero_pi, & … … 3813 3811 ! 3814 3812 CALL readaerosol_optic( & 3815 debut, new_aod,flag_aerosol, itap, jD_cur-jD_ref, &3813 debut, flag_aerosol, itap, jD_cur-jD_ref, & 3816 3814 pdtphys, pplay, paprs, t_seri, rhcl, presnivs, & 3817 3815 mass_solu_aero, mass_solu_aero_pi, & … … 4102 4100 ! Rajoute par OB pour RRTM 4103 4101 tau_aero_lw_rrtm, & 4104 cldtaupirad, new_aod,&4102 cldtaupirad, & 4105 4103 ! zqsat, flwcrad, fiwcrad, & 4106 4104 zqsat, flwc, fiwc, & … … 4189 4187 ! Rajoute par OB pour RRTM 4190 4188 tau_aero_lw_rrtm, & 4191 cldtaupi, new_aod,&4189 cldtaupi, & 4192 4190 ! zqsat, flwcrad, fiwcrad, & 4193 4191 zqsat, flwc, fiwc, & … … 5072 5070 CALL phys_output_write_spl(itap, pdtphys, paprs, pphis, & 5073 5071 pplay, lmax_th, aerosol_couple, & 5074 ok_ade, ok_aie, ivap, new_aod,ok_sync, &5072 ok_ade, ok_aie, ivap, ok_sync, & 5075 5073 ptconv, read_climoz, clevSTD, & 5076 5074 ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse, & … … 5079 5077 CALL phys_output_write(itap, pdtphys, paprs, pphis, & 5080 5078 pplay, lmax_th, aerosol_couple, & 5081 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, new_aod,&5079 ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, & 5082 5080 ok_sync, ptconv, read_climoz, clevSTD, & 5083 5081 ptconvth, d_u, d_t, qx, d_qx, zmasse, &
Note: See TracChangeset
for help on using the changeset viewer.