Sets the value of shat
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real, | intent(in) | :: | shat_in |
subroutine set_shat(shat_in)
use geometry, only: surf
implicit none
real, intent(in) :: shat_in
!Note for bishop = 6,7 or not in 2-9 and .not. local_eq cannot change shat
!Should flag this somewhere (during init)
surf%shat = shat_in
end subroutine set_shat