set_shat Subroutine

private subroutine set_shat(shat_in)

Uses

Sets the value of shat

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: shat_in

Contents

Source Code


Source Code

  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