Merge pull request #139 from GEOS-ESM/bugfix/wjiang/getAerosolSum

fix bug in getAerosolSum

CHANGELOG.md

@@ -14,6 +14,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Changed
 
+- Fix bug in getAerosolSum
 - more hard-coded name changes for Issue #93
 - Fixed bug in MieQuery.H, shape of not present variable is used
 - remove logic dinosaur "goto" 

ESMF/GOCART2G_GridComp/GOCART2G_GridCompMod.F90

@@ -2195,7 +2195,8 @@ subroutine getAerosolSum (aeroToken, state, aeroList, aeroOut, rc)
 !   Begin...
 
     endInd = len_trim(aeroToken)
-
+
+    aeroOut = 0.0
     do i = 1, size(aeroList)
        if (trim(aeroList(i)(1:endInd)) == trim(aeroToken)) then
           call ESMF_StateGet(state, trim(aeroList(i)), child_state, __RC__)
@@ -2204,8 +2205,8 @@ subroutine getAerosolSum (aeroToken, state, aeroList, aeroOut, rc)
                                  value=fld_name, __RC__)
           if (fld_name /= '') then
              call MAPL_GetPointer(child_state, ptr3d, trim(fld_name), __RC__)
+             aeroOut = aeroOut + ptr3d
           end if
-          aeroOut = aeroOut + ptr3d
        end if
     end do