Changeset 2530 for LMDZ5/trunk/libf/phylmd/phys_output_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_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -81 +81 @@
     INTEGER                               :: nlevSTD, radpas
     LOGICAL                               :: ok_mensuel, ok_journe, ok_hf, ok_instan
-    LOGICAL                               :: ok_LES,ok_ade,ok_aie,flag_aerosol_strat
+    LOGICAL                               :: ok_LES,ok_ade,ok_aie
+    INTEGER                               :: flag_aerosol_strat
     LOGICAL                               :: new_aod, aerosol_couple
     INTEGER, INTENT(IN)::  read_climoz ! read ozone climatology