f_esmf_logset Subroutine

  subroutine f_esmf_logset(flush, rc)
    use ESMF_LogErrMod
    use ESMF_UtilTypesMod
    
    implicit none

    type(ESMF_Logical), intent(in)   :: flush
    integer, intent(out)  :: rc

    logical :: lflush

    ! Initialize return code; assume routine not implemented
    rc = ESMF_RC_NOT_IMPL

    lflush = flush
    call ESMF_LogSet(flush=lflush, rc=rc)

  end subroutine f_esmf_logset