diff --git a/CHANGELOG.md b/CHANGELOG.md index 4a348601..7439861b 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -23,11 +23,13 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Fixed - Fixed excessive prints when using MPI +- Fixed F77 formating in hcox_dustdead_mod.F ### Removed - Removed warnings count in HcoState%Config%Err - Removed RC argument in HCO_WARNING - Deleted subroutine HCO_IsVerb +- Remove print of HcoDiagn%MassScal since never set in the model ## [3.10.0] - 2024-11-07 ### Added diff --git a/src/Core/hco_diagn_mod.F90 b/src/Core/hco_diagn_mod.F90 index 29a46566..252285b0 100644 --- a/src/Core/hco_diagn_mod.F90 +++ b/src/Core/hco_diagn_mod.F90 @@ -1109,8 +1109,6 @@ SUBROUTINE Diagn_Create( HcoState, cName, & IF ( HcoState%Config%doVerbose ) THEN WRITE(MSG, *) ' ThisDiagn%AreaScal = ', ThisDiagn%AreaScal CALL HCO_MSG( msg, LUN=HcoState%Config%hcoLogLUN ) - WRITE(MSG, *) ' ThisDiagn%MassScal = ', ThisDiagn%MassScal - CALL HCO_MSG( msg, LUN=HcoState%Config%hcoLogLUN ) ENDIF !---------------------------------------------------------------- ! Determine the normalization factors applied to the diagnostics diff --git a/src/Extensions/hcox_dustdead_mod.F b/src/Extensions/hcox_dustdead_mod.F index 9712c353..0c1dcdfe 100644 --- a/src/Extensions/hcox_dustdead_mod.F +++ b/src/Extensions/hcox_dustdead_mod.F @@ -5864,7 +5864,9 @@ SUBROUTINE ReadTuningFactor(HcoState, TuningTable, FCT, RC ) FNDLABEL = TRIM(CSLABEL) IF ( .NOT. HcoState%Grid%AREA_M2%Alloc ) THEN MSG = 'Warning: AREA_M2 not found, will use default number' - IF ( HcoState%Config%doVerbose ) CALL HCO_WARNING( MSG, THISLOC=LOC ) + IF ( HcoState%Config%doVerbose ) THEN + CALL HCO_WARNING( MSG, THISLOC=LOC ) + ENDIF ELSE AM2 = SUM(HcoState%Grid%AREA_M2%Val)/(HcoState%NX*HcoState%NY) RES = SQRT(AM2)