Skip to content

Commit

Permalink
forgot to run fprettify in previous commit
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs committed Nov 28, 2023
1 parent 0e7ee53 commit 61c2cc8
Show file tree
Hide file tree
Showing 3 changed files with 7 additions and 7 deletions.
6 changes: 3 additions & 3 deletions src/Model/Geometry/BaseGeometry.f90
Original file line number Diff line number Diff line change
Expand Up @@ -12,9 +12,9 @@ module BaseGeometryModule
character(len=20) :: geo_type = 'UNDEFINED'
integer(I4B) :: id = 0
character(len=GEONAMELEN) :: name = ''

contains

procedure :: area_sat
procedure :: perimeter_sat
procedure :: area_wet
Expand Down Expand Up @@ -85,7 +85,7 @@ subroutine set_attribute(this, line)
end subroutine set_attribute

!> @brief Print the attributes for this object
!<
!<
subroutine print_attributes(this, iout)
! -- dummy
class(BaseGeometryType) :: this
Expand Down
6 changes: 3 additions & 3 deletions src/Model/Geometry/CircularGeometry.f90
Original file line number Diff line number Diff line change
Expand Up @@ -10,9 +10,9 @@ module CircularGeometryModule

type, extends(BaseGeometryType) :: CircularGeometryType
real(DP) :: radius = DZERO

contains

procedure :: area_sat
procedure :: perimeter_sat
procedure :: area_wet
Expand All @@ -24,7 +24,7 @@ module CircularGeometryModule
contains

!> @brief Return area as if geometry is fully saturated
!<
!<
function area_sat(this)
! -- modules
use ConstantsModule, only: DTWO, DPI
Expand Down
2 changes: 1 addition & 1 deletion src/Model/Geometry/RectangularGeometry.f90
Original file line number Diff line number Diff line change
Expand Up @@ -147,7 +147,7 @@ subroutine set_attribute(this, line)
end subroutine set_attribute

!> @brief Print the attributes for this object
!<
!<
subroutine print_attributes(this, iout)
! -- dummy
class(RectangularGeometryType) :: this
Expand Down

0 comments on commit 61c2cc8

Please sign in to comment.