Changeset 2753

Timestamp:

Jan 8, 2017, 5:56:40 PM (7 years ago)

Author:

oboucher

Message:

Adding aerosol properties to Dust version

Location:

LMDZ5/trunk/libf/phylmd

Files:

• Dust/splaeropt_5wv_rrtm.F90 (added)
• Dust/splaeropt_6bands_rrtm.F90 (added)
• Dust/splaeropt_lw_rrtm.F90 (added)
• Dust/splaerosol_optic_rrtm.F90 (added)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -3315 +3315 @@
                    !--new aerosol properties SW and LW
                    !
+#ifdef CPP_Dust
+                   !--SPL aerosol model
+                   CALL splaerosol_optic_rrtm( ok_alw, pplay, paprs, t_seri, rhcl, &
+                        tr_seri, mass_solu_aero, mass_solu_aero_pi,  &
+                        tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm,  &
+                        tausum_aero, tau3d_aero)
+#else
+                   !--climatologies or INCA aerosols
                    CALL readaerosol_optic_rrtm( debut, aerosol_couple, ok_alw, &
                         new_aod, flag_aerosol, flag_bc_internal_mixture, itap, jD_cur-jD_ref, &
@@ -3321 +3329 @@
                         tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm,  &
                         tausum_aero, tau3d_aero)
+#endif
                    !
                 ELSE IF (NSW.EQ.2) THEN