Changeset 3274 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Mar 15, 2018, 8:07:03 PM (6 years ago)

Author:

oboucher

Message:

Implementing the MACspV2 aerosol plume climatology
which can be called by setting flag_aerosol=7
and aerosols1980.nc pointing to aerosols.nat.nc.
Also requires the MACv2.0-SP_v1.nc file.

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -3582 +3582 @@
                         tausum_aero, drytausum_aero, tau3d_aero)
 #endif
+
+                   IF (flag_aerosol .EQ. 7) THEN
+                      CALL MACv2SP(pphis,pplay,paprs,longitude_deg,latitude_deg,  &
+                                   tau_aero_sw_rrtm,piz_aero_sw_rrtm,cg_aero_sw_rrtm)
+                   ENDIF
+
                    !
                 ELSE IF (NSW.EQ.2) THEN 
@@ -3706 +3712 @@
 #endif
           ENDIF
-          CALL newmicro (ok_cdnc, bl95_b0, bl95_b1, &
+          CALL newmicro (flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, &
                paprs, pplay, t_seri, cldliq, cldfra, &
                cldtau, cldemi, cldh, cldl, cldm, cldt, cldq, &