Skip to content

Commit

Permalink
removes comment
Browse files Browse the repository at this point in the history
  • Loading branch information
Alberto-o committed Dec 20, 2024
1 parent 8a0695e commit c1dd573
Showing 1 changed file with 1 addition and 8 deletions.
9 changes: 1 addition & 8 deletions src_main_pub/healer.F90
Original file line number Diff line number Diff line change
Expand Up @@ -295,14 +295,7 @@ SUBROUTINE CreateSurfaceMM (layoutnumber, Mtag, tags, numertag, MMiEx, MMiEy, MM
INTEGER (KIND=INTEGERSIZEOFMEDIAMATRICES) :: MMiHy (Alloc_iHy_XI:Alloc_iHy_XE, Alloc_iHy_YI:Alloc_iHy_YE, Alloc_iHy_ZI:Alloc_iHy_ZE)
INTEGER (KIND=INTEGERSIZEOFMEDIAMATRICES) :: MMiHz (Alloc_iHz_XI:Alloc_iHz_XE, Alloc_iHz_YI:Alloc_iHz_YE, Alloc_iHz_ZI:Alloc_iHz_ZE)
med(indicemedio)%Is%Surface = .TRUE.
!
! allocate(tags%edge%x (Alloc_iEx_XI:Alloc_iEx_XE, Alloc_iEx_YI:Alloc_iEx_YE, Alloc_iEx_ZI:Alloc_iEx_ZE))
! allocate(tags%edge%y (Alloc_iEy_XI:Alloc_iEy_XE, Alloc_iEy_YI:Alloc_iEy_YE, Alloc_iEy_ZI:Alloc_iEy_ZE))
! allocate(tags%edge%z (Alloc_iEz_XI:Alloc_iEz_XE, Alloc_iEz_YI:Alloc_iEz_YE, Alloc_iEz_ZI:Alloc_iEz_ZE))
! allocate(tags%face%x (Alloc_iHx_XI:Alloc_iHx_XE, Alloc_iHx_YI:Alloc_iHx_YE, Alloc_iHx_ZI:Alloc_iHx_ZE))
! allocate(tags%face%y (Alloc_iHy_XI:Alloc_iHy_XE, Alloc_iHy_YI:Alloc_iHy_YE, Alloc_iHy_ZI:Alloc_iHy_ZE))
! allocate(tags%face%z (Alloc_iHz_XI:Alloc_iHz_XE, Alloc_iHz_YI:Alloc_iHz_YE, Alloc_iHz_ZI:Alloc_iHz_ZE))
!

call SortInitEndWithIncreasingOrder(point)
!
punto%XI = Max (point%XI, Min(BoundingBox%XI, BoundingBox%XE))
Expand Down

0 comments on commit c1dd573

Please sign in to comment.