Index: LMDZ6/trunk/libf/phylmd/StratAer/strataer_emiss_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/StratAer/strataer_emiss_mod.F90	(revision 4765)
+++ LMDZ6/trunk/libf/phylmd/StratAer/strataer_emiss_mod.F90	(revision 4766)
@@ -153,54 +153,56 @@
     !============= Print params =============
     IF (is_master) THEN
-       IF (flag_emit == 1 .OR. flag_emit == 4) THEN
-          WRITE(lunout,*) 'IN STRATAER nErupt: ',nErupt
-          WRITE(lunout,*) 'IN STRATAER injdur: ',injdur
-          WRITE(lunout,*) 'IN STRATAER nAerErupt: ',nAerErupt
-
-          WRITE(lunout,*) 'IN STRATAER : year_emit_vol',year_emit_vol
-          WRITE(lunout,*) 'IN STRATAER : mth_emit_vol',mth_emit_vol
-          WRITE(lunout,*) 'IN STRATAER : day_emit_vol',day_emit_vol
-          WRITE(lunout,*) 'IN STRATAER : altemiss_vol',altemiss_vol
-          WRITE(lunout,*) 'IN STRATAER : sigma_alt_vol',sigma_alt_vol
-          WRITE(lunout,*) 'IN STRATAER : xlat_min_vol',xlat_min_vol
-          WRITE(lunout,*) 'IN STRATAER : xlat_max_vol',xlat_max_vol
-          WRITE(lunout,*) 'IN STRATAER : xlon_min_vol',xlon_min_vol
-          WRITE(lunout,*) 'IN STRATAER : xlon_max_vol',xlon_max_vol
-          IF (flag_emit==1) THEN
-             WRITE(lunout,*) 'IN STRATAEREMISS : m_sulf_emiss_vol',m_sulf_emiss_vol
-             WRITE(lunout,*) 'IN STRATAER : m_aer_emiss_vol',m_aer_emiss_vol
-             IF (ok_qemiss) then
-                WRITE(lunout,*) 'IN STRATAEREMISS : m_H2O_emiss_vol',m_H2O_emiss_vol
+       IF (nErupt > 0) then
+          if (flag_emit == 1 .OR. flag_emit == 4) THEN
+             WRITE(lunout,*) 'IN STRATAER nErupt: ',nErupt
+             WRITE(lunout,*) 'IN STRATAER injdur: ',injdur
+             WRITE(lunout,*) 'IN STRATAER nAerErupt: ',nAerErupt
+
+             WRITE(lunout,*) 'IN STRATAER : year_emit_vol',year_emit_vol
+             WRITE(lunout,*) 'IN STRATAER : mth_emit_vol',mth_emit_vol
+             WRITE(lunout,*) 'IN STRATAER : day_emit_vol',day_emit_vol
+             WRITE(lunout,*) 'IN STRATAER : altemiss_vol',altemiss_vol
+             WRITE(lunout,*) 'IN STRATAER : sigma_alt_vol',sigma_alt_vol
+             WRITE(lunout,*) 'IN STRATAER : xlat_min_vol',xlat_min_vol
+             WRITE(lunout,*) 'IN STRATAER : xlat_max_vol',xlat_max_vol
+             WRITE(lunout,*) 'IN STRATAER : xlon_min_vol',xlon_min_vol
+             WRITE(lunout,*) 'IN STRATAER : xlon_max_vol',xlon_max_vol
+             IF (flag_emit==1) THEN
+                WRITE(lunout,*) 'IN STRATAEREMISS : m_sulf_emiss_vol',m_sulf_emiss_vol
+                WRITE(lunout,*) 'IN STRATAER : m_aer_emiss_vol',m_aer_emiss_vol
+                IF (ok_qemiss) then
+                   WRITE(lunout,*) 'IN STRATAEREMISS : m_H2O_emiss_vol',m_H2O_emiss_vol
+                ENDIF
              ENDIF
