Changeset 3288 for LMDZ6/trunk/libf/phylmd/rrtm/aeropt_lw_rrtm.F90

Timestamp:

Mar 19, 2018, 9:58:31 PM (7 years ago)

Author:

oboucher

Message:

Adding flag_aerosol=7 case forgotten in previous commits.

File:

• LMDZ6/trunk/libf/phylmd/rrtm/aeropt_lw_rrtm.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/rrtm/aeropt_lw_rrtm.F90

@@ -46 +46 @@
   IF (ok_alw) THEN                                   !--aerosol LW effects
    !
-   IF (flag_aerosol.EQ.5.OR.flag_aerosol.EQ.6) THEN  !-Dust
+   IF (flag_aerosol.EQ.5.OR.flag_aerosol.EQ.6.OR.flag_aerosol.EQ.7) THEN  !-Dust
     !
     zdh(:,:)=pdel(:,:)/(RG*zrho(:,:))      ! m