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

Timestamp:

Sep 23, 2019, 3:42:56 PM (5 years ago)

Author:

acozic

Message:

initialisation de tausum_aero(id_STRAT_phy) dans le cas ou flag_aerosol_strat = 0

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -3879 +3879 @@
 #endif
           ENDIF
+       ELSE
+          tausum_aero(:,:,id_STRAT_phy) = 0. 
        ENDIF
 !