Skip to content

Commit

Permalink
whitespace
Browse files Browse the repository at this point in the history
  • Loading branch information
rem1776 authored and rem1776 committed Nov 29, 2023
1 parent 3a9997b commit 6f2f390
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions diag_manager/include/fms_diag_reduction_methods.inc
Original file line number Diff line number Diff line change
Expand Up @@ -308,17 +308,17 @@ subroutine SUM_UPDATE_DONE_(out_buffer_data, weight_sum, reduction_method, missi
real(FMS_TRM_KIND_), intent(in) :: missing_val !< missing value for masked elements
logical, intent(in) :: has_mask !< indicates if mask is used so missing values can be skipped from avg'ing
!! TODO replace conditional in the `where` with passed in and ajusted mask from the original call
!logical, optional, intent(in) :: mask(:,:,:,:) !< logical mask from accept data call, if using one.
!logical :: has_mask !< whether or not mask is present
!logical, optional, intent(in) :: mask(:,:,:,:) !< logical mask from accept data call, if using one.
!logical :: has_mask !< whether or not mask is present

if ( has_mask ) then
where(out_buffer_data(:,:,:,:,1) .ne. missing_val)
out_buffer_data(:,:,:,:,1) = out_buffer_data(:,:,:,:,1) &
/ weight_sum
/ weight_sum
endwhere
else !not mask variant
out_buffer_data(:,:,:,:,1) = out_buffer_data(:,:,:,:,1) &
/ weight_sum
/ weight_sum
endif

end subroutine
Expand Down

0 comments on commit 6f2f390

Please sign in to comment.