When retrieving harvestable population size do not include calves as …

…they are not harvestable.
ApexRMS · Jan 5, 2024 · f174c1e · f174c1e
1 parent e69bd7a
commit f174c1e
Showing 1 changed file with 10 additions and 8 deletions.
diff --git a/src/Runtime/DGSimTransformer.Utilities.vb b/src/Runtime/DGSimTransformer.Utilities.vb
@@ -116,7 +116,7 @@ Partial Class DGSimTransformer
 
     End Function
 
-    Private Function GetPopulationSize(
+    Private Function GetHarvestablePopulationSize(
         ByVal stratum As Stratum,
         ByVal ageClassId As Nullable(Of Integer),
         ByVal sex As Nullable(Of Sex)) As Double
@@ -129,16 +129,18 @@ Partial Class DGSimTransformer
 
             For Each cohort As AgeSexCohort In stratum.AgeSexCohorts
 
-                Dim id As Integer = GetAgeClassIdFromAge(cohort.Age)
+                If (cohort.Age > 0) Then
 
-                If ((Not ageClassId.HasValue) OrElse (id = ageClassId)) Then
+                    Dim id As Integer = GetAgeClassIdFromAge(cohort.Age)
 
-                    If ((Not sex.HasValue) OrElse (cohort.Sex = sex.Value)) Then
-                        PopSize += cohort.NumIndividuals
-                    End If
+                    If ((Not ageClassId.HasValue) OrElse (id = ageClassId)) Then
 
-                End If
+                        If ((Not sex.HasValue) OrElse (cohort.Sex = sex.Value)) Then
+                            PopSize += cohort.NumIndividuals
+                        End If
 
+                    End If
+                End If
             Next
 
             Return PopSize
@@ -208,7 +210,7 @@ Partial Class DGSimTransformer
 
                     If ((Not ah.Sex.HasValue) OrElse (cohort.Sex = ah.Sex.Value)) Then
 
-                        Dim pSize As Double = GetPopulationSize(stratum, ah.AgeClassId, ah.Sex)
+                        Dim pSize As Double = GetHarvestablePopulationSize(stratum, ah.AgeClassId, ah.Sex)
                         Dim InputHarvestAmount As Double = 0.0
 
                         If (pSize > 0.0) Then