f_esmf_logwrite0 Subroutine

  subroutine f_esmf_logwrite0(msg,logmsgList,rc)
    use ESMF_LogErrMod
    
    implicit none
    
    character(len=*), intent(in)                :: msg
    type(ESMF_LogMsg_Flag), intent(in)          :: logmsgList
    integer, intent(out)                        :: rc

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

    call ESMF_LogWrite(msg, logmsgFlag=logmsgList, rc=rc)

  end subroutine f_esmf_logwrite0