diff --git a/src/Core/hco_config_mod.F90 b/src/Core/hco_config_mod.F90 index 42db1a15..91d4d503 100644 --- a/src/Core/hco_config_mod.F90 +++ b/src/Core/hco_config_mod.F90 @@ -2177,7 +2177,7 @@ SUBROUTINE ReadSettings( HcoConfig, IU_HCO, EOF, RC ) ELSE msg = NEW_LINE( 'A' ) // 'HEMCO verbose output is OFF' ENDIF - CALL HCO_Msg( msg, verb=.TRUE. ) + IF ( HcoConfig%amIRoot ) CALL HCO_Msg( msg, verb=.TRUE. ) ! Logfile to write into CALL GetExtOpt( HcoConfig, CoreNr, 'Logfile', & diff --git a/src/Extensions/hcox_volcano_mod.F90 b/src/Extensions/hcox_volcano_mod.F90 index 620f5d9c..2c6f8b59 100644 --- a/src/Extensions/hcox_volcano_mod.F90 +++ b/src/Extensions/hcox_volcano_mod.F90 @@ -355,18 +355,21 @@ SUBROUTINE HCOX_Volcano_Init( HcoState, ExtName,ExtState, RC ) ! Extension Nr. ExtNr = GetExtNr( HcoState%Config%ExtList, TRIM(ExtName) ) - IF ( ExtNr > 0 ) THEN - ! Write the name of the extension regardless of the verbose setting - msg = 'Using HEMCO extension: Volcano (volcanic SO2 emissions)' - IF ( HCO_IsVerb( HcoState%Config%Err ) ) THEN - CALL HCO_Msg( HcoState%Config%Err, msg, sep1='-' ) ! with separator + ! Print to log + IF ( HcoState%amIRoot ) THEN + IF ( ExtNr > 0 ) THEN + ! Write the name of the extension regardless of the verbose setting + msg = 'Using HEMCO extension: Volcano (volcanic SO2 emissions)' + IF ( HCO_IsVerb( HcoState%Config%Err ) ) THEN + CALL HCO_Msg( HcoState%Config%Err, msg, sep1='-' ) ! with separator + ELSE + CALL HCO_Msg( msg, verb=.TRUE. ) ! w/o separator + ENDIF ELSE - CALL HCO_Msg( msg, verb=.TRUE. ) ! w/o separator + MSG = 'The Volcano extension is turned off.' + CALL HCO_MSG( HcoState%Config%Err, MSG ) + RETURN ENDIF - ELSE - MSG = 'The Volcano extension is turned off.' - CALL HCO_MSG( HcoState%Config%Err, MSG ) - RETURN ENDIF ! Enter