module wei05sc
! Stub version

  use shr_kind_mod  ,only: r8 => shr_kind_r8

  implicit none

  real(r8),parameter :: ctpoten_weimer = huge(1.0_r8)

end module wei05sc