-          ENDIF
-       ELSEIF (flag_emit == 2) THEN
-          WRITE(lunout,*) 'IN STRATAER : m_aer_emiss_sai',m_aer_emiss_sai
-          WRITE(lunout,*) 'IN STRATAER : altemiss_sai',altemiss_sai
-          WRITE(lunout,*) 'IN STRATAER : sigma_alt_sai',sigma_alt_sai
-          WRITE(lunout,*) 'IN STRATAER : xlat_sai',xlat_sai
-          WRITE(lunout,*) 'IN STRATAER : xlon_sai',xlon_sai
-       ELSEIF (flag_emit == 3) THEN
-          WRITE(lunout,*) 'IN STRATAER : m_aer_emiss_sai',m_aer_emiss_sai
-          WRITE(lunout,*) 'IN STRATAER : altemiss_sai',altemiss_sai
-          WRITE(lunout,*) 'IN STRATAER : sigma_alt_sai',sigma_alt_sai
-          WRITE(lunout,*) 'IN STRATAER : year_emit_sai start/end',year_emit_sai_start,year_emit_sai_end
-          WRITE(lunout,*) 'IN STRATAER : mth_emit_sai start/end',mth_emit_sai_start,mth_emit_sai_end
-          WRITE(lunout,*) 'IN STRATAER : day_emit_sai start/end',day_emit_sai_start,day_emit_sai_end
-          WRITE(lunout,*) 'IN STRATAER : xlat_min_sai',xlat_min_sai
-          WRITE(lunout,*) 'IN STRATAER : xlat_max_sai',xlat_max_sai
-          WRITE(lunout,*) 'IN STRATAER : xlon_sai',xlon_sai
-       ENDIF
-       IF(flag_emit == 4) THEN
-          WRITE(lunout,*) 'IN STRATAER : nSpeciesErupt: ',nSpeciesErupt
-          WRITE(lunout,*) 'IN STRATAER : id_species = ',id_species
-          WRITE(lunout,*) 'IN STRATAER : id_HCl = ',id_HCl
-          WRITE(lunout,*) 'IN STRATAER : id_HBr = ',id_HBr
-          WRITE(lunout,*) 'IN STRATAER : id_NOx = ',id_NOx
-          WRITE(lunout,*) 'IN STRATAER : id_H2O = ',id_H2O
-          WRITE(lunout,*) 'IN STRATAER : m_Chlore_emiss_vol = ',m_Chlore_emiss_vol
-          WRITE(lunout,*) 'IN STRATAER : m_Brome_emiss_vol = ',m_Brome_emiss_vol
-          WRITE(lunout,*) 'IN STRATAER : m_NOx_emiss_vol = ',m_NOx_emiss_vol
-          WRITE(lunout,*) 'IN STRATAER : m_H2O_emiss_vol = ',m_H2O_emiss_vol
-       ENDIF
+          ELSEIF (flag_emit == 2) THEN
+             WRITE(lunout,*) 'IN STRATAER : m_aer_emiss_sai',m_aer_emiss_sai
+             WRITE(lunout,*) 'IN STRATAER : altemiss_sai',altemiss_sai
+             WRITE(lunout,*) 'IN STRATAER : sigma_alt_sai',sigma_alt_sai
+             WRITE(lunout,*) 'IN STRATAER : xlat_sai',xlat_sai
+             WRITE(lunout,*) 'IN STRATAER : xlon_sai',xlon_sai
+          ELSEIF (flag_emit == 3) THEN
+             WRITE(lunout,*) 'IN STRATAER : m_aer_emiss_sai',m_aer_emiss_sai
+             WRITE(lunout,*) 'IN STRATAER : altemiss_sai',altemiss_sai
+             WRITE(lunout,*) 'IN STRATAER : sigma_alt_sai',sigma_alt_sai
+             WRITE(lunout,*) 'IN STRATAER : year_emit_sai start/end',year_emit_sai_start,year_emit_sai_end
+             WRITE(lunout,*) 'IN STRATAER : mth_emit_sai start/end',mth_emit_sai_start,mth_emit_sai_end
+             WRITE(lunout,*) 'IN STRATAER : day_emit_sai start/end',day_emit_sai_start,day_emit_sai_end
+             WRITE(lunout,*) 'IN STRATAER : xlat_min_sai',xlat_min_sai
+             WRITE(lunout,*) 'IN STRATAER : xlat_max_sai',xlat_max_sai
+             WRITE(lunout,*) 'IN STRATAER : xlon_sai',xlon_sai
+          ENDIF
+          IF(flag_emit == 4) THEN
+             WRITE(lunout,*) 'IN STRATAER : nSpeciesErupt: ',nSpeciesErupt
+             WRITE(lunout,*) 'IN STRATAER : id_species = ',id_species
+             WRITE(lunout,*) 'IN STRATAER : id_HCl = ',id_HCl
+             WRITE(lunout,*) 'IN STRATAER : id_HBr = ',id_HBr
+             WRITE(lunout,*) 'IN STRATAER : id_NOx = ',id_NOx
+             WRITE(lunout,*) 'IN STRATAER : id_H2O = ',id_H2O
+             WRITE(lunout,*) 'IN STRATAER : m_Chlore_emiss_vol = ',m_Chlore_emiss_vol
+             WRITE(lunout,*) 'IN STRATAER : m_Brome_emiss_vol = ',m_Brome_emiss_vol
+             WRITE(lunout,*) 'IN STRATAER : m_NOx_emiss_vol = ',m_NOx_emiss_vol
+             WRITE(lunout,*) 'IN STRATAER : m_H2O_emiss_vol = ',m_H2O_emiss_vol
+          ENDIF
+       endif
     ENDIF ! if master