Changeset 3083 for LMDZ6/trunk/libf

Timestamp:

Nov 21, 2017, 5:37:36 PM (7 years ago)

Author:

oboucher

Message:

Nobody is perfect... correcting previous commit

File:

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

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

@@ -760 +760 @@
   ENDIF
 
-! copy clear-sky clean (no aerosol) case
-  PFSCCUP(:,:) =   ZFSUP0_AERO(:,:,5)
-  PFSCCDN(:,:) =   ZFSDN0_AERO(:,:,5)
-
 ! The following allows to compute the forcing diagostics without
 ! letting the aerosol forcing act on the meteorology
@@ -780 +776 @@
     PFLUC(:,2,:) =  LWDN0_AERO(:,:,5) 
 
+ENDIF
+
+IF (aerosolfree_diag) THEN
+! copy clear-sky clean (no aerosol) case
+  PFSCCUP(:,:) =   ZFSUP0_AERO(:,:,5)
+  PFSCCDN(:,:) =   ZFSDN0_AERO(:,:,5)
 ENDIF