Changeset 3630 for LMDZ6/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90
- Timestamp:
- Feb 10, 2020, 11:04:40 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90
r3480 r3630 2 2 ! 3 3 SUBROUTINE readaerosol_optic_rrtm(debut, aerosol_couple, ok_alw, ok_volcan, & 4 new_aod,flag_aerosol, flag_bc_internal_mixture, itap, rjourvrai, &4 flag_aerosol, flag_bc_internal_mixture, itap, rjourvrai, & 5 5 pdtphys, pplay, paprs, t_seri, rhcl, presnivs, & 6 6 tr_seri, mass_solu_aero, mass_solu_aero_pi, & … … 33 33 LOGICAL, INTENT(IN) :: ok_alw 34 34 LOGICAL, INTENT(IN) :: ok_volcan 35 LOGICAL, INTENT(IN) :: new_aod36 35 INTEGER, INTENT(IN) :: flag_aerosol 37 36 LOGICAL, INTENT(IN) :: flag_bc_internal_mixture
Note: See TracChangeset
for help on using the changeset viewer.