Merge pull request #36 from GEOS-ESM/bugfix/wjamieson/gocart_rc_errors

GOCART errors
GEOS-ESM · Mar 8, 2021 · 9502a67 · 9502a67
2 parents 92971a7 + bcb5119
commit 9502a67
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/ESMF/GOCART2G_GridComp/SU2G_GridComp/SU2G_GridCompMod.F90 b/ESMF/GOCART2G_GridComp/SU2G_GridComp/SU2G_GridCompMod.F90
@@ -1084,6 +1084,12 @@ subroutine Run2 (GC, import, export, clock, RC)
 !   SU Settling
 !   -----------
     do n = 1, self%nbins
+       ! if radius == 0 then we're dealing with a gas which has no settling losses
+       if (self%radius(n) == 0.0) then
+          if (associated(SUSD)) SUSD(:,:,n) = 0.0
+          cycle
+       end if
+
        call MAPL_VarSpecGet(InternalSpec(n), SHORT_NAME=short_name, __RC__)
        call MAPL_GetPointer(internal, NAME=short_name, ptr=int_ptr, __RC__)
 

diff --git a/Process_Library/GOCART2G_Process.F90 b/Process_Library/GOCART2G_Process.F90
@@ -7086,6 +7086,8 @@ subroutine RPMARES( SO4,  GNO3,  GNH3, RH,   TEMP, &
 !-------------------------------------------------------------------------
 !  Begin...
 
+      rc = __SUCCESS__
+
       ! For extremely low relative humidity ( less than 1% ) set the 
       ! water content to a minimum and skip the calculation.
       IF ( RH .LT. 0.01 ) THEN