ErrorMsgAndAbort Subroutine

  subroutine ErrorMsgAndAbort(localPet)
    integer ::  localPet

    if (localPet >= 0) then
      write(*,*) "ERROR: Problem on processor ",localPet,". Please see the PET*.Regrid.Log files for a traceback."
    else
      write(*,*) "ERROR: Please see the PET*.Regrid.Log files for a traceback."
    endif

    call ESMF_Finalize(endflag=ESMF_END_ABORT)

  end subroutine ErrorMsgAndAbort