Skip to content

Commit

Permalink
Merge PR #263 (Restrict volcano clim prints to root thread)
Browse files Browse the repository at this point in the history
This merge brings PR #263 (Restrict volcano climatology prints to
root thread, by @lizziel) into the HEMCO "no-diff-to-benchmark"
development stream.

This PR was added for running HEMCO in the GEOS ESM, in order to
reduce the amount of printout to the root thread.

Signed-off-by: Bob Yantosca <[email protected]>
  • Loading branch information
yantosca committed Mar 13, 2024
2 parents e6feaec + 1115ce2 commit 22de25e
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 3 deletions.
3 changes: 3 additions & 0 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,9 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
### Changed
- Now allow up to 10 nested brackets (`((( )))`) in the `HEMCO_Config.rc` file

### Fixed
- Limit volcano climatology file read message to root core

## [3.8.0] - 2024-02-07
### Changed
- Updated TOMAS_Jeagle sea salt extension
Expand Down
8 changes: 5 additions & 3 deletions src/Extensions/hcox_volcano_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -651,9 +651,11 @@ SUBROUTINE ReadVolcTable( HcoState, ExtState, Inst, RC )
INQUIRE( FILE=TRIM( ThisFile ), EXIST=FileExists )

! Write message to stdout and HEMCO log
MSG = 'Attempting to read volcano climatology file'
WRITE( 6, 300 ) TRIM( MSG )
CALL HCO_MSG( HcoState%Config%Err, MSG )
IF ( Hcostate%amIRoot ) THEN
MSG = 'Attempting to read volcano climatology file'
WRITE( 6, 300 ) TRIM( MSG )
CALL HCO_MSG( HcoState%Config%Err, MSG )
ENDIF

! Create a display string based on whether or not the file is found
IF ( FileExists ) THEN
Expand Down

0 comments on commit 22de25e

Please sign in to comment.