diff --git a/CHANGELOG.md b/CHANGELOG.md index d8b6b69fea84..e1d332b26d70 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -22,6 +22,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Fixed - Fixed the alarms in the couplers to account if they are called before ESMF_ClockAdvance is called +- Reverted generic/VarSpec.F90 to hash b02e8ff (fix for #1410) ## [2.18.0] - 2022-02-23 diff --git a/generic/VarSpec.F90 b/generic/VarSpec.F90 index 828797eb9075..080cce7fff9f 100644 --- a/generic/VarSpec.F90 +++ b/generic/VarSpec.F90 @@ -1363,8 +1363,8 @@ function MAPL_VarSpecEQ(s1, s2) S2%SPECPtr%ACCMLT_INTERVAL /= 0) then if (S1%SPECPtr%ACCMLT_INTERVAL /= S2%SPECPtr%ACCMLT_INTERVAL ) RETURN + if (S1%SPECPtr%COUPLE_INTERVAL /= S2%SPECPtr%COUPLE_INTERVAL ) RETURN end if - if (S1%SPECPtr%COUPLE_INTERVAL /= S2%SPECPtr%COUPLE_INTERVAL ) RETURN MAPL_VarSpecEQ = .TRUE. RETURN