subroutine wrf_error_fatal(msg) 37,2
  use shr_sys_mod, only: shr_sys_abort
  implicit none
  character(len=*), intent(in) :: msg
  call shr_sys_abort( msg )
end subroutine wrf_error_fatal