Changeset 2530 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

May 31, 2016, 1:34:05 PM (8 years ago)

Author:

oboucher

Message:

Changing flag_aerosol_strat from logical (y/n) to
an integer (0/1/2) for CMIP6 needs

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -302 +302 @@
     REAL, DIMENSION(klon,klev,nqtot) :: qx, d_qx
     REAL, DIMENSION(klon, klev) :: zmasse
-    LOGICAL :: flag_aerosol_strat
+    INTEGER :: flag_aerosol_strat
     INTEGER :: flag_aerosol 
     LOGICAL :: ok_cdnc
@@ -943 +943 @@
              !--STRAT AER
           ENDIF
-          IF (flag_aerosol.GT.0.OR.flag_aerosol_strat) THEN
+          IF (flag_aerosol.GT.0.OR.flag_aerosol_strat.GT.0) THEN
 !             DO naero = 1, naero_spc
 !--correction mini bug OB
@@ -951 +951 @@
              END DO
           ENDIF
-          IF (flag_aerosol_strat) THEN
+          IF (flag_aerosol_strat.GT.0) THEN
              CALL histwrite_phy(o_tausumaero_lw, &
                   tausum_aero(:,6,id_STRAT_phy) )