fix: Do not output attributes associated with target dataset if no su…

…ch dataset exists In the "meanFunction1D" analysis class we should not set these attributes in the output if no target dataset exists, as setting them causes analysis scripts to expect to find a target dataset.
galacticusorg · Jul 28, 2021 · fa11391 · fa11391
1 parent c62cbe5
commit fa11391
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/source/galacticus.output.analyses.mean_function_1d.F90 b/source/galacticus.output.analyses.mean_function_1d.F90
@@ -747,9 +747,11 @@ subroutine meanFunction1DFinalize(self)
     call    analysisGroup%writeAttribute(          self%   yAxisIsLog                     ,'yAxisIsLog'                                                                                                    )
     call    analysisGroup%writeAttribute(     char(self%propertyLabel)                    ,'xDataset'                                                                                                      )
     call    analysisGroup%writeAttribute(     char(self%    meanLabel)                    ,'yDataset'                                                                                                      )
-    call    analysisGroup%writeAttribute(     char(self%    meanLabel)//"Target"          ,'yDatasetTarget'                                                                                                )
     call    analysisGroup%writeAttribute(     char(self%    meanLabel)//"Covariance"      ,'yCovariance'                                                                                                   )
-    call    analysisGroup%writeAttribute(     char(self%    meanLabel)//"CovarianceTarget",'yCovarianceTarget'                                                                                             )
+    if (allocated(self%meanValueTarget)) then
+       call analysisGroup%writeAttribute(     char(self%    meanLabel)//"Target"          ,'yDatasetTarget'                                                                                                )
+       call analysisGroup%writeAttribute(     char(self%    meanLabel)//"CovarianceTarget",'yCovarianceTarget'                                                                                             )
+    end if
     ! Write computed datasets.
     call    analysisGroup%writeDataset  (          self%binCenter                         ,char(self%propertyLabel)                    ,char(self%propertyComment)                 ,datasetReturned=dataset)
     call    dataset      %writeAttribute(     char(self%propertyUnits    )                ,'units'                                                                                                         )