Skip to content

Commit

Permalink
Fix for the gcc internal compiler error, add minor documentation
Browse files Browse the repository at this point in the history
  • Loading branch information
uramirez8707 committed Feb 7, 2024
1 parent de2b68f commit efa525b
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions diag_manager/fms_diag_axis_object.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1085,10 +1085,10 @@ subroutine define_new_subaxis_index(parent_axis, subRegion, diag_axis, naxis, is

if (.not. write_on_this_pe) return

select type(corners=> subRegion%corners(:,is_x_or_y))
select type(corners=> subRegion%corners)
type is (integer(kind=i4_kind))
global_idx(1) = minval(corners)
global_idx(2) = maxval(corners)
global_idx(1) = minval(corners(:,is_x_or_y))
global_idx(2) = maxval(corners(:,is_x_or_y))
end select

!< If it made it to this point, the current PE is in the subRegion!
Expand Down Expand Up @@ -1435,12 +1435,12 @@ subroutine create_new_z_subaxis(zbounds, var_axis_ids, diag_axis, naxis, file_ax

end subroutine

!> @brief Determine if the parent_axis is the parent of axis_id
!! @return .True. if the parent_axis is the parent of axis_id
!> @brief Determine if the diag_axis(parent_axis_id) is the parent of diag_axis(axis_id)
!! @return .True. if diag_axis(parent_axis_id) is the parent of diag_axis(axis_id)
function is_parent_axis(axis_id, parent_axis_id, diag_axis) &
result(rslt)
integer, intent(in) :: axis_id
integer, intent(in) :: parent_axis_id
integer, intent(in) :: axis_id !< Axis id to check
integer, intent(in) :: parent_axis_id !< Axis id of the parent to check
class(fmsDiagAxisContainer_type), target, intent(in) :: diag_axis(:) !< Array of diag_axis objects

logical :: rslt
Expand Down

0 comments on commit efa525b

Please sign in to comment.