Skip to content

Commit

Permalink
Removed unnecessary returns
Browse files Browse the repository at this point in the history
  • Loading branch information
pchakraborty committed Nov 15, 2024
1 parent 38f2d09 commit 32b9fa3
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions generic3g/vertical/ModelVerticalGrid.F90
Original file line number Diff line number Diff line change
Expand Up @@ -93,13 +93,13 @@ function get_short_name(this, vertical_dim_spec, rc) result(short_name)

if (vertical_dim_spec == VERTICAL_DIM_EDGE) then
short_name = this%short_name_edge
_RETURN(_SUCCESS)
else if (vertical_dim_spec == VERTICAL_DIM_CENTER) then
short_name = this%short_name_center
_RETURN(_SUCCESS)
else
_FAIL("unsupported vertical_dim_spec")
end if

_RETURN(_SUCCESS)
end function get_short_name

subroutine set_registry(this, registry)
Expand Down

0 comments on commit 32b9fa3

Please sign in to comment.